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

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
quotations sequences sets splitting words ;
IN: fry
@ -78,7 +79,7 @@ INSTANCE: fried-callable fried
] if-empty ;
: prune-curries ( seq -- seq' )
dup [ empty? not ] find
dup [ empty? not ] find
[ [ 1 + tail ] dip but-last prefix ]
[ 2drop { } ] if* ;