diff --git a/basis/fry/fry-tests.factor b/basis/fry/fry-tests.factor index b341c462be..48e267bc52 100644 --- a/basis/fry/fry-tests.factor +++ b/basis/fry/fry-tests.factor @@ -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: fry tools.test math prettyprint kernel io arrays sequences eval accessors ; IN: fry.tests diff --git a/basis/fry/fry.factor b/basis/fry/fry.factor index e58253692f..bf69f440bd 100644 --- a/basis/fry/fry.factor +++ b/basis/fry/fry.factor @@ -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* ; diff --git a/build-support/factor.sh b/build-support/factor.sh index 52a989b78d..8045a5fe7e 100755 --- a/build-support/factor.sh +++ b/build-support/factor.sh @@ -551,7 +551,7 @@ install_build_system_port() { } usage() { - $ECHO "usage: $0 install|install-x11|install-macosx|self-update|quick-update|update|bootstrap|dlls|net-bootstrap|make-target|report [optional-target]" + $ECHO "usage: $0 install|install-x11|install-macosx|self-update|quick-update|update|bootstrap|net-bootstrap|make-target|report [optional-target]" $ECHO "If you are behind a firewall, invoke as:" $ECHO "env GIT_PROTOCOL=http $0 " $ECHO ""