Repair Racket schema reader
This commit is contained in:
parent
498c63ef67
commit
7683a64a5b
|
@ -200,7 +200,10 @@
|
||||||
(findf symbol? (map peel-annotations (annotations input))))
|
(findf symbol? (map peel-annotations (annotations input))))
|
||||||
|
|
||||||
(define (port->schema src [p (current-input-port)])
|
(define (port->schema src [p (current-input-port)])
|
||||||
(parse-schema-dsl (port->preserves p #:read-syntax? #t #:source src)
|
(parse-schema-dsl (port->preserves p
|
||||||
|
#:decode-embedded values
|
||||||
|
#:read-syntax? #t
|
||||||
|
#:source src)
|
||||||
#: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 #:read-syntax? #t)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue