drop-right: srfi-13->srfi-1

mes/module/mes/scm.mes

@@ -194,6 +194,9 @@
       (lambda args
         (proc (apply (apply compose rest) args)))))
 
+(define (drop-right lst n)
+  (list-head lst (- (length lst) n)))
+
 
 ;; Hash
 

mes/module/srfi/srfi-1.scm

@@ -23,7 +23,8 @@
 ;;; Code:
 
 (define-module (srfi srfi-1)
-  #:export (every
+  #:export (drop-right
+            every
             find
             filter
             append-map
@@ -50,6 +51,9 @@
             reverse!
             take-while))
 
+(define (drop-right lst n)
+  (list-head lst (- (length lst) n)))
+
 (define (find pred lst)
   (let loop ((lst lst))
     (if (null? lst) #f

mes/module/srfi/srfi-13.scm

@@ -32,7 +32,6 @@
             string-split
             string-take
             string-drop
-            drop-right
             string-drop-right
             string-delete
             string-index
@@ -98,9 +97,6 @@
         ((> n 0) (list->string (list-tail (string->list s) n)))
         (else s (error "string-drop: not supported: (n s)=" (cons n s)))))
 
-(define (drop-right lst n)
-  (list-head lst (- (length lst) n)))
-
 (define (string-drop-right s n)
   (cond ((zero? n) s)
         ((> n 0) ((compose list->string (lambda (o) (drop-right o n)) string->list) s))