From a28d2c23ae9e87da731b691cdf3306f966b649c2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 2 Nov 2011 14:17:56 +0000
Subject: 	* 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.

---
 src/interp/spad.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/spad.lisp')

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 () 
-- 
cgit v1.2.3