suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bleh

Browse Source 
svn: r13169
This commit is contained in:
Eli Barzilay 2009-01-16 16:36:51 +00:00
parent c5f8c43dbf
commit c0bdc22085
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/promise.ss
View File

@ -59,7 +59,7 @@
;; X = (force (lazy X)) = (force (lazy (lazy X))) = (force (lazy^n X))
(define-syntax (lazy stx)
(syntax-case stx ()
[(lazy expr)
[(_ expr)
(with-syntax ([proc (syntax-property (syntax/loc stx (lambda () expr))
'inferred-name (syntax-local-name))])
(syntax/loc stx (make-promise proc)))]))
@ -74,7 +74,7 @@
;; but provided for regular delay/force uses.)
(define-syntax (delay stx)
(syntax-case stx ()
[(delay expr)
[(_ expr)
(syntax/loc stx
(lazy (make-promise (call-with-values (lambda () expr) list))))]))