X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fsorting%2Finsertion%2Finsertion.factor;h=78b1493920cca026cde6aa54b8e9085f3e5cb462;hp=8bc12e270441894929fa3300274244e8ca190181;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/basis/sorting/insertion/insertion.factor b/basis/sorting/insertion/insertion.factor
index 8bc12e2704..78b1493920 100644
--- 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>