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

[factor.git] / basis / sorting / insertion / insertion.factor

diff --git a/basis/sorting/insertion/insertion.factor b/basis/sorting/insertion/insertion.factor
index 8bc12e270441894929fa3300274244e8ca190181..78b1493920cca026cde6aa54b8e9085f3e5cb462 100644 (file)
--- a/basis/sorting/insertion/insertion.factor
+++ b/basis/sorting/insertion/insertion.factor
@@ -4,9 +4,9 @@ IN: sorting.insertion
 <PRIVATE
 :: insert ( seq quot: ( elt -- elt' ) n -- )
     n zero? [
-        n n 1- [ seq nth quot call ] bi@ >= [
-            n n 1- seq exchange
-            seq quot n 1- insert
+        n n 1 - [ seq nth quot call ] bi@ >= [
+            n n 1 - seq exchange
+            seq quot n 1 - insert
         ] unless
     ] unless ; inline recursive
 PRIVATE>