diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-04 10:36:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-04 10:36:48 +0000 |
| commit | 7ca9a1812e8db22382fe1710cf248bc5a0a10e8b (patch) | |
| tree | a668bbd442bb6edd2b6925e80f5d3bccbebe26ee /src/interp/spad-parser.boot | |
| parent | f746b783b1d06dc72c8fe16ad88b26929e65350d (diff) | |
| download | open-axiom-7ca9a1812e8db22382fe1710cf248bc5a0a10e8b.tar.gz | |
* interp/lexing.boot (stackClear!): Fix typo.
Add new grammar reduction abstract datatype facility.
* interp/fnewmeta.lisp: Use it.
* interp/parsing.lisp: Likewise.
* interp/bootlex.lisp (SPAD): Use popStack1.
* interp/spad-parser.boot (parseSpadFile): Likewise.
* interp/metalex.lisp: Remove REDUCTION and associated functions.
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 |