linked-assocs.prettyprint: only print LH{ } for linked-assoc classes.
Not subclasses.char-rename
parent
890be49074
commit
92bddad476
|
@ -1,8 +1,9 @@
|
||||||
USING: accessors assocs hashtables kernel linked-assocs
|
USING: accessors assocs classes hashtables kernel linked-assocs
|
||||||
prettyprint.backend prettyprint.custom ;
|
prettyprint.backend prettyprint.custom ;
|
||||||
IN: linked-assocs.prettyprint
|
IN: linked-assocs.prettyprint
|
||||||
|
|
||||||
PREDICATE: linked-hash < linked-assoc assoc>> hashtable? ;
|
PREDICATE: linked-hash < linked-assoc
|
||||||
|
[ class-of linked-assoc = ] [ assoc>> hashtable? ] bi and ;
|
||||||
|
|
||||||
M: linked-hash pprint-delims drop \ LH{ \ } ;
|
M: linked-hash pprint-delims drop \ LH{ \ } ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue