test: 04-word-at.

check.sh

@@ -31,6 +31,7 @@ tests='
 
 04-echo-var
 04-echo-equal
+04-echo-word-at
 
 05-assignment
 05-assignment-echo

gash/script.scm

@@ -105,8 +105,8 @@
        (run ast)
        0))
     (((? string?) ..1) (exec (append-map glob args)))
-    (((and (or (? string?)) c) ((and (? string?) a) ...))
-     (exec (append-map glob (cons c a))))
+    (((and (or (? string?)) c) ... ((and (? string?) a) ...))
+     (apply command (append c a)))
     (_  (exec (append-map glob args)))))
 
 (define (glob? pattern)

test/04-echo-word-at.sh

@@ -0,0 +1 @@
+echo command $@

test/04-echo-word-at.stdout

@@ -0,0 +1 @@
+command -s --long file0 file1