X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fpeg%2Fpeg.factor;h=42530151be51f01aa13303e5908f513c3ee5a4c9;hp=12e6d59fc01885484737f7ea572688b851df947d;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index 12e6d59fc0..42530151be 100644
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -329,7 +329,7 @@ SYMBOL: id
 : next-id ( -- n )
   #! Return the next unique id for a parser
   id get-global [
-    dup 1+ id set-global
+    dup 1 + id set-global
   ] [
     1 id set-global 0
   ] if* ;