diff --git a/beautiful-racket-lib/br/main.rkt b/beautiful-racket-lib/br/main.rkt index f009cec..c1ee06f 100644 --- a/beautiful-racket-lib/br/main.rkt +++ b/beautiful-racket-lib/br/main.rkt @@ -23,9 +23,9 @@ (provide (rename-out [br-read read] [br-read-syntax read-syntax] - [at:get-info get-info])) + [brr-mod:get-info get-info])) - (module at-reader syntax/module-reader + (module br-reader syntax/module-reader #:language 'br #:info br-get-info #:read my-read @@ -34,9 +34,9 @@ (define (my-read ip) (syntax->datum (my-read-syntax ip))) (define (my-read-syntax src ip) (parameterize ([current-readtable (at:make-at-readtable #:command-char #\◊)]) - (at:read-syntax src ip)))) + (read-syntax src ip)))) - (require debug/reader (prefix-in at: 'at-reader)) + (require debug/reader (prefix-in brr-mod: 'br-reader)) #| Use wrap-reader on the whole-module read function that would be exported @@ -44,5 +44,5 @@ by the reader module, not the single-expression read function like at:read-syntax that you deal with within syntax/module-reader or normal use. |# - (define br-read (wrap-reader at:read)) - (define br-read-syntax (wrap-reader at:read-syntax))) \ No newline at end of file + (define br-read (wrap-reader brr-mod:read)) + (define br-read-syntax (wrap-reader brr-mod:read-syntax))) \ No newline at end of file