summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2004-05-22 06:51:36 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2004-05-22 06:51:36 +0000
commit26ecfa393d846177d5189fa43c758b80667d951a (patch)
tree0dbac62a3c8f28505318add79ee29d7bcdeba710 /libguile/eval.c
parentf865229a619a641aa976ccc4d9a5f62c5e9ba46f (diff)
downloadguile-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.c7
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;