mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

Fix primitive-eval to return #<unspecified> for definitions

Browse source 
* 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.
This commit is contained in:
Mark H Weaver 2012-01-29 17:43:13 -05:00
parent 2f3e436411
commit adb8054c6d
3 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/eval.scm
View file

@ -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!