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

Tiny fry fix

db4
Slava Pestov 2008-03-11 03:30:35 -05:00
parent dcdee4ec6f
commit 9565a04e74
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/fry/fry.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2008 Slava Pestov, Eduardo Cavazos. ! Copyright (C) 2008 Slava Pestov, Eduardo Cavazos.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences combinators parser splitting USING: kernel sequences combinators parser splitting
quotations arrays namespaces ; quotations arrays namespaces qualified ;
QUALIFIED: namespaces
IN: fry IN: fry
: , "Only valid inside a fry" throw ; : , "Only valid inside a fry" throw ;
@ -23,6 +24,10 @@ DEFER: (fry)
unclip { unclip {
{ , [ [ curry ] ((fry)) ] } { , [ [ curry ] ((fry)) ] }
{ @ [ [ compose ] ((fry)) ] } { @ [ [ compose ] ((fry)) ] }
! to avoid confusion, remove if fry goes core
{ namespaces:, [ [ curry ] ((fry)) ] }
[ swap >r add r> (fry) ] [ swap >r add r> (fry) ]
} case } case
] if ; ] if ;