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

add simple map.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-09 22:01:13 +02:00
parent 1fe2fb51b1
commit 717ae9cdc1
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scm.mes
View file

@ -92,3 +92,7 @@ EOF
(define-macro (let* bindings . body)
(expand-let* bindings body))
(define (map f l . r)
(cond ((null l) '())
((null r) (cons (f (car l)) (map f (cdr l))))))

4
test.mes
View file

@ -98,4 +98,8 @@
(newline)
(display 'let*-dun)
(newline)
(map display '(1 2 3 4))
(newline)
(map '(lambda (x) (display x) (newline)) '(5 6 7 8))
(newline)
'()