diff options
Diffstat (limited to 'src/interp/spad-parser.boot')
| -rw-r--r-- | src/interp/spad-parser.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index eab3bbec..719f7258 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -80,7 +80,7 @@ parseSpadFile sourceFile == BOOT_-LINE_-STACK : local := PREPARSE IN_-STREAM LINE : local := CDAR BOOT_-LINE_-STACK CATCH('SPAD__READER,PARSE_-NewExpr()) - asts := [parseTransform postTransform POP_-STACK_-1(), :asts] + asts := [parseTransform postTransform popStack1(), :asts] -- clean up the mess, and get out of here IOCLEAR(IN_-STREAM, OUT_-STREAM) SHUT IN_-STREAM |