lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add Upscheme specs to version alist

This commit is contained in:
Lassi Kortela 2019-10-14 19:42:20 +03:00
parent dc53fdf273
commit 3c25f24d59
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
c/main.c
View File

@ -53,6 +53,18 @@ static value_t build_c_type_bits_list(void)
return acc.list;
}
static value_t build_stable_specs_list(void)
{
struct accum acc;
const char **sp;
accum_init(&acc);
for (sp = upscheme_stable_specs; *sp; sp++) {
accum_elt(&acc, string_from_cstr(*sp));
}
return acc.list;
}
static value_t build_platform_list(void)
{
struct accum acc;
@ -203,6 +215,10 @@ static value_t get_version_alist(void)
accum_name_value1(&acc, "release", string_from_cstr(env_release));
accum_name_value1(&acc, "release-date",
string_from_cstr(env_release_date));
accum_name_value(&acc, "upscheme/stable-specs",
build_stable_specs_list());
accum_name_value1(&acc, "upscheme/unstable-spec",
string_from_cstr(upscheme_unstable_spec));
}
return acc.list;
}

3
c/scheme.h
View File

@ -1016,6 +1016,9 @@ extern const char env_release_date[];
//// #include "libraries.h"
extern const char *upscheme_stable_specs[];
extern const char upscheme_unstable_spec[];
value_t builtin_import(value_t *args, uint32_t nargs);
//// #include "builtins.h"