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

removed redundant syntax hack

Browse Source 
svn: r10417
This commit is contained in:
Eli Barzilay 2008-06-23 04:33:25 +00:00
parent 945dc376d2
commit b7839a4ec3
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scheme/promise.ss
View File

@ -64,11 +64,8 @@
(define-syntax (delay stx)
(syntax-case stx ()
[(delay expr)
(with-syntax ([proc (syntax-property
(syntax/loc stx (lambda () expr))
'inferred-name (syntax-local-name))])
(syntax/loc stx
(lazy (make-promise (call-with-values proc list)))))]))
(syntax/loc stx
(lazy (make-promise (call-with-values (lambda () expr) list))))]))
;; force iterates on lazy promises (forbids dependency cycles)
;; * (force X) = X for non promises