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

mes: Remove duplicate memq.

Browse source 
* module/mes/base-0.mes (memq): Remove.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-05 11:02:06 +02:00
parent 9fc27ee25a
commit 76e1b0582f
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
module/mes/base-0.mes
View file

@ -118,11 +118,6 @@
(define-macro (include-from-path file) (define-macro (include-from-path file)
(list 'load (list string-append %moduledir file))) (list 'load (list string-append %moduledir file)))
(define (memq x lst)
(if (null? lst) #f
(if (eq? x (car lst)) lst
(memq x (cdr lst)))))
(define (string-join lst infix) (define (string-join lst infix)
(if (null? (cdr lst)) (car lst) (if (null? (cdr lst)) (car lst)
(string-append (car lst) infix (string-join (cdr lst) infix)))) (string-append (car lst) infix (string-join (cdr lst) infix))))