oops: bugfix `cp' FIXUP: bournish commit.

2018-07-04 20:36:58 +02:00 · 2018-07-04 20:36:58 +02:00 · d920fe1b4a
parent f5ee21eb36
commit d920fe1b4a
1 changed files with 2 additions and 2 deletions
--- a/gash/gash.scm
+++ b/gash/gash.scm
@ -257,8 +257,8 @@ some redirections work.
    (display "\nIt features the following, somewhat naive builtin commands\n")
    (display-tabulated (map car %commands))))

-(define (cp-command source dest)
-  `(copy-file ,source ,dest))
+(define (cp-command source dest . rest)
+  (copy-file source dest))

 (define (set-shell-opt! name set?)
  (let* ((shell-opts (assoc-ref global-variables "SHELLOPTS"))