shell: Make 'continue' work in while loops.

* geesh/shell.scm (sh:while): Use 'call-with-continue' when invoking the body thunk.
2018-12-21 20:40:52 -05:00 · 2018-12-21 20:40:52 -05:00 · 4d1e0c96a4
parent 0dc3f63cad
commit 4d1e0c96a4
1 changed files with 1 additions and 1 deletions
--- a/geesh/shell.scm
+++ b/geesh/shell.scm
@ -353,7 +353,7 @@ of each thunk sent to the input of the next thunk."
        (without-errexit test-thunk)
        (cond
         ((= (get-status) 0)
-          (thunk)
+          (call-with-continue thunk)
          (loop (get-status)))
         (else
          (set-status! last-status)))))))