diff options
author | dos-reis <gdr@axiomatics.org> | 2011-11-02 14:17:56 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-11-02 14:17:56 +0000 |
commit | a28d2c23ae9e87da731b691cdf3306f966b649c2 (patch) | |
tree | ae25878a76fc9b8ed89e84234733fbd74b9bdc96 /src/interp/spad.lisp | |
parent | c3dea39d035f24533e2aa65309214f7ce2aa9ae6 (diff) | |
download | open-axiom-a28d2c23ae9e87da731b691cdf3306f966b649c2.tar.gz |
* interp/spad-parser.boot (parseSpadFile): Use $lineStack not
BOOT-LINE-STACK. Use try/finally to ensure streams are closed.
* interp/spad.lisp (New,ENTRY,2): Use parseNewExpr.
* interp/util.lisp (string2SpadTree): Likewise.
Diffstat (limited to 'src/interp/spad.lisp')
-rw-r--r-- | src/interp/spad.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 2de5aaaa..dfd21b81 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -273,7 +273,7 @@ (let (zz) (INITIALIZE) (SETQ |$previousTime| (TEMPUS-FUGIT)) - (setq ZZ (CONVERSATION '|PARSE-NewExpr| '|process|)) + (setq ZZ (CONVERSATION '|parseNewExpr| '|process|)) INPUTSTREAM)) (defun INITIALIZE () |