Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-06 12:46:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (list?)

Browse source
This commit is contained in:
Justin Ethier 2015-03-23 22:54:24 -04:00
parent eae579bf32
commit ef53201de5
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
trans.scm
View file

@ -64,6 +64,12 @@
(if (null? lst) (if (null? lst)
end end
(func (car lst) (foldr func end (cdr lst))))) (func (car lst) (foldr func end (cdr lst)))))
(define (list? obj)
(cond
((null? obj) #t)
((pair? obj)
(list? (cdr obj)))
(else #f)))
(define (list . objs) objs) (define (list . objs) objs)
(define (map func lst) (define (map func lst)
(foldr (lambda (x y) (cons (func x) y)) '() lst)) (foldr (lambda (x y) (cons (func x) y)) '() lst))