13 lines
200 B
Scheme
13 lines
200 B
Scheme
#lang scheme/base
|
|
|
|
(require scribble/struct
|
|
scheme/class)
|
|
|
|
(provide keep-file)
|
|
|
|
(define (keep-file file)
|
|
(make-render-element
|
|
#f
|
|
null
|
|
(lambda (r s i) (send r install-file file))))
|