Fix #89.

colis-anr · Mar 27, 2019 · 38810d5 · 38810d5
1 parent ae44c87
commit 38810d5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/hereDocument.ml b/src/hereDocument.ml
@@ -102,6 +102,8 @@ end = struct
         | (WordLiteral s | WordName s) :: w ->
            let s = Str.(global_replace (regexp "\\") "" s) in
            s ^ unquote w
+        | WordVariable (VariableAtom (s, NoAttribute)) :: w ->
+           "$" ^ s ^ unquote w
         | _ ->
            failwith "Unsupported expansion in here document delimiter"
       in