correct mishandled blocking of cuts

diff --git a/src/prolog/builtins.rs b/src/prolog/builtins.rs
index b379acba61d9fad402cd11faa7bd0db1823189d8..71d4c7e3ec7e299b3ca5d7d633348aac87d57049 100644 (file)
--- a/src/prolog/builtins.rs
+++ b/src/prolog/builtins.rs
@@ -333,7 +333,7 @@ fn get_builtins() -> Code {
                 put_constant!(Level::Shallow, integer!(1), temp_v!(3)),
                 put_unsafe_value!(2, 4)],
          deallocate!(),
-         goto_execute!(252, 4), // goto get_args/4, 252.
+         goto_execute!(252, 4), // goto get_args/4, 251.
          try_me_else!(5), // get_args/4, 252.
          fact![get_var_in_fact!(temp_v!(5), 1),
                get_constant!(integer!(0), temp_v!(4))],

diff --git a/src/prolog/parser b/src/prolog/parser
index 0969b6f0e6c687f4beace699ab40f098a0cd58c9..1d06c7d2e51315560751c653522979caa37be227 160000 (submodule)
--- a/src/prolog/parser
+++ b/src/prolog/parser
@@ -1 +1 @@
-Subproject commit 0969b6f0e6c687f4beace699ab40f098a0cd58c9
+Subproject commit 1d06c7d2e51315560751c653522979caa37be227