peg: need to compile at top level to prevent races on parallel-map

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index 1ccd3ffda5053bee76e2e861cb581f74381cb717..6617b1749febca06a933615aa16eaf8eeb0876e2 100644 (file)
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -591,14 +591,22 @@ PRIVATE>
     ! to fix boxes so this isn't needed...
     box-parser boa f next-id parser boa [ ] action ;
 
-ERROR: parse-failed input word ;
-
 SYNTAX: PARTIAL-PEG:
-    (:) [ ( -- parser ) memoize-quot '[ @ parse ] ] dip
-    define-declared ;
+    (:) '[
+        [
+            _ _ call( -- parser ) compile
+            [ compiled-parse ast>> ] curry
+            _ define-declared
+        ] with-compilation-unit
+    ] append! ;
 
 SYNTAX: PEG:
-    (:) [ ( -- parser ) memoize-quot '[ @ parse-fully ] ] dip
-    define-declared ;
+    (:) '[
+        [
+            _ _ call( -- parser ) compile
+            [ compiled-parse check-parse-result ast>> ] curry
+            _ define-declared
+        ] with-compilation-unit
+    ] append! ;
 
 { "debugger" "peg" } "peg.debugger" require-when