cl:list*   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

;@
(define cl:list*
  (letrec ((list*1 (lambda (obj)
         (if (null? (cdr obj))
       (car obj)
       (cons (car obj) (list*1 (cdr obj)))))))
    (lambda (obj1 . obj2)
      (if (null? obj2)
    obj1
    (cons obj1 (list*1 obj2))))))
;@


Back to Index