Fixes bug 173200: semi-colon is not a delimiter

2007-12-01 03:18:28 -05:00 · 2007-12-01 03:18:28 -05:00 · 75e09500c4
parent bd06d39220
commit 75e09500c4
3 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.boot.prebuilt
+++ b/scheme/ikarus.boot.prebuilt
--- a/scheme/ikarus.reader.ss
+++ b/scheme/ikarus.reader.ss
@ -27,7 +27,7 @@
  (define delimiter?
    (lambda (c)
      (or (char-whitespace? c)
-          (memq c '(#\( #\) #\[ #\] #\{ #\} #\' #\` #\, #\")))))
+          (memq c '(#\( #\) #\[ #\] #\" #\# #\;)))))
  (define digit?
    (lambda (c)
      (and ($char<= #\0 c) ($char<= c #\9))))
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1157
+1158