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

fry: copyright header cleanup

db4
Keita Haga 2011-03-10 23:29:04 +09:00
parent cefb541c33
commit 2387969da1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/fry/fry.factor
View File

@ -1,4 +1,5 @@
! (c)2009 Slava Pestov, Eduardo Cavazos, Joe Groff bsd license ! Copyright (C) 2009 Slava Pestov, Eduardo Cavazos, Joe Groff.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators kernel locals.backend math parser USING: accessors combinators kernel locals.backend math parser
quotations sequences sets splitting words ; quotations sequences sets splitting words ;
IN: fry IN: fry
@ -78,7 +79,7 @@ INSTANCE: fried-callable fried
] if-empty ; ] if-empty ;
: prune-curries ( seq -- seq' ) : prune-curries ( seq -- seq' )
dup [ empty? not ] find dup [ empty? not ] find
[ [ 1 + tail ] dip but-last prefix ] [ [ 1 + tail ] dip but-last prefix ]
[ 2drop { } ] if* ; [ 2drop { } ] if* ;