Merge pull request #2681 from hurufu/remove-dcgs-that-have-failed-to-expand

Remove DCGs that have thrown an exception during term expansion
2024-12-25 14:29:38 -07:00
parent afc7b74bbd a599a11169
commit d57f871a12
5 changed files with 19 additions and 2 deletions
--- a/tests/scryer/cli/issues/not_supported_dcg_constructs.in/main.pl
+++ b/tests/scryer/cli/issues/not_supported_dcg_constructs.in/main.pl
@@ -0,0 +1,6 @@
+:- use_module(library(dcgs)).
+
+d -->
+        (   { true } -> []
+        ;   { true } -> []
+        ).
--- a/tests/scryer/cli/issues/not_supported_dcg_constructs.stderr
+++ b/tests/scryer/cli/issues/not_supported_dcg_constructs.stderr
--- a/tests/scryer/cli/issues/not_supported_dcg_constructs.stdout
+++ b/tests/scryer/cli/issues/not_supported_dcg_constructs.stdout
@@ -0,0 +1 @@
+   error(representation_error(dcg_body),[culprit-({true}->[])]).
--- a/tests/scryer/cli/issues/not_supported_dcg_constructs.toml
+++ b/tests/scryer/cli/issues/not_supported_dcg_constructs.toml
@@ -0,0 +1,7 @@
+# issue 2675
+args = [
+    "-f",
+    "--no-add-history",
+    "-g", "halt",
+     "main.pl"
+]
				`@@ -0,0 +1 @@`
				`error(representation_error(dcg_body),[culprit-({true}->[])]).`