Fix SET-PATH! in PARSE

metaeducation · Jan 29, 2017 · 89f2202 · 89f2202
1 parent 6866c00
commit 89f2202
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 4 deletions.
diff --git a/src/core/u-parse.c b/src/core/u-parse.c
@@ -1684,11 +1684,12 @@ REBNATIVE(subparse)
                 )) {
                     fail (Error_No_Catch_For_Throw(&save));
                 }
-                rule = &save;
 
-                // !!! code used to say `if (!rule) continue;` "for SET and
-                // GET cases", but here rule isn't set to NULL...so it falls
-                // through and does not continue.  Investigate.
+                // Nothing left to do after storing the parse position in the
+                // path location...continue.
+                //
+                FETCH_NEXT_RULE_MAYBE_END(f);
+                continue;
             }
             else if (IS_GET_PATH(P_RULE)) {
 

diff --git a/tests/parse-tests.r b/tests/parse-tests.r
@@ -140,3 +140,9 @@
 ; self-modifying rule, not legal in Ren-C if it's during the parse
 
 [error? try [not parse? "abcd" rule: ["ab" (remove back tail rule) "cd"]]]
+
+[
+    https://github.com/metaeducation/ren-c/issues/377
+    o: make object! [a: 1]
+    true = parse "a" [o/a: skip]
+]