Merge branch 'cleanup' of git://github.com/keitahaga/factor
commit
3e2f74b834
|
@ -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
|
||||
|
|
|
@ -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* ;
|
||||
|
||||
|
|
|
@ -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 <command>"
|
||||
$ECHO ""
|
||||
|
|
Loading…
Reference in New Issue