From 7024b583294f2f3db19608510603d162fa1c6cb7 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 25 Sep 2008 16:50:21 +0200
Subject: [PATCH] compile `delay' into `make-promise' with a thunk

* module/language/scheme/translate.scm (custom-transformer-table):
  Translate `delay' into `make-promise'.
---
 module/language/scheme/translate.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/language/scheme/translate.scm b/module/language/scheme/translate.scm
index 7b1e6daab..20164b72a 100644
--- a/module/language/scheme/translate.scm
+++ b/module/language/scheme/translate.scm
@@ -267,6 +267,11 @@
               (make-ghil-lambda env l vars rest meta
                                 (trans-body env l body))))))))
 
+    ;; FIXME not hygienic
+    (delay
+     ((,expr)
+      (retrans `(make-promise (lambda () ,expr)))))
+
     (eval-case
      (,clauses
       (retrans