oops, merge fix

This commit is contained in:
Jan Nieuwenhuizen 2018-07-14 08:29:51 +02:00
parent 7054858d9a
commit f98637b8aa
1 changed files with 3 additions and 4 deletions

View File

@ -394,10 +394,9 @@ mostly works, pipes work, some redirections work.
(when (and (not (zero? status))
(shell-opt? "errexit"))
(exit status))))
(let ((ast (transform ast)))
(match ast
('script #t) ;; skip
(_ (for-each exec ast)))))
(match ast
('script #t) ;; skip
(_ (for-each exec ast))))
(define prompt
(let* ((l (string #\001))