Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

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

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index 12e6d59fc01885484737f7ea572688b851df947d..42530151be51f01aa13303e5908f513c3ee5a4c9 100644 (file)
--- 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* ;