further ecmascript work

[bpt/guile.git] / module / language / ecmascript / tokenize.scm

diff --git a/module/language/ecmascript/tokenize.scm b/module/language/ecmascript/tokenize.scm
index 7a716e0..936b304 100644 (file)
--- a/module/language/ecmascript/tokenize.scm
+++ b/module/language/ecmascript/tokenize.scm
@@ -225,7 +225,7 @@
                  => (lambda (x) `(,x . #f)))
                 ((assoc-ref *future-reserved-words* word)
                  (error "word is reserved for the future, dude." word))
-                (else `(Identifier . ,word))))
+                (else `(Identifier . ,(string->symbol word)))))
         (begin (read-char port)
                (lp (peek-char port) (cons c chars))))))