From 674e993ce38e095e6ac39f523c628ea1b60b1df2 Mon Sep 17 00:00:00 2001 From: slava Date: Sat, 4 Nov 2006 07:23:16 +0000 Subject: [PATCH] Fixes --- TODO.FACTOR.txt | 5 ++--- library/generic/classes.factor | 4 ++-- library/tools/definitions.factor | 2 +- 3 files changed, 5 insertions(+), 6 deletions(-) diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index 188913696a..134e4a7fa7 100644 --- 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 15a84f7461..a961eadc94 100644 --- 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: classclass ( n -- class ) builtins get nth ; diff --git a/library/tools/definitions.factor b/library/tools/definitions.factor index 22c19a618c..649c88561d 100644 --- 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