From dfadd6b270f0238ef2f5e54fac780b6a6951ee4b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 20 Mar 2011 21:56:59 +0000
Subject: Minor cleanup

---
 src/interp/br-data.boot    | 4 ++--
 src/interp/sys-driver.boot | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

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
 
-- 
cgit v1.2.3