diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2004-05-22 06:51:36 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2004-05-22 06:51:36 +0000 |
commit | 26ecfa393d846177d5189fa43c758b80667d951a (patch) | |
tree | 0dbac62a3c8f28505318add79ee29d7bcdeba710 /libguile/eval.c | |
parent | f865229a619a641aa976ccc4d9a5f62c5e9ba46f (diff) | |
download | guile-26ecfa393d846177d5189fa43c758b80667d951a.tar.gz |
* eval.c (s_macro_keyword, scm_m_set_x): Remove checking for
misplaced syntactic keywords. This will not work unless guile's
defmacro feature is deprecated.
(scm_m_case): Fixed a bug that caused the list of labels to grow
with every case form.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 12d3db7bf..62f6ce3a5 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -149,10 +149,6 @@ static const char s_mixed_body_forms[] = "Mixed definitions and expressions in"; * is signalled. */ static const char s_bad_define[] = "Bad define placement"; -/* If a macro keyword is detected in a place where macro keywords are not - * allowed, a 'Misplaced syntactic keyword' error is signalled. */ -static const char s_macro_keyword[] = "Misplaced syntactic keyword"; - /* Case or cond expressions must have at least one clause. If a case or cond * expression without any clauses is detected, a 'Missing clauses' error is * signalled. */ @@ -830,7 +826,7 @@ scm_m_case (SCM expr, SCM env) { ASSERT_SYNTAX_2 (scm_ilength (labels) >= 0, s_bad_case_labels, labels, expr); - all_labels = scm_append_x (scm_list_2 (labels, all_labels)); + all_labels = scm_append (scm_list_2 (labels, all_labels)); } else if (SCM_NULLP (labels)) { @@ -1583,7 +1579,6 @@ scm_m_set_x (SCM expr, SCM env SCM_UNUSED) /* Memoize the variable form. */ ASSERT_SYNTAX_2 (SCM_SYMBOLP (variable), s_bad_variable, variable, expr); new_variable = lookup_symbol (variable, env); - ASSERT_SYNTAX (!SCM_MACROP (new_variable), s_macro_keyword, variable); /* Leave the memoization of unbound symbols to lazy memoization: */ if (SCM_UNBNDP (new_variable)) new_variable = variable; |