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

[factor.git] / basis / interval-maps / interval-maps.factor

diff --git a/basis/interval-maps/interval-maps.factor b/basis/interval-maps/interval-maps.factor
index b94266282cf057ee19d048bb79d14bf8adfe6bfd..e9130a3c40c6b82828c11fe52c6da85b82afe8d6 100644 (file)
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@@ -58,7 +58,7 @@ PRIVATE>
     [\r
         alist sort-keys unclip swap [ [ first dup ] [ second ] bi ] dip\r
         [| oldkey oldval key val | ! Underneath is start\r
-            oldkey 1+ key =\r
+            oldkey 1 + key =\r
             oldval val = and\r
             [ oldkey 2array oldval 2array , key ] unless\r
             key val\r