WIP: IF hack

2018-07-14 19:45:30 +02:00 · 2018-07-14 19:45:30 +02:00 · 48373edb3f
parent de6d653c7c
commit 48373edb3f
1 changed files with 3 additions and 1 deletions
--- a/gash/peg.scm
+++ b/gash/peg.scm
@ -262,7 +262,9 @@
    (('pipeline h t) (pk `(pipeline ,(transform h) ,@(map transform t))))
    (('command o ...) (let* ((command (map transform o))
                             (program (car command))
-                             (escape-builtin? (string-prefix? "\\" program))
+                             ;; if [ 0 = 1 ] ... program = '(if ...) not a string
+                             ;; this escape-builtin? is probably not deep enough?
+                             (escape-builtin? (and (string? program) (string-prefix? "\\" program)))
                             (program (if escape-builtin? (string-drop program 1) program))
                             (command (cons program (cdr command))))
                        (when (> %debug-level 1)