Fixes

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 188913696aa843be610fa261e66ed16e9f2f6b57..134e4a7fa74a41b533971b1ee93a7d8203a99a53 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -2,11 +2,11 @@
 
 - inline float allocation needs a gc check
 - docs: don't pass volatile aliens to callbacks
+- docs: mention that 'like' may destroy the underlying sequence
+- don't save big free chunk at the end of the code heap
 
 + ui:
 
-- doc/handbook/alien.facts formatting wrong (erg)
-- docs: mention that 'like' may destroy the underlying sequence
 - live search: timer delay would be nice
 - menu should stay up if mouse button released
 - roundoff is still not quite right with tracks
@@ -73,7 +73,6 @@
 
 + misc:
 
-- don't save big free chunk at the end of the code heap
 - faster apropos
 - growable data heap
 - minor GC takes too long now, we should card mark code heap

diff --git a/library/generic/classes.factor b/library/generic/classes.factor
index 15a84f7461acd84a331da486cc75ef0f778b7046..a961eadc94317c9a44e237545d354fdd9067046d 100644 (file)
--- a/library/generic/classes.factor
+++ b/library/generic/classes.factor
@@ -7,12 +7,12 @@ vectors math parser ;
 
 PREDICATE: word class ( obj -- ? ) "class" word-prop ;
 
-PREDICATE: word builtin ( obj -- ? ) builtins get memq? ;
-
 SYMBOL: typemap
 SYMBOL: class<map
 SYMBOL: builtins
 
+PREDICATE: word builtin ( obj -- ? ) builtins get memq? ;
+
 : classes ( -- seq ) class<map get hash-keys ;
 
 : type>class ( n -- class ) builtins get nth ;

diff --git a/library/tools/definitions.factor b/library/tools/definitions.factor
index 22c19a618c07b1a8112e095f7dce5df7a8892fa1..649c88561dd5ea880d26f3603e074408076c55c1 100644 (file)
--- a/library/tools/definitions.factor
+++ b/library/tools/definitions.factor
@@ -118,7 +118,7 @@ M: tuple-class see-class*
 M: word see-class* drop ;
 
 : see-class ( word -- )
-    dup class? over builtin? not [
+    dup class? over builtin? not and [
         terpri [ see-class* ] with-pprint terpri
     ] [
         drop