peg: compile parser at compile-time so parallel-map doesn't race the compiler

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index 87923a264852fcb9a7ba76fb78540992bd924622..84a0e9b371ea4f03e9b547116a5bff2295518fc3 100644 (file)
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -595,14 +595,14 @@ PRIVATE>
 
 SYNTAX: PARTIAL-PEG:
     (:) [
-        '[ @ compile-parser ] ( -- word ) memoize-quot
-        '[ @ perform-parse ast>> ]
+        call( -- parser ) compile-parser
+        '[ _ perform-parse ast>> ]
     ] dip define-declared ;
 
 SYNTAX: PEG:
     (:) [
-        '[ @ compile-parser ] ( -- word ) memoize-quot
-        '[ @ perform-parse check-parse-result ast>> ]
+        call( -- parser ) compile-parser
+        '[ _ perform-parse check-parse-result ast>> ]
     ] dip define-declared ;
 
 { "debugger" "peg" } "peg.debugger" require-when