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

Issue #367 - Allow list-copy to return non-lists

Browse source
This commit is contained in:
Justin Ethier 2020-05-13 15:33:39 -04:00
parent fcf6b04e78
commit 380641ddda
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/base.sld
View file

@ -808,8 +808,12 @@
'() '()
(cons obj (make (- n 1) obj) ))))) (cons obj (make (- n 1) obj) )))))
(make k x))) (make k x)))
(define (list-copy lst) (define (list-copy ls)
(foldr (lambda (x y) (cons x y)) '() lst)) (let lp ((ls ls) (res '()))
(if (pair? ls)
(lp (cdr ls) (cons (car ls) res))
(append (reverse res) ls))))
;; Implementation of receive from SRFI 8 ;; Implementation of receive from SRFI 8
(define-syntax receive (define-syntax receive
(er-macro-transformer (er-macro-transformer