From 5b68d78631e44aa6891bd30851c736a25558f9a1 Mon Sep 17 00:00:00 2001
From: William G Hatch <william@hatch.uno>
Date: Wed, 21 Sep 2016 12:11:13 -0600
Subject: [PATCH] add more parens

---
 udelim/lang/reader.rkt | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/udelim/lang/reader.rkt b/udelim/lang/reader.rkt
index 9f8a53c..ceeb0f0 100644
--- a/udelim/lang/reader.rkt
+++ b/udelim/lang/reader.rkt
@@ -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])