oops, merge fix
This commit is contained in:
parent
7054858d9a
commit
f98637b8aa
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue