correction

7 years ago · cae71f0b11
parent f79077aec9
commit cae71f0b11
1 changed files with 16 additions and 8 deletions
--- a/sugar/debug.rkt
+++ b/sugar/debug.rkt
@ -100,7 +100,15 @@
    (make-meta-reader
     'sugar/debug
     "language path"
-     lang-reader-module-paths
+     (λ (bstr) ; copy of `lang-reader-module-paths`, only available since 6.7
+       (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
     (λ (proc)