diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-03-20 21:56:59 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-03-20 21:56:59 +0000 |
| commit | dfadd6b270f0238ef2f5e54fac780b6a6951ee4b (patch) | |
| tree | d714b69fbdea8df8a5d610a38a5c3ba6af3612a7 /src/interp | |
| parent | 5887c54d95b5bc62167a5e22e56e515cda7a7244 (diff) | |
| download | open-axiom-dfadd6b270f0238ef2f5e54fac780b6a6951ee4b.tar.gz | |
Minor cleanup
Diffstat (limited to 'src/interp')
| -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 |