123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- (define-module (box-mixed))
- (load-extension "libbox-module" "scm_init_box")
- (define (make-box-list . args)
- (map (lambda (el)
- (let ((b (make-box)))
- (box-set! b el) b))
- args))
- (define (box-map func lst)
- (map (lambda (el)
- (let ((b (make-box)))
- (box-set! b (func (box-ref el)))
- b))
- lst))
- (export make-box-list box-map)
|