mirrors: Make strings an inspected-sequence. Fixes #857.
parent
15a12947a4
commit
23d4eb5f7d
|
@ -2,7 +2,8 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays assocs byte-arrays classes
|
||||
classes.tuple classes.tuple.private combinators fry hashtables
|
||||
kernel math quotations sequences slots slots.private vectors ;
|
||||
kernel math quotations sequences slots slots.private strings
|
||||
vectors ;
|
||||
IN: mirrors
|
||||
|
||||
TUPLE: mirror { object read-only } ;
|
||||
|
@ -59,6 +60,7 @@ INSTANCE: array inspected-sequence
|
|||
INSTANCE: vector inspected-sequence
|
||||
INSTANCE: callable inspected-sequence
|
||||
INSTANCE: byte-array inspected-sequence
|
||||
INSTANCE: string inspected-sequence
|
||||
|
||||
GENERIC: make-mirror ( obj -- assoc )
|
||||
M: hashtable make-mirror ;
|
||||
|
|
Loading…
Reference in New Issue