From 4ae116d7ff4be500752243ad5436ae71ff75e322 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 26 Oct 2019 20:40:06 +0200
Subject: [PATCH] core: Prepare for M2-Planet: continue.

Rewrite C-constructs not supported by M2-Planet

    continue              -> goto LABEL

* src/eval-apply.c (eval_apply): Add label: begin_expand_while.  Use it
instead of continue.
---
 src/eval-apply.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/eval-apply.c b/src/eval-apply.c
index 1dae9213..eb289042 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -884,6 +884,7 @@ begin_expand:
   x = cell_unspecified;
   while (R1 != cell_nil)
     {
+    begin_expand_while:
       gc_check ();
 
       if (TYPE (R1) == TPAIR)
@@ -921,7 +922,8 @@ begin_expand:
               R1 = cons (cell_symbol_begin, R1);
               CAR (R2) = R1;
               R1 = R2;
-              continue;
+              goto begin_expand_while;
+              continue; /* FIXME: M2-PLanet */
             }
         }
 
@@ -932,7 +934,8 @@ begin_expand:
         {
           CAR (R2) = R1;
           R1 = R2;
-          continue;
+          goto begin_expand_while;
+          continue; /* FIXME: M2-PLanet */
         }
       R1 = R2;
       expand_variable (CAR (R1), cell_nil);