From ef53201de53bb29f9f8fad2464ed746c1500f576 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 23 Mar 2015 22:54:24 -0400 Subject: [PATCH] Added (list?) --- trans.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/trans.scm b/trans.scm index 780a0745..8fea0407 100644 --- a/trans.scm +++ b/trans.scm @@ -64,6 +64,12 @@ (if (null? lst) end (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 (map func lst) (foldr (lambda (x y) (cons (func x) y)) '() lst))