@@ -465,7 +465,9 @@
465465 [%blok blok]
466466 [%asmnt varlist exprlist]
467467 [%label label]
468+ [%goto label]
468469 [%func-call functioncall]
470+ [%break ~]
469471 [%empty ~]
470472 ==
471473++ parse-stat
@@ -474,6 +476,15 @@
474476 ;~ pose
475477 (cold [%empty ~] (just ';'))
476478 ::
479+ (cold [%break ~] (jest 'break'))
480+ ::
481+ %+ cook
482+ |= [* =label] [%goto label]
483+ ;~ (glue ws)
484+ (jest 'goto')
485+ parse-name
486+ ==
487+ ::
477488 %+ cook
478489 |= =label [%label label]
479490 parse-label
@@ -513,6 +524,13 @@
513524 ==
514525 %label (print-label +.stat)
515526 %func-call (print-functioncall +.stat)
527+ %break "break"
528+ %goto
529+ %- zing
530+ :~
531+ "goto "
532+ (trip +.stat)
533+ ==
516534 ==
517535:: functioncall
518536::