Arc Forumnew | comments | leaders | submitlogin
1 point by pg 5013 days ago | link | parent

Ok, this is fixed.

    (def split (seq pos)
      (if (< pos 1)
          (list nil seq)
          (withs (mid (nthcdr (- pos 1) seq)
                  s2  (cdr mid))
            (wipe (cdr mid))
            (list seq s2))))