Update documentation for stricter vocabulary search path semantics

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

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index d4ad62fbea5b2947bba2bfad8f44806b91426a6c..f3d555d5a1447bcbef67ce63df5c83398ba593dd 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -461,7 +461,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
 \r
 M: ebnf-var build-locals ( code ast -- )\r
   [\r
-    "FROM: locals => [let* ; FROM: kernel => dup ; [let* | " %\r
+    "FROM: locals => [let* ; FROM: kernel => dup nip ; [let* | " %\r
     name>> % " [ dup ] " %\r
     " | " %\r
     %  \r