patch for <6.3

dev-langify
Matthew Butterick 6 years ago
parent ba676b5182
commit 92691c3df6

@ -209,13 +209,14 @@
(parameterize ([current-output-port (current-error-port)]) (parameterize ([current-output-port (current-error-port)])
(eval (with-syntax ([MODNAME (gensym)] (eval (with-syntax ([MODNAME (gensym)]
[SOURCE-PATH-STRING (->string source-path)] [SOURCE-PATH-STRING (->string source-path)]
[TEMPLATE-PATH-STRING (->string template-path)]) [TEMPLATE-PATH-STRING (->string template-path)]
[REQUIRE (if (version<? (version) "6.3") 'local-require 'require)])
#'(begin #'(begin
(module MODNAME pollen/private/render-helper (module MODNAME pollen/private/render-helper
#:source SOURCE-PATH-STRING #:source SOURCE-PATH-STRING
#:template TEMPLATE-PATH-STRING #:template TEMPLATE-PATH-STRING
#:result-id result) #:result-id result)
(require 'MODNAME) (REQUIRE 'MODNAME)
result))))) result)))))
(define (templated-source? path) (define (templated-source? path)

Loading…
Cancel
Save