io-here.

check.sh

@@ -75,6 +75,7 @@ tests="
 41-dot
 
 50-iohere
+50-iohere-builtin
 50-redirect
 50-redirect-space
 50-redirect-in

gash/script.scm

@@ -188,6 +188,8 @@
        #'(with-output-to-file file-name (command word ...)))
       ((_ word ... (io-redirect "2" (io-file ">" file-name)))
        #'(with-error-to-file file-name (command word ...)))
+      ((_ word ... (io-redirect (io-here "<<" (io-here-document string))))
+       #'(pipeline (cut display string) (command word ...)))
       ((_ word ...)
        #'(exec-command word ...)))))
 

test/50-iohere-builtin.sh

@@ -0,0 +1,3 @@
+\cat <<EOF
+foobar
+EOF