From b5ce31cbaedd85fa7038e620fe1c0d0b7235f56d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 7 Feb 2017 16:40:39 -0800
Subject: [PATCH] assocs: change assoc= to compare with = not eq?.

---
 core/assocs/assocs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index d9473c5438..88d5021cc0 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -144,7 +144,7 @@ M: assoc values [ nip ] { } assoc>map ;
     [ at* [ = ] [ 2drop f ] if ] with-assoc assoc-all? ;
 
 : assoc= ( assoc1 assoc2 -- ? )
-    2dup [ assoc-size ] bi@ eq? [ assoc-subset? ] [ 2drop f ] if ;
+    2dup [ assoc-size ] bi@ = [ assoc-subset? ] [ 2drop f ] if ;
 
 : assoc-hashcode ( n assoc -- code )
     >alist hashcode* ;