;;; until.scm  --  Jens Axel Søgaard

(module until mzscheme
  (provide until)
  
  (define-syntax (until stx)
    (syntax-case stx ()
      [(until expr body ...)
       #'(let loop ()
           body ...
           (if (not expr)
               (loop)))]))
  
  )