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

Export cons* from SRFI 1.

contrib/40.srfi/srfi/1.scm

@@ -42,7 +42,7 @@
             (rec (- count 1)
                  (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
   ;; pair? null?

contrib/40.srfi/t/1.scm

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