Make the handling of negative values for `end' in cut 0-indexed rather than 1-indexed.

Paul Graham · nex3 · commit 4ebd2e8540fb · 2008-02-13T09:32:21.000-08:00
diff --git a/arc.arc b/arc.arc
@@ -456,7 +456,7 @@
 ; (nthcdr x y) = (cut y x).
 
 (def cut (seq start (o end (len seq)))
-  (let end (if (< end 0) (+ (len seq) end 1) end)
+  (let end (if (< end 0) (+ (len seq) end) end)
     (if (isa seq 'string)
         (let s2 (newstring (- end start))
           (for i 0 (- end start 1)
