diff options
-rw-r--r-- | module/language/js-il/compile-javascript.scm | 11 |
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) |