From 23d4eb5f7d4f4edb134696e389624cabc07f7b70 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 22 Apr 2013 22:19:39 -0700 Subject: [PATCH] mirrors: Make strings an inspected-sequence. Fixes #857. --- basis/mirrors/mirrors.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 ;