diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-23 21:25:49 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-23 21:25:49 +0000 |
commit | 1f32586501aecb9b816c1b7a16135f4ac7a7de41 (patch) | |
tree | d2f72ba9d20c4c433e9e42c62bed61d81f1645fa | |
parent | 43fa9a05fed46510b46c98a5ce350d3c1d5ce985 (diff) | |
download | guile-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.c | 5 |
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); |