From 95ef8592f2efacf43bc943a1df9a9007a46decea Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 7 Jul 2008 20:20:31 +0000 Subject: * interp/spad.lisp (S-PROCESS): Remove Old Boot specific codes. * interp/server.boot (parseAndInterpret): Don't set $BOOT. * interp/setvars.boot (resetWorkspaceVariables): Likewise. * interp/spad-parser.boot (parseSpadFile): Likewise. * interp/postpar.boot: Disable Old Boot handling codes. * interp/metalex.lisp (quote-if-string): Don't test for $BOOT. * interp/parsing.lisp (IOStat): Likewise. (IOClear): Likewise. * interp/ht-util.boot (parseAndEval): Don't set $BOOT. * interp/int-top.boot (ncTopLevel): Likewise. * interp/fnewmeta.lisp: Remove Old Boot specific productions. * interp/sys-macros.lisp (-REDUCE): Don't test for $BOOT. (SPADDO): Likewise. * interp/comp.lisp (COMP-TRAN-1): Likewise. * interp/util.lisp (|string2SpadTree|): Likewise. * interp/bootlex.lisp (READBOOT): Remove. (READ-BOOT): Likewise. (spad): Don't initialize $BOOT. * interp/debug.lisp (/D-2): Likewise. --- src/interp/util.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/interp/util.lisp') diff --git a/src/interp/util.lisp b/src/interp/util.lisp index 995050f8..18bc4788 100644 --- a/src/interp/util.lisp +++ b/src/interp/util.lisp @@ -530,12 +530,11 @@ (|processSynonyms|)) (ioclear) (LET* ((BOOT-LINE-STACK (LIST (CONS 1 LINE))) - ($BOOT NIL) ($SPAD T) (XTOKENREADER 'GET-BOOT-TOKEN) (LINE-HANDLER 'NEXT-BOOT-LINE) (PARSEOUT (PROG2 (|PARSE-NewExpr|) (POP-STACK-1)))) - (DECLARE (SPECIAL BOOT-LINE-STACK $BOOT $SPAD XTOKENREADER LINE-HANDLER)) + (DECLARE (SPECIAL BOOT-LINE-STACK $SPAD XTOKENREADER LINE-HANDLER)) PARSEOUT)) -- cgit v1.2.3