slava 2006-11-04 07:23:16 +00:00
parent 76049e7d9c
commit 674e993ce3
3 changed files with 5 additions and 6 deletions

View File

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

View File

@ -7,12 +7,12 @@ vectors math parser ;
PREDICATE: word class ( obj -- ? ) "class" word-prop ; PREDICATE: word class ( obj -- ? ) "class" word-prop ;
PREDICATE: word builtin ( obj -- ? ) builtins get memq? ;
SYMBOL: typemap SYMBOL: typemap
SYMBOL: class<map SYMBOL: class<map
SYMBOL: builtins SYMBOL: builtins
PREDICATE: word builtin ( obj -- ? ) builtins get memq? ;
: classes ( -- seq ) class<map get hash-keys ; : classes ( -- seq ) class<map get hash-keys ;
: type>class ( n -- class ) builtins get nth ; : type>class ( n -- class ) builtins get nth ;

View File

@ -118,7 +118,7 @@ M: tuple-class see-class*
M: word see-class* drop ; M: word see-class* drop ;
: see-class ( word -- ) : see-class ( word -- )
dup class? over builtin? not [ dup class? over builtin? not and [
terpri [ see-class* ] with-pprint terpri terpri [ see-class* ] with-pprint terpri
] [ ] [
drop drop