make crs compaible with debug

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

@ -126,5 +126,6 @@
(#%module-begin
(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 (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]))))

@ -1 +1 @@
1578793791
1578803070

Loading…
Cancel
Save