From 1a32ffafa389a9769e7d96ce1f7e599247fef280 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 8 Jul 2008 22:58:34 -0500 Subject: [PATCH] bake: work with strings --- extra/bake/bake.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/bake/bake.factor b/extra/bake/bake.factor index 4ce7bfb586..bcb7c2238f 100644 --- a/extra/bake/bake.factor +++ b/extra/bake/bake.factor @@ -1,6 +1,6 @@ USING: kernel parser namespaces sequences quotations arrays vectors splitting - words math + strings words math macros arrays.lib combinators.lib combinators.conditional newfx ; IN: bake @@ -20,7 +20,9 @@ DEFER: [bake] : broil-element ( obj -- quot ) { { [ comma? ] [ drop [ >r ] ] } + { [ f = ] [ [ >r ] prefix-on ] } { [ integer? ] [ [ >r ] prefix-on ] } + { [ string? ] [ [ >r ] prefix-on ] } { [ sequence? ] [ [bake] [ >r ] append ] } { [ word? ] [ literalize [ >r ] prefix-on ] } { [ drop t ] [ [ >r ] prefix-on ] }