steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

classes: change class-usage to return a sequence like it's documented to do.

db4
John Benediktsson 2013-03-08 23:06:16 -08:00
parent bca13622f5
commit f84df9d190
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/classes/classes.factor
View File

@ -131,7 +131,7 @@ GENERIC: implementors ( class/classes -- seq )
tri tri
] { } make ; ] { } make ;
: class-usage ( class -- seq ) update-map get at ; : class-usage ( class -- seq ) update-map get at keys ;
<PRIVATE <PRIVATE
@ -146,7 +146,7 @@ GENERIC: implementors ( class/classes -- seq )
PRIVATE> PRIVATE>
: class-usages ( class -- seq ) : class-usages ( class -- seq )
[ class-usage keys ] closure sets:members ; [ class-usage ] closure sets:members ;
M: class implementors implementors-map get at sets:members ; M: class implementors implementors-map get at sets:members ;
@ -184,7 +184,7 @@ GENERIC: metaclass-changed ( use class -- )
: check-metaclass ( class metaclass -- usages/f ) : check-metaclass ( class metaclass -- usages/f )
over class? [ over class? [
over "metaclass" word-prop eq? over "metaclass" word-prop eq?
[ drop f ] [ class-usage keys ] if [ drop f ] [ class-usage ] if
] [ 2drop f ] if ; ] [ 2drop f ] if ;
: ?define-symbol ( word -- ) : ?define-symbol ( word -- )

2
core/classes/tuple/tuple.factor
View File

@ -298,7 +298,7 @@ PRIVATE>
GENERIC: make-final ( class -- ) GENERIC: make-final ( class -- )
M: tuple-class make-final M: tuple-class make-final
[ dup class-usage keys ?metaclass-changed ] [ dup class-usage ?metaclass-changed ]
[ t "final" set-word-prop ] [ t "final" set-word-prop ]
bi ; bi ;