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

[factor.git] / basis / xmode / marker / state / state.factor

diff --git a/basis/xmode/marker/state/state.factor b/basis/xmode/marker/state/state.factor
index 44d3a0285e41a040723c821896cdfb23e16d12c5..3e7e697baa80d3c36fe48be39121454a0b376589 100644 (file)
--- a/basis/xmode/marker/state/state.factor
+++ b/basis/xmode/marker/state/state.factor
@@ -28,7 +28,7 @@ SYMBOLS: line last-offset position context
 
 : next-token, ( len id -- )
     [ position get 2dup + ] dip token,
-    position get + dup 1- position set last-offset set ;
+    position get + dup 1 - position set last-offset set ;
 
 : push-context ( rules -- )
     context [ <line-context> ] change ;