summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
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;