suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use list* for cons*

Browse Source 
svn: r9009
This commit is contained in:
Eli Barzilay 2008-03-17 18:17:13 +00:00
parent f93e2f2de7
commit a314447264
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/srfi/1/cons.ss
View File

@ -66,11 +66,12 @@
;;
;; (cons first (unfold not-pair? car cdr rest values))
(define (cons* first . rest)
(let recur ((x first) (rest rest))
(if (pair? rest)
(cons x (recur (car rest) (cdr rest)))
x)))
(define cons* list*) ; same in mzscheme
;; (define (cons* first . rest)
;; (let recur ((x first) (rest rest))
;; (if (pair? rest)
;; (cons x (recur (car rest) (cdr rest)))
;; x)))
(define (list-copy lis)
(let recur ((lis lis))