mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Handle more identifier characters

Browse source
This commit is contained in:
Ian Price 2015-06-23 15:46:26 +01:00
parent a680a4cb9d
commit 88c052214f
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/language/js-il/compile-javascript.scm
View file

@ -74,8 +74,17 @@
((#\+) (display "_a" port)) ((#\+) (display "_a" port))
((#\\) (display "_b" port)) ((#\\) (display "_b" port))
((#\/) (display "_f" 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 (else
(throw 'bad-id-char c))))) (display "_z" port)
(display (char->integer c) port)))))
name)))) name))))
(define (bind-rest-args rest num-drop) (define (bind-rest-args rest num-drop)