diff options
author | Mark H Weaver <mhw@netris.org> | 2012-01-29 17:43:13 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-01-30 10:27:23 -0500 |
commit | adb8054c6d16d3c5869cd543dbd29c384af02ccd (patch) | |
tree | 05297ec3c96ec101802902b98e03e6182a74f1be /module | |
parent | 2f3e436411b5dbb4f1a1b9d8583b348e221d5b67 (diff) | |
download | guile-adb8054c6d16d3c5869cd543dbd29c384af02ccd.tar.gz |
Fix primitive-eval to return #<unspecified> for definitions
* module/ice-9/eval.scm (primitive-eval): Return #<unspecified> for
definitions. Previously the variable object was returned.
* test-suite/tests/eval.test (evaluator): Add test.
* NEWS: Add news entry.
Diffstat (limited to 'module')
-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 c0fa64c90..74b85329d 100644 --- a/module/ice-9/eval.scm +++ b/module/ice-9/eval.scm @@ -428,7 +428,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! |