updates |cp and |mv to print errors without stacktraces

This commit is contained in:
Joseph Bryan 2016-07-19 00:08:28 -04:00
parent 682fc54382
commit 20666d1898
2 changed files with 8 additions and 10 deletions

View File

@ -4,13 +4,12 @@
/? 310
:- %say
|= {^ {input/path output/path $~} $~}
:- %kiln-info
?. =(-:(flop input) -:(flop output))
~& "Can't move to a different mark"
~
["Can't move to a different mark" *toro]
=+ dir=.^(arch %cy input)
?~ fil.dir
~& "No such file:"
~& <input>
~
:+ %kiln-info "copied"
[<input> *toro]
:- "copied"
(foal output -:(flop input) [%atom %t ~] .^(* %cx input)) :: XX type

View File

@ -4,14 +4,13 @@
/? 310
:- %say
|= {^ {input/path output/path $~} $~}
:- %kiln-info
?. =(-:(flop input) -:(flop output))
~& "Can't move to a different mark"
~
["Can't move to a different mark" *toro]
=+ dir=.^(arch %cy input)
?~ fil.dir
~& "No such file:"
~& <input>
~
:+ %kiln-info "moved"
[<input> *toro]
:- "moved"
%+ furl (fray input)
(foal output -:(flop input) [%noun .^(* %cx input)])