diff options
Diffstat (limited to 'module/ice-9/eval.scm')
-rw-r--r-- | module/ice-9/eval.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm index 5b2937147..d993db0c7 100644 --- a/module/ice-9/eval.scm +++ b/module/ice-9/eval.scm @@ -425,7 +425,8 @@ (let ((x (eval x env))) (if (and (procedure? x) (not (procedure-property x 'name))) (set-procedure-property! x 'name name)) - (define! name x))) + (define! name x) + (if #f #f))) (('toplevel-set! (var-or-sym . x)) (variable-set! |