Permalink
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (11 sloc) 391 Bytes
! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: command-line io kernel namespaces sequences ;
IN: tools.echo
: -n? ( args -- ? args' )
[ first "-n" = ] keep over [ rest ] when ;
: echo-args ( args -- )
-n? " " join write [ nl ] unless ;
: run-echo ( -- )
command-line get [ nl ] [ echo-args ] if-empty ;
MAIN: run-echo