From 68c6afce19df6a92b0569a23bcfe3a73f109b754 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 25 Mar 2008 21:33:58 +0000 Subject: * interp/bootlex.lisp: Import "sys-globals". Consistently use $InputStream and $OutputStream for I/O. * interp/c-util.boot: Likewise. * interp/comp.lisp: Likewise. * interp/compat.boot: Likewise. * interp/debug.lisp: Likewise. * interp/def.lisp: Likewise. * interp/g-error.boot: Likewise. * interp/i-toplev.boot: Likewise. * interp/int-top.boot: Likewise. * interp/intfile.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/macros.lisp: Likewise. * interp/metalex.lisp: Likewise. * interp/msgdb.boot: Likewise. * interp/patches.lisp: Likewise. * interp/preparse.lisp: Likewise. * interp/server.boot: Likewise. * interp/spad-parser.boot: Likewise. * interp/spad.lisp: Likewise. * interp/sys-globals.boot: Likewise. * interp/sys-macros.lisp: Likewise. * interp/sys-os.boot: Likewise. * interp/unlisp.lisp: Likewise. * interp/vmlisp.lisp: Likewise. * interp/Makefile.pamphlet (bootlex.$(FASLEXT)): Require sys-globals.$(FASLEXT) too. (vmlisp.$(FASLEXT)): Likewise. --- src/interp/int-top.boot | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/interp/int-top.boot') diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 116a0114..5e88dd71 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -1,6 +1,6 @@ --- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. +-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007, Gabriel Dos Reis. +-- Copyright (C) 2007-2008, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -15,7 +15,7 @@ -- the documentation and/or other materials provided with the -- distribution. -- --- - Neither the name of The Numerical ALgorithms Group Ltd. nor the +-- - Neither the name of The Numerical Algorithms Group Ltd. nor the -- names of its contributors may be used to endorse or promote products -- derived from this software without specific prior written permission. -- @@ -91,7 +91,7 @@ runspad() == ncTopLevel() == -- Top-level read-parse-eval-print loop for the interpreter. Uses -- the Bill Burge's parser. - IN_-STREAM: fluid := CURINSTREAM + IN_-STREAM: fluid := $InputStream _*EOF_*: fluid := NIL $InteractiveMode :fluid := true $BOOT: fluid := NIL @@ -102,8 +102,8 @@ ncTopLevel() == ncIntLoop() == - CURINSTREAM : local := _*STANDARD_-OUTPUT_* - CUROUTSTREAM : local := _*STANDARD_-INPUT_* + $InputStream : local := MAKE_-SYNONYM_-STREAM "*STANDARD-INPUT*" + $OutputStream : local := MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" intloop() -- cgit v1.2.3