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

11
udelim/lang/reader.rkt
View File

@ -8,6 +8,15 @@
[at-get-info get-info])) [at-get-info get-info]))
(define udelim-table (define udelim-table
(make-list-delim-readtable/wrap
#\🌜 #\🌛 '#%moon-face
#:base-readtable
(make-list-delim-readtable/wrap
#\⦕ #\⦖ '#%double-inequality-bracket
#:base-readtable
(make-list-delim-readtable/wrap
#\⦓ #\⦔ '#%inequality-bracket
#:base-readtable
(make-list-delim-readtable/wrap (make-list-delim-readtable/wrap
#\﴾ #\﴿ '#%ornate-parens #\﴾ #\﴿ '#%ornate-parens
#:base-readtable #:base-readtable
@ -17,7 +26,7 @@
(make-string-delim-readtable (make-string-delim-readtable
#\“ #\” #\“ #\”
#:base-readtable #:base-readtable
(make-string-delim-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])