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

Use with-variable instead of on

db4
Slava Pestov 2009-01-18 19:33:28 -06:00
parent abd4a82f9f
commit 5b636c6a2a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/inspector/inspector.factor
View File

@ -39,11 +39,12 @@ M: mirror fix-slot-names
[ [ slot-name boa ] dip ] { } assoc-map-as ; [ [ slot-name boa ] dip ] { } assoc-map-as ;
: (describe) ( obj assoc -- keys ) : (describe) ( obj assoc -- keys )
pprint-string-cells? on t pprint-string-cells? [
[ summary. ] [ [ summary. ] [
dup hashtable? [ sort-unparsed-keys ] when dup hashtable? [ sort-unparsed-keys ] when
[ fix-slot-names add-numbers simple-table. ] [ keys ] bi [ fix-slot-names add-numbers simple-table. ] [ keys ] bi
] bi* ; ] bi*
] with-variable ;
PRIVATE> PRIVATE>