use lang-reader-module-paths
instead of copy-pasted code (#3)
Relies on 42dcc525b1
This commit is contained in:
parent
a350659906
commit
4fb9b3ec29
|
@ -2,7 +2,7 @@
|
|||
|
||||
(define collection "2d")
|
||||
(define version "1.1")
|
||||
(define deps '("base"
|
||||
(define deps '(["base" #:version "6.6.0.3"]
|
||||
"scribble-lib"
|
||||
"syntax-color-lib"))
|
||||
(define pkg-desc "Implementation (no documentation) part of \"2d\"")
|
||||
|
|
|
@ -15,15 +15,7 @@
|
|||
(make-meta-reader
|
||||
'2d
|
||||
"language path"
|
||||
(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"))))))
|
||||
lang-reader-module-paths
|
||||
wrap-reader
|
||||
wrap-reader
|
||||
(lambda (proc)
|
||||
|
|
Loading…
Reference in New Issue
Block a user