conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #298 from omasanori/srfi-1-cons-star 

Export cons* from SRFI 1.
This commit is contained in:
OGINO Masanori 2015-07-21 15:18:00 +09:00
parent 24b4cafe65 aa2e11874f
commit c44e3edd57
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/40.srfi/srfi/1.scm
View File

@ -42,7 +42,7 @@
(rec (- count 1) (rec (- count 1)
(cons (+ start (* count step)) acc)))))) (cons (+ start (* count step)) acc))))))
(export cons list xcons make-list list-tabulate list-copy circular-list iota) (export cons list xcons cons* make-list list-tabulate list-copy circular-list iota)
;; # Predicates ;; # Predicates
;; pair? null? ;; pair? null?

4
contrib/40.srfi/t/1.scm
View File

@ -40,8 +40,8 @@
(test '(a b c) (xcons '(b c) 'a)) (test '(a b c) (xcons '(b c) 'a))
; (test '(1 2 3 . 4) (cons* 1 2 3 4)) (test '(1 2 3 . 4) (cons* 1 2 3 4))
; (test 1 (cons* 1)) (test 1 (cons* 1))
(test '(c c c c) (make-list 4 'c)) (test '(c c c c) (make-list 4 'c))