From 91bd7571dc0baf8d17047d553e4616dd587c0ffb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 26 Sep 2009 13:49:18 +0000
Subject: 	* interp/: More cleanup.

---
 src/interp/word.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/word.boot')

diff --git a/src/interp/word.boot b/src/interp/word.boot
index 93570f76..3e299010 100644
--- a/src/interp/word.boot
+++ b/src/interp/word.boot
@@ -47,7 +47,7 @@ buildWordTable u ==
   for key in HKEYS table repeat
     HPUT(table,key,
       listSort(function GLESSEQP,removeDupOrderedAlist
-        listSort(function GLESSEQP, HGET(table,key),function CAR),
+        listSort(function GLESSEQP, HGET(table,key),function first),
           function second))
   table
  
-- 
cgit v1.2.3