define-syntax is now capable of takeing a synclo object at the position
of the syntax name
This commit is contained in:
parent
d871c6f06c
commit
725297384a
src
|
@ -336,7 +336,7 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
|
||||||
pic_error(pic, "syntax error");
|
pic_error(pic, "syntax error");
|
||||||
}
|
}
|
||||||
|
|
||||||
var = pic_cadr(pic, expr);
|
var = strip(pic, pic_cadr(pic, expr));
|
||||||
if (! pic_symbol_p(var)) {
|
if (! pic_symbol_p(var)) {
|
||||||
pic_error(pic, "syntax error");
|
pic_error(pic, "syntax error");
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue