From 7534f32dace668bd1969eb2143f3d3ca0917d11d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 11 Jan 2020 20:24:30 -0800 Subject: [PATCH] make crs compaible with debug --- pollen/private/reader-base.rkt | 3 ++- pollen/private/ts.rktd | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/pollen/private/reader-base.rkt b/pollen/private/reader-base.rkt index f7cec3f..bf1882c 100644 --- a/pollen/private/reader-base.rkt +++ b/pollen/private/reader-base.rkt @@ -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])))) \ No newline at end of file diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 088073b..8bf48ef 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1578793791 +1578803070