1c54c926bfe8
Move take to utility lib
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Mon, 08 Aug 2016 16:38:41 +0000 |
| parents | c863300abd60 |
| children | e85b5846bc5d |
| branches/tags | (none) |
| files | silt.lisp |
Changes
--- 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)))