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

Convert slashes to dots in SRFI 176 output

This commit is contained in:
Lassi Kortela 2020-02-14 17:55:10 +02:00
parent 9e76fdb005
commit 4e88a2c1eb
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
c/env.c
View File

@ -231,34 +231,34 @@ value_t get_version_alist(void)
accum_init(&acc);
accum_name_value1(&acc, "command", string_from_cstr("upscheme"));
accum_name_value1(&acc, "release", string_from_cstr(env_release));
accum_name_value1(&acc, "release/date",
accum_name_value1(&acc, "release.date",
string_from_cstr(env_release_date));
accum_name_value(
&acc, "languages",
fl_cons(symbol("scheme"), fl_cons(symbol("r7rs"), FL_NIL)));
accum_name_value1(&acc, "scheme/id", symbol("upscheme"));
accum_name_value(&acc, "scheme/srfi", build_srfi_list());
accum_name_value(&acc, "scheme/features", get_features_list());
accum_name_value1(&acc, "build/platform",
accum_name_value1(&acc, "scheme.id", symbol("upscheme"));
accum_name_value(&acc, "scheme.srfi", build_srfi_list());
accum_name_value(&acc, "scheme.features", get_features_list());
accum_name_value1(&acc, "build.platform",
string_from_cstr(get_build_platform()));
accum_name_value1(&acc, "build/date",
accum_name_value1(&acc, "build.date",
string_from_cstr(env_build_date));
accum_name_value1(&acc, "build/git/branch",
accum_name_value1(&acc, "build.git.branch",
string_from_cstr(env_build_git_branch));
accum_name_value1(&acc, "build/git/commit",
accum_name_value1(&acc, "build.git.commit",
string_from_cstr(env_build_git_commit));
accum_name_value(&acc, "build/git/modified",
accum_name_value(&acc, "build.git.modified",
list_from_cstrv(env_build_git_modified));
accum_name_value(&acc, "c/type-bits", build_c_type_bits_list());
accum_name_value1(&acc, "c/version",
accum_name_value(&acc, "c.type-bits", build_c_type_bits_list());
accum_name_value1(&acc, "c.version",
string_from_cstr(SCHEME_C_COMPILER_NAME
" " SCHEME_C_COMPILER_VERSION));
accum_name_value(&acc, "c/compile",
accum_name_value(&acc, "c.compile",
list_from_cstrv(env_build_c_compile));
accum_name_value(&acc, "c/link", list_from_cstrv(env_build_c_link));
accum_name_value(&acc, "upscheme/stable-specs",
accum_name_value(&acc, "c.link", list_from_cstrv(env_build_c_link));
accum_name_value(&acc, "upscheme.stable-specs",
build_stable_specs_list());
accum_name_value1(&acc, "upscheme/unstable-spec",
accum_name_value1(&acc, "upscheme.unstable-spec",
fixnum(upscheme_unstable_spec));
}
return acc.list;