Repair error in schema include
This commit is contained in:
parent
c04447d62a
commit
0fb1ef4efd
|
@ -57,6 +57,7 @@
|
|||
(string->symbol (path->string (path-replace-extension p "")))))
|
||||
(define relative-output-path
|
||||
(path->string (path-replace-extension relative-input-path ".rkt")))
|
||||
(log-info "Loading Preserves Schema file ~s" full-input-path)
|
||||
(schema (schema-translation-paths full-input-path
|
||||
relative-input-path
|
||||
(path->string (build-path output-directory relative-output-path))
|
||||
|
|
|
@ -227,7 +227,10 @@
|
|||
#:read-syntax? #t
|
||||
#:source src)
|
||||
#:source src
|
||||
#:read-include (and src (lambda (src) (file->preserves src #:read-syntax? #t)))))
|
||||
#:read-include (and src (lambda (src)
|
||||
(file->preserves src
|
||||
#:decode-embedded values
|
||||
#:read-syntax? #t)))))
|
||||
|
||||
(define (file->schema src)
|
||||
(call-with-input-file src (lambda (p) (port->schema src p))))
|
||||
|
|
Loading…
Reference in New Issue