aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-03-20 21:56:59 +0000
committerdos-reis <gdr@axiomatics.org>2011-03-20 21:56:59 +0000
commitdfadd6b270f0238ef2f5e54fac780b6a6951ee4b (patch)
treed714b69fbdea8df8a5d610a38a5c3ba6af3612a7 /src/interp
parent5887c54d95b5bc62167a5e22e56e515cda7a7244 (diff)
downloadopen-axiom-dfadd6b270f0238ef2f5e54fac780b6a6951ee4b.tar.gz
Minor cleanup
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/br-data.boot4
-rw-r--r--src/interp/sys-driver.boot2
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