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

add more parens

Browse Source
This commit is contained in:
William G Hatch 2016-09-21 12:11:13 -06:00
parent e464c48811
commit 5b68d78631
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
udelim/lang/reader.rkt
View File

@ -9,15 +9,24 @@
(define udelim-table (define udelim-table
(make-list-delim-readtable/wrap (make-list-delim-readtable/wrap
#\﴾ #\﴿ '#%ornate-parens #\🌜 #\🌛 '#%moon-face
#:base-readtable #:base-readtable
(make-list-delim-readtable/wrap (make-list-delim-readtable/wrap
#\⸨ #\⸩ '#%double-parens #\⦕ #\⦖ '#%double-inequality-bracket
#:base-readtable #:base-readtable
(make-string-delim-readtable (make-list-delim-readtable/wrap
#\“ #\” #\⦓ #\⦔ '#%inequality-bracket
#:base-readtable #:base-readtable
(make-string-delim-readtable #\« #\»))))) (make-list-delim-readtable/wrap
#\﴾ #\﴿ '#%ornate-parens
#:base-readtable
(make-list-delim-readtable/wrap
#\⸨ #\⸩ '#%double-parens
#:base-readtable
(make-string-delim-readtable
#\“ #\”
#:base-readtable
(make-string-delim-readtable #\« #\»))))))))
(define (wrap-reader p) (define (wrap-reader p)
(lambda args (lambda args
(parameterize ([current-readtable udelim-table]) (parameterize ([current-readtable udelim-table])