suzanne.soy/aful
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Forgot to use the patched version of extend-reader in the previous commit

Browse Source
This commit is contained in:
Georges Dupéron 2017-01-01 22:22:18 +01:00
parent ba98a1848b
commit 78b507dd1d
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
aful/reader.rkt
View File

@ -62,14 +62,14 @@
(require syntax/strip-context) (require syntax/strip-context)
(define ((wrap-reader-unhygienic p) . p-args) (define ((wrap-reader-unhygienic p) . p-args)
(strip-context (strip-context
(apply (extend-reader p (apply (extend-reader-unhygienic p
(λ ([orig-rt (current-readtable)] (λ ([orig-rt (current-readtable)]
#:outer-scope outer-scope #:outer-scope outer-scope
#:arg-str [arg-str (current-arg-string)]) #:arg-str [arg-str (current-arg-string)])
(make-aful-readtable orig-rt (make-aful-readtable orig-rt
#:outer-scope (λ (stx [mode 'flip]) stx) #:outer-scope (λ (stx [mode 'flip]) stx)
#:arg-str arg-str)) #:arg-str arg-str))
#:hygiene? #f) #:hygiene? #f)
p-args))) p-args)))
(define (make-aful-readtable [orig-rt (current-readtable)] (define (make-aful-readtable [orig-rt (current-readtable)]