hopefully this fixes the reader
This commit is contained in:
parent
cf8b64c2f1
commit
fca8612d98
|
@ -36,17 +36,19 @@
|
|||
(make-meta-reader
|
||||
'udelim
|
||||
"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
|
||||
(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)
|
||||
(lambda (key defval)
|
||||
|
|
Loading…
Reference in New Issue
Block a user