summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-23 21:25:49 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-23 21:25:49 +0000
commit1f32586501aecb9b816c1b7a16135f4ac7a7de41 (patch)
treed2f72ba9d20c4c433e9e42c62bed61d81f1645fa
parent43fa9a05fed46510b46c98a5ce350d3c1d5ce985 (diff)
downloadguile-1f32586501aecb9b816c1b7a16135f4ac7a7de41.tar.gz
* eval.c (SCM_CEVAL): Let the SCM_IM_SLOT_SET_X form return
SCM_UNSPECIFIED instead of the set value.
-rw-r--r--libguile/eval.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index ece36a17e..889896d8e 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2413,8 +2413,9 @@ dispatch:
t.arg1 = EVALCAR (x, env);
x = SCM_CDR (x);
proc = SCM_CDR (x);
- RETURN (SCM_STRUCT_DATA (t.arg1)[SCM_INUM (SCM_CAR (x))]
- = EVALCAR (proc, env));
+ SCM_STRUCT_DATA (t.arg1)[SCM_INUM (SCM_CAR (x))]
+ = EVALCAR (proc, env);
+ RETURN (SCM_UNSPECIFIED);
case (SCM_ISYMNUM (SCM_IM_NIL_COND)):
proc = SCM_CDR (x);