This basically provides , and .
|(require (planet dyoo/while-loop:1:=1))|
#lang racket/base (require (planet dyoo/while-loop)) ( (not (string=? (read-line) "quit")) (printf "quit? ")) ( #t (define input (read-line)) (unless (regexp-match #px"please" input) (printf "You didn't say please\n") ()) (when (regexp-match #px"quit" input) ()))
Repeat the evaluation of the body so long as test is true.
Break out of the innermost loop.
Restart the innermost loop.