make-list   scheme


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

Implementation

(define (make-list lth obj)
  (let loop ((i lth)
       (lst '()))
     (if (< i 1)
   lst
     (loop (- i 1) (cons obj lst)))))


Back to Index

Similar Entries