artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Add drop, drop-right.

Browse source 
* module/srfi/srfi-1.mes (drop, drop-right): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-05-26 20:47:33 +02:00
parent 4ee1c9595e
commit 2748992551
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/srfi/srfi-1.mes
View file

@ -131,4 +131,10 @@
(loop (cdr lst)) (loop (cdr lst))
(cons (car 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")