From 3045578ca18746550988fa351fe62fe7bc92a703 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 21 Feb 2008 02:02:48 +0000
Subject: 	* interp/i-coerce.boot (coerceInt1): Avoid misguided 	Tuple
 coercion behind the scene. 	* interp/i-output.boot (output): Likewise.

---
 src/interp/Makefile.in       | 2 +-
 src/interp/Makefile.pamphlet | 2 +-
 src/interp/i-coerce.boot     | 3 ---
 3 files changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in
index 008453ac..7a37bcb2 100644
--- a/src/interp/Makefile.in
+++ b/src/interp/Makefile.in
@@ -601,7 +601,7 @@ intfile.$(FASLEXT): intfile.boot cstream.$(FASLEXT)
 cstream.$(FASLEXT): cstream.boot sys-macros.$(FASLEXT)
 	$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
 
-astr.$(FASLEXT): astr.boot boot-pkg.$(FASLEXT)
+astr.$(FASLEXT): astr.boot vmlisp.$(FASLEXT)
 	$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
 
 bits.$(FASLEXT): bits.lisp boot-pkg.$(FASLEXT)
diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet
index bea38292..b8b67c5c 100644
--- a/src/interp/Makefile.pamphlet
+++ b/src/interp/Makefile.pamphlet
@@ -915,7 +915,7 @@ intfile.$(FASLEXT): intfile.boot cstream.$(FASLEXT)
 cstream.$(FASLEXT): cstream.boot sys-macros.$(FASLEXT)
 	$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
 
-astr.$(FASLEXT): astr.boot boot-pkg.$(FASLEXT)
+astr.$(FASLEXT): astr.boot vmlisp.$(FASLEXT)
 	$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
 
 bits.$(FASLEXT): bits.lisp boot-pkg.$(FASLEXT)
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index c5794562..bb331ea3 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -848,9 +848,6 @@ coerceInt1(triple,t2) ==
     val' := unwrap val
     (t2 = val') and ((val' = t1) or (t1 = $String)) => objNew(val,t2)
     NIL
-  --  t1 is ['Tuple,S] and t2 ^= '(OutputForm) =>
-  t1 is ['Tuple,S]  =>
-    coerceInt1(objNewWrap(asTupleAsList unwrap val, ['List, S]), t2)
   t1 is ['Union,:.] => coerceIntFromUnion(triple,t2)
   t2 is ['Union,:.] => coerceInt2Union(triple,t2)
   (STRINGP t1) and (t2 = $String) => objNew(val,$String)
-- 
cgit v1.2.3