mes: Add drop, drop-right.

* module/srfi/srfi-1.mes (drop, drop-right): New function.

diff --git a/module/srfi/srfi-1.mes b/module/srfi/srfi-1.mes
index 494a197e2e3202546a7ebe050cf4572fb106469d..62d470186d710df04c0bec5bae7160d560daa20a 100644 (file)
--- a/module/srfi/srfi-1.mes
+++ b/module/srfi/srfi-1.mes
@@ -131,4 +131,10 @@
               (loop (cdr lst))
                 (cons (car lst) (loop (cdr lst))))))))
 
               (loop (cdr lst))
                 (cons (car lst) (loop (cdr lst))))))))
 

+(define (drop lst n)
+  (list-tail lst n))
+
+(define (drop-right lst n)
+  (list-head lst (- (length lst) n)))
+

 (include-from-path "srfi/srfi-1.scm")
 (include-from-path "srfi/srfi-1.scm")