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
(make-list-delim-readtable/wrap
#\﴾ #\﴿ '#%ornate-parens
#\🌜 #\🌛 '#%moon-face
#:base-readtable
(make-list-delim-readtable/wrap
#\⸨ #\⸩ '#%double-parens
#\⦕ #\⦖ '#%double-inequality-bracket
#:base-readtable
(make-string-delim-readtable
#\“ #\”
(make-list-delim-readtable/wrap
#\⦓ #\⦔ '#%inequality-bracket
#: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)
(lambda args
(parameterize ([current-readtable udelim-table])