13 lines
350 B
Scheme
13 lines
350 B
Scheme
(module tex2page mzscheme
|
|
(require (lib "etc.ss"))
|
|
(provide tex2page)
|
|
(define
|
|
tex2page
|
|
(lambda (f)
|
|
(parameterize
|
|
((current-namespace (make-namespace)))
|
|
(namespace-require
|
|
`(file
|
|
,(build-path (this-expression-source-directory) "tex2page-aux.ss")))
|
|
((namespace-variable-value 'tex2page) f)))))
|