diff options
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/bootlex.lisp | 3 | ||||
-rw-r--r-- | src/interp/i-spec1.boot | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/bootlex.lisp b/src/interp/bootlex.lisp index 4cd605d5..f430ffe1 100644 --- a/src/interp/bootlex.lisp +++ b/src/interp/bootlex.lisp @@ -94,10 +94,9 @@ (*EOF* NIL) (File-Closed NIL) (/editfile *spad-input-file*) - (|$noSubsumption| |$noSubsumption|) in-stream out-stream) (declare (special echo-meta /editfile *comp370-apply* *EOF* - File-Closed Xcape |$noSubsumption|)) + File-Closed Xcape)) (setq |$InteractiveMode| nil) ;; only rebind |$InteractiveFrame| if compiling (progv (if (not |$InteractiveMode|) '(|$InteractiveFrame|)) diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index f9b1fb60..a23aaffb 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -541,7 +541,7 @@ upLoopIterSTEP(index,lower,step,upperList) == evalCOLLECT(op,[:itrl,body],m) == iters := [evalLoopIter itr for itr in itrl] bod := getArgValue(body,computedMode body) - if bod isnt ['SPADCALL,:.] then bode := ['unwrap,bod] + if bod isnt ['SPADCALL,:.] then bod := ['unwrap,bod] code := timedOptimization asTupleNewCode0(second m, ['COLLECT,:iters,bod]) if $genValue then code := wrap timedEVALFUN code putValue(op,objNew(code,m)) |