mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-17 03:00:21 +02:00
Code Activity

compile delay' into make-promise' with a thunk

Browse source 
* module/language/scheme/translate.scm (custom-transformer-table):
  Translate `delay' into `make-promise'.
This commit is contained in:
Andy Wingo 2008-09-25 16:50:21 +02:00
parent 7c455996e8
commit 7024b58329
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/scheme/translate.scm
View file

@ -267,6 +267,11 @@
(make-ghil-lambda env l vars rest meta (make-ghil-lambda env l vars rest meta
(trans-body env l body)))))))) (trans-body env l body))))))))
;; FIXME not hygienic
(delay
((,expr)
(retrans `(make-promise (lambda () ,expr)))))
(eval-case (eval-case
(,clauses (,clauses
(retrans (retrans