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)) ;; (cons first (unfold not-pair? car cdr rest values))
(define (cons* first . rest) (define cons* list*) ; same in mzscheme
(let recur ((x first) (rest rest)) ;; (define (cons* first . rest)
(if (pair? rest) ;; (let recur ((x first) (rest rest))
(cons x (recur (car rest) (cdr rest))) ;; (if (pair? rest)
x))) ;; (cons x (recur (car rest) (cdr rest)))
;; x)))
(define (list-copy lis) (define (list-copy lis)
(let recur ((lis lis)) (let recur ((lis lis))