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/boot/utility.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot')

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