~ chicken-core (master) 442fe37363aac72f905316cbece65601a467679e

commit 442fe37363aac72f905316cbece65601a467679e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Mar 8 13:53:04 2026 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Mar 8 13:53:04 2026 +0100

    inline expansion of delay-force in macro-defintion of delay

diff --git a/expand.scm b/expand.scm
index 31223547..ea7daa1a 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1837,9 +1837,10 @@
  (##sys#er-transformer
   (lambda (form r c)
     (##sys#check-syntax 'delay form '(_ _))
-    `(,(r 'delay-force)
-      (##sys#make-promise
-       (##sys#call-with-values (##core#lambda () ,(cadr form)) ##sys#list))))))
+      `(##sys#make-promise 
+         (##core#lambda () 
+           (##sys#make-promise
+             (##sys#call-with-values (##core#lambda () ,(cadr form)) ##sys#list)))))))
 
 (##sys#extend-macro-environment
  'syntax-error