bug#24061: While loop can't call continue in master branch

[Nala Ginrut]

In 2.1.3.59-516f7, the 'continue' in 'while loop' throw exception. It's
OK in stable-2.0.

========================code============================
(define i 0)
(while (< i 20)
       (display i)(newline)
       (when (= i 11) (continue)) (set! i (1+ i)))
========================end=============================

While compiling expression:
ERROR: Throw to key `match-error' with args `("match" "no matching
pattern" #<cps (kargs () () (continue 16 (prompt #t 46 14)))>)'.