diff options
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r-- | module/ice-9/psyntax.scm | 4 |
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 |