This variable is not used anymore.
We can safely delete it.
- Qian
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/8044bce5-e333-4b62-865e-43a0be45fcd2%40gmail.com.
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot
index 81cddac4..4b8ad0ce 100644
--- a/src/interp/int-top.boot
+++ b/src/interp/int-top.boot
@@ -117,7 +117,6 @@ runspad() ==
ncTopLevel() ==
-- Top-level read-parse-eval-print loop for the interpreter. Uses
-- the Bill Burge's parser.
- _*EOF_*: fluid := NIL
$InteractiveMode :fluid := true
$e:fluid := $InteractiveFrame
int_loop()
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp
index 7130940d..1433cb5e 100644
--- a/src/interp/macros.lisp
+++ b/src/interp/macros.lisp
@@ -235,9 +235,6 @@
; 22.2.1 Input from Character Streams
-(defvar *EOF* NIL)
-
-
; 22.3 Output Functions
; 22.3.1 Output to Character Streams
diff --git a/src/interp/scwrap2.boot b/src/interp/scwrap2.boot
index 85c8d2f1..c4c1196a 100644
--- a/src/interp/scwrap2.boot
+++ b/src/interp/scwrap2.boot
@@ -76,7 +76,6 @@ spadCompile1(name, pile_mode) ==
$nopiles : local := pile_mode
$comp370_apply : local := FUNCTION print_defun
$file_apply : local := FUNCTION print_defun
- _*EOF_* : local := false
$edit_file : local := name
$InteractiveMode : local := false
$spad_scanner : local := true
diff --git a/src/interp/server.boot b/src/interp/server.boot
index 899730d2..a65cb751 100644
--- a/src/interp/server.boot
+++ b/src/interp/server.boot
@@ -75,9 +75,8 @@ serverReadLine(stream) ==
FORCE_-OUTPUT()
not $SpadServer =>
read_line(stream)
- _*EOF_*: fluid := NIL
line :=
- while not $EndServerSession and not _*EOF_* repeat
+ while not $EndServerSession repeat
if $NeedToSignalSessionManager then
sockSendInt($SessionManager, $EndOfOutput)
$NeedToSignalSessionManager := false
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp
index b6c7bfaa..e1200fa6 100644
--- a/src/interp/spad.lisp
+++ b/src/interp/spad.lisp
@@ -55,10 +55,6 @@
; SYSTEM COMMANDS
;************************************************************************
-(defun |fin| ()
- (SETQ *EOF* 'T)
- (THROW 'SPAD_READER NIL))
-
(defun QUOTIENT2 (X Y) (values (TRUNCATE X Y)))
(defun INTEXQUO(X Y)
