aboutsummaryrefslogtreecommitdiff
path: root/src/interp/int-top.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/int-top.boot')
-rw-r--r--src/interp/int-top.boot5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot
index 9b1d7f10..949b3241 100644
--- a/src/interp/int-top.boot
+++ b/src/interp/int-top.boot
@@ -78,7 +78,6 @@ spad() ==
$inLispVM : local := nil
setOutputAlgebra "%initialize%"
runspad()
- %hasFeature KEYWORD::SBCL => 0
'EndOfSpad
runspad() ==
@@ -110,12 +109,10 @@ intloop () ==
mode := $intRestart
while mode = $intRestart repeat
resetStackLimits()
- mode := CATCH($intTopLevel,
- SpadInterpretStream(1, ["TIM", "DALY", "?"], true))
+ mode := CATCH($intTopLevel, SpadInterpretStream(1, nil, true))
SpadInterpretStream(str, source, interactive?) ==
- $fn : local := source
pile? := not interactive?
$libQuiet : local := not interactive?