summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r--module/ice-9/psyntax.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index ae75bc6ad..e9383eeaf 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -467,7 +467,6 @@
,@(if docstring (list docstring) '())
,exp)
src)))))
-
(define build-case-lambda
(lambda (src docstring body)
(case (fluid-ref *mode*)
@@ -584,7 +583,8 @@
(build-application src (build-lexical-reference 'fun src f-name f)
val-exps))))
(else (decorate-source
- `(let ,f ,(map list vars val-exps) ,body-exp)
+ `(letrec ((,f (lambda ,vars ,body-exp)))
+ (,f ,@val-exps))
src))))))
(define build-letrec