test: 07-variable-or-doublequete.sh: New failing parse test.

check.sh

@@ -43,6 +43,7 @@ tests='
 07-variable-not-or
 07-variable-or-slash
 07-variable-or-variable
+07-variable-or-doublequote
 
 08-variable-and
 08-variable-not-and

gash/grammar.scm

@@ -245,7 +245,7 @@
     (('compound compound) (transform compound))
     (('compound compound ...) `(begin ,@(map transform compound)))
 
-    (('command (word (or "." "source")) file-name)
+    (('command ('word (or "." "source")) file-name)
      `(source ,(transform file-name)))
     (('command word ... ('io-redirect ('io-here "<<" ('io-here-document string))))
      `(pipeline (cut display ,string) (command ,@word)))
@@ -281,5 +281,7 @@
     (('function name body)
      `(function ,name (lambda ( . args) ,(transform body))))
 
+    (('word 'delim) '(word ""))
+
     ((h t ...) (map transform o))
     (_ o)))

gash/script.scm

@@ -45,6 +45,7 @@
             brace-group
             builtin
             command
+            delim
             doublequotes
             file-name
             for-clause

test/07-variable-or-doublequote.sh

@@ -0,0 +1,4 @@
+CPPFLAGS=${CPPFLAGS-"
+-I ${srcdest}src
+"}
+echo $CPPFLAGS

test/07-variable-or-doublequote.stdout

@@ -0,0 +1 @@
+-I src