# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1470674321 0
# Node ID 1c54c926bfe8c287144319b5406352ee5d923a00
# Parent  c863300abd60f718994fc336cb8446c8530bde24
Move take to utility lib

diff -r c863300abd60 -r 1c54c926bfe8 silt.lisp
--- a/silt.lisp	Mon Aug 08 16:23:45 2016 +0000
+++ b/silt.lisp	Mon Aug 08 16:38:41 2016 +0000
@@ -193,12 +193,6 @@
               (write-string-at (left-pad string padding) tx ty))))))
 
 
-(defun take (n list)
-  (iterate (repeat n)
-           (for item :in list)
-           (collect item)))
-
-
 (defun log-height ()
   (max 5 (floor *screen-height* 4)))