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

Implement built-in symbol procedures.

Browse source 
* module/language/js-il/runtime.js
  (symbol->string, gensym): New procedures.
This commit is contained in:
Ian Price 2017-08-02 21:14:57 +01:00
parent 5d49a5be18
commit 2adebea5d0
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
module/language/js-il/runtime.js
View file

@ -775,6 +775,22 @@ def_guile0("syntax-module", function (self, cont, obj) {
return cont(obj.module);
});
// Symbols
def_guile0("symbol->string", function (self, cont, sym) {
return cont(new scheme.String(sym.name));
});
var gensym_counter = 0;
function scm_gensym (self, cont, prefix) {
var name = prefix ? prefix.s : "gen ";
name += gensym_counter;
gensym_counter += 1;
return cont(new scheme.Symbol(name));
};
def_guile0("gensym", scm_gensym);
// Strings
def_guile0("string=?", function (self, cont, s1, s2) {
return cont(coerce_bool(s1.s === s2.s));