From 1c6564be2725c2e68180cdd4c9899765c8452c7a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 20 Aug 2012 06:35:08 +0000
Subject: 	* interp/i-coerfn.boot: Do not import i-coerce.  Import
 i-analy 	and i-resolv intead. 	($CoerceTable): Fix embarrassing
 thinko. 	* interp/i-coerce.boot: Import i-coerfn. 
 (coerceIntTableOrFunction): Tidy. 	* boot/utility.boot (objectAssoc):
 Tidy.

---
 src/ChangeLog            |  9 +++++++++
 src/boot/utility.boot    |  2 +-
 src/interp/Makefile.in   |  6 +++---
 src/interp/i-coerce.boot | 11 +++++------
 src/interp/i-coerfn.boot |  7 +++----
 5 files changed, 21 insertions(+), 14 deletions(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index 4004f4b7..e4f5760b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2012-08-20  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* interp/i-coerfn.boot: Do not import i-coerce.  Import i-analy
+	and i-resolv intead.
+	($CoerceTable): Fix embarrassing thinko.
+	* interp/i-coerce.boot: Import i-coerfn.
+	(coerceIntTableOrFunction): Tidy.
+	* boot/utility.boot (objectAssoc): Tidy.
+
 2012-08-19  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* interp/util.lisp (BUILD-INTERPSYS): loadDelayedFFI early.
diff --git a/src/boot/utility.boot b/src/boot/utility.boot
index ec51df12..cdc6d05d 100644
--- a/src/boot/utility.boot
+++ b/src/boot/utility.boot
@@ -227,7 +227,7 @@ symbolAssoc(s,l) ==
 objectAssoc(x,l) ==
   repeat
     l isnt [p,:l] => return nil
-    p is [.,:.] and sameObject?(first p,x) => return p
+    p is [.,:.] and sameObject?(x,first p) => return p
 
 --% substitution
 
diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in
index e67fbd37..b222b8da 100644
--- a/src/interp/Makefile.in
+++ b/src/interp/Makefile.in
@@ -92,7 +92,7 @@ OBJS=   boot-pkg.$(FASLEXT)	types.$(FASLEXT)	 \
 	g-error.$(FASLEXT)	ggreater.$(FASLEXT)	\
 	hypertex.$(FASLEXT)	i-object.$(FASLEXT)	\
 	i-analy.$(FASLEXT)	i-resolv.$(FASLEXT)	\
-	i-coerce.$(FASLEXT)	i-coerfn.$(FASLEXT)	\
+	i-coerfn.$(FASLEXT)	i-coerce.$(FASLEXT)	\
 	i-eval.$(FASLEXT)	i-funsel.$(FASLEXT)	\
 	i-intern.$(FASLEXT)	i-map.$(FASLEXT)	\
 	i-output.$(FASLEXT)	i-special.$(FASLEXT)	\
@@ -291,8 +291,8 @@ i-special.$(FASLEXT): i-analy.$(FASLEXT)
 i-funsel.$(FASLEXT): i-coerfn.$(FASLEXT)
 i-map.$(FASLEXT): i-object.$(FASLEXT)
 i-eval.$(FASLEXT): i-analy.$(FASLEXT)
-i-coerfn.$(FASLEXT): i-coerce.$(FASLEXT)
-i-coerce.$(FASLEXT): i-analy.$(FASLEXT) i-resolv.$(FASLEXT)
+i-coerce.$(FASLEXT): i-coerfn.$(FASLEXT)
+i-coerfn.$(FASLEXT): i-analy.$(FASLEXT) i-resolv.$(FASLEXT)
 i-resolv.$(FASLEXT): i-object.$(FASLEXT)
 i-analy.$(FASLEXT): i-object.$(FASLEXT)
 i-intern.$(FASLEXT): i-object.$(FASLEXT) ptrees.$(FASLEXT)
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index 919a6979..4cddcbc7 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -32,8 +32,7 @@
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 
-import i_-analy
-import i_-resolv
+import i_-coerfn
 namespace BOOT
 
 $useCoerceOrCroak := true
@@ -1133,13 +1132,13 @@ coerceIntTableOrFunction(triple,t2) ==
   null isValidType t2 => nil  -- added 9-18-85 by RSS
   null isLegitimateMode(t2,nil,nil) => nil  -- added 6-28-87 by RSS
   t1 := objMode triple
-  p := objectAssoc(first t1,$CoerceTable)
-  p and objectAssoc(first t2,rest p) is [.,:[tag,fun]] =>
+  p := symbolAssoc(first t1,$CoerceTable)
+  p and symbolTarget(first t2,rest p) is [tag,fun] =>
     val := objVal triple
     fun='Identity => objNew(val,t2)
     tag='total =>
-      coerceByTable(fun,val,t1,t2,'T) or coerceByFunction(triple,t2)
-    coerceByTable(fun,val,t1,t2,nil) or coerceByFunction(triple,t2)
+      coerceByTable(fun,val,t1,t2,true) or coerceByFunction(triple,t2)
+    coerceByTable(fun,val,t1,t2,false) or coerceByFunction(triple,t2)
   coerceByFunction(triple,t2)
 
 coerceCommuteTest(t1,t2) ==
diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot
index 36d5772b..bef965fc 100644
--- a/src/interp/i-coerfn.boot
+++ b/src/interp/i-coerfn.boot
@@ -32,7 +32,8 @@
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 
-import i_-coerce
+import i_-analy
+import i_-resolv
 namespace BOOT
 
 $coerceFailure := gensym()
@@ -1976,9 +1977,7 @@ $CoerceTable ==  '(                                          _
     (Tuple                                indeterm   L2Tuple) _
     (Vector                               indeterm   L2V) _
     ))_
-  )
 
-$CoerceTable == append!($CoerceTable,'( _
   (Matrix . ( _
     (List                                 indeterm   M2L) _
     (RectangularMatrix                    partial    M2Rm) _
@@ -2099,7 +2098,7 @@ $CoerceTable == append!($CoerceTable,'( _
     (SquareMatrix                         indeterm   V2Sm) _
     (Stream                               indeterm   Agg2Agg) _
     ) ) _
-  ) )
+  )
 
 -- this list is too long for the parser, so it has to be split into parts
 -- specifies the commute functions
-- 
cgit v1.2.3