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

This reverts commit 955be99eb94ff1ad2acfd318ecaf0a11cf20bd10.

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