allow underscores and dashes in identifiers

smtlaissezfaire · Jun 6, 2011 · 18f483e · 18f483e
1 parent 1b0cca2
commit 18f483e
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/spec/loop_spec.rb b/spec/loop_spec.rb
@@ -315,6 +315,14 @@ def run_with_printing(cmd)
 
         run(code).should == "10"
       end
+
+      it "should allow dashes in identifiers" do
+        run("(define foo-bar 10) (print foo-bar)").should == "10"
+      end
+
+      it "should allow underscores in identifiers" do
+        run("(define foo_bar 10) (print foo_bar)").should == "10"
+      end
     end
 
     describe "scoping variables" do

diff --git a/src/scanner.re2c b/src/scanner.re2c
@@ -64,7 +64,7 @@ Token *scan(string str) {
       period         = ".";
       float          = [0-9]* period [0-9]+;
       string         = "\"" ([^"])* "\"";
-      symbol         = [a-z?]+;
+      symbol         = [a-z\?\-\_]+;
       boolean_true   = "#t";
       boolean_false  = "#f";
       open_paren     = "(";