From ffdeaa96e32f513684014e73ba8d01ba6a1a0a9c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 30 Jul 2020 18:57:00 -0400
Subject: [PATCH] Added (drop)

---
 scheme/cyclone/util.sld | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld
index e16b93b8..a9474549 100644
--- a/scheme/cyclone/util.sld
+++ b/scheme/cyclone/util.sld
@@ -92,6 +92,7 @@
     list-prefix?
     string-replace-all
     take
+    drop
     filter)
   (inline
     env:frame-values
@@ -342,6 +343,11 @@
         (cons (car lis)
               (recur (cdr lis) (- k 1))))))
 
+(define (drop lis k)
+  ;(check-arg integer? k drop)
+  (let iter ((lis lis) (k k))
+    (if (zero? k) lis (iter (cdr lis) (- k 1)))))
+
 ; char->natural : char -> natural
 (define (char->natural c)
   (let ((i (char->integer c)))