bake: work with strings

db4
Eduardo Cavazos 2008-07-08 22:58:34 -05:00
parent 5ba6a0c56d
commit 1a32ffafa3
1 changed files with 3 additions and 1 deletions

View File

@ -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 ] }