summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-45.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-09-02 11:36:14 +0200
committerAndy Wingo <wingo@pobox.com>2011-09-02 11:36:14 +0200
commit0c65f52c6d45f60e197fad7162d05c0fce89e817 (patch)
tree36b801d56064c1686befe9c3de561ade6cd6e2fa /module/srfi/srfi-45.scm
parent1bbe0a631c4e72fffc033cb4f83eba7252ce3c9c (diff)
downloadguile-0c65f52c6d45f60e197fad7162d05c0fce89e817.tar.gz
more define-syntax-rule usage
* module/ice-9/boot-9.scm: * module/ice-9/control.scm: * module/ice-9/futures.scm: * module/ice-9/optargs.scm: * module/ice-9/poll.scm: * module/ice-9/receive.scm: * module/ice-9/threads.scm: * module/ice-9/vlist.scm: * module/language/assembly/compile-bytecode.scm: * module/language/ecmascript/compile-tree-il.scm: * module/language/tree-il.scm: * module/oop/goops.scm: * module/oop/goops/simple.scm: * module/oop/goops/stklos.scm: * module/srfi/srfi-1.scm: * module/srfi/srfi-35.scm: * module/srfi/srfi-39.scm: * module/srfi/srfi-45.scm: * module/srfi/srfi-67/compare.scm: * module/sxml/match.scm: * module/system/repl/error-handling.scm: * module/system/repl/repl.scm: * module/system/vm/inspect.scm: * module/texinfo.scm: * module/web/server.scm: Use define-syntax-rule, where it makes sense.
Diffstat (limited to 'module/srfi/srfi-45.scm')
-rw-r--r--module/srfi/srfi-45.scm13
1 files changed, 5 insertions, 8 deletions
diff --git a/module/srfi/srfi-45.scm b/module/srfi/srfi-45.scm
index 1b912befc..29b0393ff 100644
--- a/module/srfi/srfi-45.scm
+++ b/module/srfi/srfi-45.scm
@@ -1,6 +1,6 @@
;;; srfi-45.scm -- Primitives for Expressing Iterative Lazy Algorithms
-;; Copyright (C) 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
;; Copyright (C) 2003 André van Tonder. All Rights Reserved.
;; Permission is hereby granted, free of charge, to any person
@@ -47,17 +47,14 @@
(tag value-tag value-tag-set!)
(proc value-proc value-proc-set!))
-(define-syntax lazy
- (syntax-rules ()
- ((lazy exp)
- (make-promise (make-value 'lazy (lambda () exp))))))
+(define-syntax-rule (lazy exp)
+ (make-promise (make-value 'lazy (lambda () exp))))
(define (eager x)
(make-promise (make-value 'eager x)))
-(define-syntax delay
- (syntax-rules ()
- ((delay exp) (lazy (eager exp)))))
+(define-syntax-rule (delay exp)
+ (lazy (eager exp)))
(define (force promise)
(let ((content (promise-val promise)))