cwebber pushed a commit to branch compile-to-js-merge
in repository guile.
commit 88c052214f257525e4c64277baa2ea23129ce060
Author: Ian Price <[email protected]>
AuthorDate: Tue Jun 23 15:46:26 2015 +0100
Handle more identifier characters
---
module/language/js-il/compile-javascript.scm | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/module/language/js-il/compile-javascript.scm
b/module/language/js-il/compile-javascript.scm
index 3ef9a95..2645b4c 100644
--- a/module/language/js-il/compile-javascript.scm
+++ b/module/language/js-il/compile-javascript.scm
@@ -74,8 +74,17 @@
((#\+) (display "_a" port))
((#\\) (display "_b" port))
((#\/) (display "_f" port))
+ ((#\%) (display "_c" port))
+ ((#\$) (display "_d" port))
+ ((#\~) (display "_t" port))
+ ((#\^) (display "_i" port))
+ ((#\&) (display "_j" port))
+ ((#\:) (display "_k" port))
+ ((#\@) (display "_m" port))
+ ;; unused: noqrvxy
(else
- (throw 'bad-id-char c)))))
+ (display "_z" port)
+ (display (char->integer c) port)))))
name))))
(define (bind-rest-args rest num-drop)
