diff options
-rw-r--r-- | module/ice-9/boot-9.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 1ddb0ff07..8a938ec7d 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -3728,13 +3728,15 @@ module '(ice-9 q) '(make-q q-length))}." ((args ...) (generate-temporaries #'(formals ...)))) #`(begin (define (proc-name formals ...) - body ...) + (fluid-let-syntax ((name (identifier-syntax proc-name))) + body ...)) (define-syntax name (lambda (x) (syntax-case x () ((_ args ...) - #'((lambda (formals ...) - body ...) + #'((fluid-let-syntax ((name (identifier-syntax proc-name))) + (lambda (formals ...) + body ...)) args ...)) (_ (identifier? x) |