summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/js-il/compile-javascript.scm11
1 files changed, 10 insertions, 1 deletions
diff --git a/module/language/js-il/compile-javascript.scm b/module/language/js-il/compile-javascript.scm
index 3ef9a950e..2645b4c99 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)