15 lines
273 B
Scheme
15 lines
273 B
Scheme
#lang scheme/base
|
|
|
|
(require scribble/struct
|
|
scheme/class)
|
|
|
|
(provide keep-file)
|
|
|
|
(define (keep-file file)
|
|
(make-delayed-element
|
|
(lambda (render part ri)
|
|
(send render install-file file)
|
|
null)
|
|
(lambda () 0)
|
|
(lambda () (make-element #f (list)))))
|