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