| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(constant-list value length)
Return a list containing length elements, each of value.
(constant-list 0 4) returns (0 0 0 0)
Norman Walsh, <norm@berkshire.net>
(define (constant-list value length)
;; Returns a list of the specified value
(let loop ((count (abs length)) (result '()))
(if (equal? count 0)
result
(loop (- count 1) (append result (list value))))))| Prev | Home | Next |
| component-child-number | Up | copy-string |
Copyright © 1997, 1998 Norman Walsh