From 7d2c1b0b9efff68513ab20bd9f9f04aef0f57b1f Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Wed, 29 Jul 2009 19:43:49 +0300
Subject: [PATCH] added missing punctuations that are allowd in scribble
 parens.

---
 scheme/ikarus.reader.ss | 21 ++++++++++++---------
 scheme/last-revision    |  2 +-
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/scheme/ikarus.reader.ss b/scheme/ikarus.reader.ss
index 594e924..4e28a70 100644
--- a/scheme/ikarus.reader.ss
+++ b/scheme/ikarus.reader.ss
@@ -1227,16 +1227,19 @@
                            (append a*^ b*^)
                            locs k))]
                 [else (values a* a*^ locs k)]))))
-        (define puncs 
-          '([#\| . #\|]
-            [#\< . #\>]
-            [#\[ . #\]]
-            [#\( . #\)]
-            [#\! . #\!]
-            [#\- . #\-]))
         (define (left-punc? c)
-          (and (assv c (cdr puncs)) #t))
-        (define (rev-punc c) (cdr (assv c puncs)))
+          (define chars "([<!?~$%^&*-_+=:")
+          (let f ([i 0])
+            (cond
+              [(= i (string-length chars)) #f]
+              [(char=? c (string-ref chars i)) #t]
+              [else (f (+ i 1))])))
+        (define (rev-punc c) 
+          (cond
+            [(char=? c #\() #\)]
+            [(char=? c #\[) #\]]
+            [(char=? c #\<) #\>]
+            [else c]))
         (define (read-at-bar p locs k text-mode?)
           (let ([c (peek-char p)])
             (cond
diff --git a/scheme/last-revision b/scheme/last-revision
index ee91235..dec2115 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1830
+1831