basis: ERROR: changes.

[factor.git] / basis / peg / peg.factor

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index f08f0359f9716acf9005b86db76c8ca9a666d60c..5294f82038d44955a141836ccf42034a03a206f3 100644 (file)
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -618,7 +618,7 @@ SYNTAX: PEG:
             def call compile :> compiled-def
             [
               dup compiled-def compiled-parse
-              [ ast>> ] [ word parse-failed ] ?if
+              [ ast>> ] [ word throw-parse-failed ] ?if
             ]
             word swap effect define-declared
           ] with-compilation-unit