Fix bug: list parser wasn't recognizing whitespace before the close
authorChris Hanson <org/chris-hanson/cph>
Thu, 26 Oct 2006 02:31:31 +0000 (02:31 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 26 Oct 2006 02:31:31 +0000 (02:31 +0000)
paren.

v7/src/xml/turtle.scm

index 6c3f537e2c3bf7250e88fe8270b522c9125390b5..f62df9f9f4a350c1752c93fb967c4fc3db5a9ec9 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: turtle.scm,v 1.12 2006/10/20 02:04:05 cph Exp $
+$Id: turtle.scm,v 1.13 2006/10/26 02:31:31 cph Exp $
 
 Copyright 2006 Massachusetts Institute of Technology
 
@@ -145,7 +145,7 @@ USA.
                           (* (seq ","
                                   parse:ws*
                                   parse:object-required))
-                          (alt ")"
+                          (alt (seq parse:ws* ")")
                                (error #f
                                       "Expected close parenthesis"))))))))))