From 0fededb98acf24d5e50a4dafdc0773d4cfa783be Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 21 Jun 2019 14:34:02 -0700 Subject: [PATCH] use lozenge --- beautiful-racket-lib/br/main.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/beautiful-racket-lib/br/main.rkt b/beautiful-racket-lib/br/main.rkt index f640ee1..f009cec 100644 --- a/beautiful-racket-lib/br/main.rkt +++ b/beautiful-racket-lib/br/main.rkt @@ -28,9 +28,13 @@ (module at-reader syntax/module-reader #:language 'br #:info br-get-info - #:read at:read - #:read-syntax at:read-syntax - (require br/get-info (prefix-in at: scribble/reader))) + #:read my-read + #:read-syntax my-read-syntax + (require br/get-info (prefix-in at: scribble/reader)) + (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)))) (require debug/reader (prefix-in at: 'at-reader))