[pypy-commit] lang-scheme default: dot (.) is valid in symbols

[boemmels]

Author: Juergen Boemmels <boemmels at web.de>
Branch: 
Changeset: r10:61ac600ed18d
Date: 2011-09-09 22:00 +0200
http://bitbucket.org/pypy/lang-scheme/changeset/61ac600ed18d/

Log:	dot (.) is valid in symbols

diff --git a/scheme/ssparser.py b/scheme/ssparser.py
--- a/scheme/ssparser.py
+++ b/scheme/ssparser.py
@@ -37,7 +37,7 @@
         return {W_Character(c[2])};
 
     SYMBOL:
-        c = `[\+\-\*\^\?a-zA-Z!<=>_~/$%&:][\+\-\*\^\?a-zA-Z0-9!<=>_~/$%&:]*`
+        c = `[\+\-\*\^\?a-zA-Z!<=>_~/$%&:][\+\-\*\^\?a-zA-Z0-9!<=>_~/$%&:.]*`
         IGNORE*
         return {symbol(c)};
 
diff --git a/scheme/test/test_parser.py b/scheme/test/test_parser.py
--- a/scheme/test/test_parser.py
+++ b/scheme/test/test_parser.py
@@ -54,6 +54,7 @@
                  '-',
                  'set!',
                  'eqv?',
+                 'foo.bar',
                 ]
     for s in more_syms:
         w_sym = parse_sexpr(s)