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

* eval.c (SCM_CEVAL): Removed check for unbound slot in

Browse source 
SCM_IM_SLOT_REF.  (This is now handled in a smarter way in GOOPS.)
This commit is contained in:
Mikael Djurfeldt 1999-12-18 03:19:06 +00:00
parent e1e11745b6
commit 7d2b68a85a
1 changed files with 10 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/eval.c
View file

@ -2337,12 +2337,7 @@ dispatch:
case (SCM_ISYMNUM (SCM_IM_SLOT_REF)):
x = SCM_CDR (x);
t.arg1 = EVALCAR (x, env);
proc = SCM_STRUCT_DATA (t.arg1)[SCM_INUM (SCM_CADR (x))];
if (proc == SCM_UNBOUND)
scm_misc_error (NULL,
"Unbound slot in object %S",
SCM_LIST1 (t.arg1));
RETURN (proc)
RETURN (SCM_STRUCT_DATA (t.arg1)[SCM_INUM (SCM_CADR (x))])
case (SCM_ISYMNUM (SCM_IM_SLOT_SET_X)):
x = SCM_CDR (x);