1 ! Copyright (C) 2011 John Benediktsson
2 ! See https://factorcode.org/license.txt for BSD license
4 USING: command-line io kernel namespaces sequences splitting ;
8 : -n? ( args -- ? args' )
9 [ first "-n" = ] keep over [ rest ] when ;
11 : echo-args ( args -- )
12 -n? join-words write [ nl ] unless ;
15 command-line get [ nl ] [ echo-args ] if-empty ;