hopefully this fixes the reader
This commit is contained in:
parent
cf8b64c2f1
commit
fca8612d98
|
@ -36,17 +36,19 @@
|
||||||
(make-meta-reader
|
(make-meta-reader
|
||||||
'udelim
|
'udelim
|
||||||
"language path"
|
"language path"
|
||||||
lang-reader-module-paths
|
;lang-reader-module-paths
|
||||||
|
(lambda (bstr)
|
||||||
|
(let* ([str (bytes->string/latin-1 bstr)]
|
||||||
|
[sym (string->symbol str)])
|
||||||
|
(and (module-path? sym)
|
||||||
|
(vector
|
||||||
|
;; try submod first:
|
||||||
|
`(submod ,sym reader)
|
||||||
|
;; fall back to /lang/reader:
|
||||||
|
(string->symbol (string-append str "/lang/reader"))))))
|
||||||
|
|
||||||
|
wrap-reader
|
||||||
wrap-reader
|
wrap-reader
|
||||||
(lambda (orig-read-syntax)
|
|
||||||
(define read-syntax (wrap-reader orig-read-syntax))
|
|
||||||
(lambda args
|
|
||||||
(define stx (apply read-syntax args))
|
|
||||||
;(define old-prop (syntax-property stx 'module-language))
|
|
||||||
;(define new-prop `#(at-exp/lang/language-info get-language-info ,old-prop))
|
|
||||||
;(syntax-property stx 'module-language new-prop)
|
|
||||||
stx
|
|
||||||
))
|
|
||||||
(lambda (proc) proc)
|
(lambda (proc) proc)
|
||||||
#;(lambda (proc)
|
#;(lambda (proc)
|
||||||
(lambda (key defval)
|
(lambda (key defval)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user