mirrors: Make strings an inspected-sequence. Fixes #857.

db4
Doug Coleman 2013-04-22 22:19:39 -07:00
parent 15a12947a4
commit 23d4eb5f7d
1 changed files with 3 additions and 1 deletions

View File

@ -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 ;