Change one continue-testing loop from for to while

1 files changed, 5 insertions, 1 deletions

diff --git a/trip.rc b/trip.rc
index 585e6be..6a42350 100644
--- a/trip.rc
+++ b/trip.rc
@@ -605,14 +605,18 @@ q=''''
 C=$q^while-continue$q
 L=()
 
+save_star = *
 ten = a^(1 2 3 4 5 6 7 8 9 10)
 * = $ten
-for (n) {
+while (! ~ $#* 0) {
+  n = $1; shift
   if (~ $n a2 a3) {
     continue
   }
   L=($L $n)
 }
+* = $save_star; save_star = ()
+
 if (!~ $#L 8) {
   fail Wrong length of list from $C: $#L
 }