From ec02c6670d57cbb6814c6a79e133e1e2b41ed0af Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 21 May 2012 08:46:31 +0000 Subject: * interp/parsing.lisp: Remove. * interp/spad-parser.boot (floatExponent): New. (parseFloatExponent): Use it instead of FLOATEXPID. * interp/lexing.boot (nextLinesClear!): New. (ioClear!): Likewise. (OUT-STREAM): Define here. * interp/debug.lisp: Import lexing instead of parsing. Tidy. * interp/preparse.lisp: Likewise. * interp/spad.lisp: Likewise. * interp/util.lisp: Likewise. * interp/Makefile.in (OBJS): Do not include parsing.$(FASLEXT). (parsing.$(FASLEXT)): Remove. Adjust dependents. --- src/interp/util.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/util.lisp') diff --git a/src/interp/util.lisp b/src/interp/util.lisp index 4132d434..7f74ed54 100644 --- a/src/interp/util.lisp +++ b/src/interp/util.lisp @@ -50,7 +50,7 @@ (IMPORT-MODULE "vmlisp") -(import-module "parsing") +(import-module "lexing") (in-package "BOOT") @@ -265,7 +265,7 @@ (DECLARE (SPECIAL LINE)) (if (and (> (LENGTH LINE) 0) (EQ (CHAR LINE 0) #\) )) (|processSynonyms|)) - (ioclear) + (|ioClear!|) (LET* ((|$lineStack| (LIST (CONS 1 LINE))) ($SPAD T) (PARSEOUT (PROG2 (|parseNewExpr|) (|popStack1|)))) -- cgit v1.2.3