summaryrefslogtreecommitdiffstats
path: root/parser.y
diff options
context:
space:
mode:
Diffstat (limited to 'parser.y')
-rw-r--r--parser.y7
1 files changed, 3 insertions, 4 deletions
diff --git a/parser.y b/parser.y
index 7e068714..8d5e3035 100644
--- a/parser.y
+++ b/parser.y
@@ -498,6 +498,9 @@ elem : texts { $$ = rlc(cons(text_s, $1), $1);
$$ = rlc(cons(sym,
expand_forms(rest($1), nil)),
$1);
+ else if (sym == mdo_s)
+ { eval_intrinsic(cons(progn_s, cdr($1)), nil);
+ $$ = cons(do_s, nil); }
else
{ $$ = match_expand_elem($1);
match_reg_elem($$); } }
@@ -2016,10 +2019,6 @@ static val check_parse_time_action(val spec_rev)
if (sym == include_s) {
return nappend2(nreverse(include(line)), rest(spec_rev));
}
- if (sym == mdo_s) {
- eval_intrinsic(cons(progn_s, cdr(elem)), nil);
- return nil;
- }
if (sym == in_package_s) {
eval_intrinsic(elem, nil);
return nil;