make crs compaible with debug

pull/218/head
Matthew Butterick 5 years ago
parent bba9cff6c9
commit 7534f32dac

@ -126,5 +126,6 @@
(#%module-begin (#%module-begin
(define cgi (custom-get-info mode)) ; stash hygienic references to local funcs with macro-introduced identifiers (define cgi (custom-get-info mode)) ; stash hygienic references to local funcs with macro-introduced identifiers
(define cr custom-read) ; so they can be provided out (define cr custom-read) ; so they can be provided out
(define (crs ps p) (custom-read-syntax #:reader-mode mode ps p)) ;; allow six-argument arity to be compatible with `debug`
(define (crs ps p . _) (custom-read-syntax #:reader-mode mode ps p))
(provide (rename-out [cr read][crs read-syntax][cgi get-info])))) (provide (rename-out [cr read][crs read-syntax][cgi get-info]))))

@ -1 +1 @@
1578793791 1578803070

Loading…
Cancel
Save