diff options
| -rw-r--r-- | src/interp/br-data.boot | 4 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index b8fa1f2e..8ca1a18d 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -171,8 +171,8 @@ buildLibOp(op,sig,pred) == --operations OKop \#\sig \conname\pred\comments (K is U or C) nsig := SUBLISLIS(rest $conform,$FormalMapVariableList,sig) pred := SUBLISLIS(rest $conform,$FormalMapVariableList,pred) - nsig := substitute('T,"T$",nsig) --this ancient artifact causes troubles! - pred := substitute('T,"T$",pred) + nsig := substitute("T","T$",nsig) --this ancient artifact causes troubles! + pred := substitute("T","T$",pred) sigpart:= form2LispString ['Mapping,:nsig] predString := (pred = 'T => '""; form2LispString pred) sop := diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 6c9c3973..f622bf5d 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -169,7 +169,7 @@ restart() == )if %hasFeature KEYWORD::GCL spad() )else - SETQ(_*DEBUGGER_-HOOK_*,LAMBDA(c h, systemErrorHandler c)) + SETQ(_*DEBUGGER_-HOOK_*,(c, h) +-> systemErrorHandler c) !(handler-bind ((error #'|systemErrorHandler|)) (|spad|)) )endif |