diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 17:09:34 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 17:09:34 +0000 |
commit | db4b4ca64f0480198cbc82e0f6fb3d3a8af5f580 (patch) | |
tree | 8b0dbb8c8df3ccd03143f208c19c9acb19831ef1 /libguile/evalext.c | |
parent | cc6c7feea443b5d5f95d2cc88e0b244ccf15b373 (diff) | |
download | guile-db4b4ca64f0480198cbc82e0f6fb3d3a8af5f580.tar.gz |
* Eliminate some calls to scm_wta.
Diffstat (limited to 'libguile/evalext.c')
-rw-r--r-- | libguile/evalext.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/evalext.c b/libguile/evalext.c index b9e0130c3..d24a543be 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -65,7 +65,8 @@ scm_m_generalized_set_x (SCM xorig, SCM env) else if (SCM_CONSP (SCM_CAR (x))) return scm_cons (SCM_LIST2 (scm_sym_setter, SCM_CAAR (x)), scm_append (SCM_LIST2 (SCM_CDAR (x), SCM_CDR (x)))); - return scm_wta (xorig, scm_s_variable, scm_s_set_x); + else + scm_misc_error (scm_s_set_x, scm_s_variable, SCM_EOL); } SCM_DEFINE (scm_definedp, "defined?", 1, 1, 0, |