summaryrefslogtreecommitdiffstats
path: root/parser.y
diff options
context:
space:
mode:
Diffstat (limited to 'parser.y')
-rw-r--r--parser.y10
1 files changed, 9 insertions, 1 deletions
diff --git a/parser.y b/parser.y
index ebcf63b3..bf58d9ff 100644
--- a/parser.y
+++ b/parser.y
@@ -141,7 +141,15 @@ clause : all_clause { $$ = list($1, nao); rlcp($$, $1); }
rlcp($$, $1); }
| try_clause { $$ = list($1, nao); rlcp($$, $1); }
| output_clause { $$ = list($1, nao); rlcp($$, $1); }
- | line { $$ = $1; }
+ | line { val elem = car($1);
+
+ if (consp(elem) && car(elem) == load_s)
+ { elem = rlcp(cons(load_s,
+ cons(spec_file_str,
+ cdr(elem))), elem);
+ $$ = rlcp(cons(elem, cdr($1)), $1); }
+ else
+ { $$ = $1; } }
| repeat_clause { $$ = nil;
yyerror("repeat outside of output"); }
;