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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/mirrors/mirrors.factor
View File

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs byte-arrays classes USING: accessors arrays assocs byte-arrays classes
classes.tuple classes.tuple.private combinators fry hashtables 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 IN: mirrors
TUPLE: mirror { object read-only } ; TUPLE: mirror { object read-only } ;
@ -59,6 +60,7 @@ INSTANCE: array inspected-sequence
INSTANCE: vector inspected-sequence INSTANCE: vector inspected-sequence
INSTANCE: callable inspected-sequence INSTANCE: callable inspected-sequence
INSTANCE: byte-array inspected-sequence INSTANCE: byte-array inspected-sequence
INSTANCE: string inspected-sequence
GENERIC: make-mirror ( obj -- assoc ) GENERIC: make-mirror ( obj -- assoc )
M: hashtable make-mirror ; M: hashtable make-mirror ;