mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Compile string constants

Browse source
This commit is contained in:
Ian Price 2015-06-07 21:48:02 +01:00
parent 86fabef4ca
commit a4003003e2
3 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -112,5 +112,10 @@
(make-call
(make-refine *scheme* (make-const "list"))
(map compile-const c)))
((string? c)
(make-new
(make-call
(make-refine *scheme* (make-const "String"))
(list (make-const c)))))
(else
(throw 'uncompilable-const c))))