Repair error in schema include

This commit is contained in:
Tony Garnock-Jones 2021-07-03 16:27:50 +02:00
parent c04447d62a
commit 0fb1ef4efd
2 changed files with 5 additions and 1 deletions

View File

@ -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))

View File

@ -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))))