diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor index 7778664556..6be42fa469 100644 --- a/basis/mirrors/mirrors.factor +++ b/basis/mirrors/mirrors.factor @@ -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 ;