diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/gemma.cpp | 2 | ||||
| -rw-r--r-- | src/guile_api.cpp | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/src/gemma.cpp b/src/gemma.cpp index d2281ae..a9038c7 100644 --- a/src/gemma.cpp +++ b/src/gemma.cpp @@ -3170,7 +3170,7 @@ void GEMMA::WriteLog(int argc, char **argv, PARAM &cPar) { outfile << "##" << endl; outfile << "## GEMMA Version = " << version << " (" << date << ")" << endl; - outfile << "## Build profile = " << GEMMA_PROFILE << endl ; + // outfile << "## Build profile = " << GEMMA_PROFILE << endl ; #ifdef __GNUC__ outfile << "## GCC version = " << __GNUC__ << "." << __GNUC_MINOR__ << "." << __GNUC_PATCHLEVEL__ << endl; #endif diff --git a/src/guile_api.cpp b/src/guile_api.cpp index 0c809bd..21eb9ff 100644 --- a/src/guile_api.cpp +++ b/src/guile_api.cpp @@ -5,5 +5,9 @@ void global_start_guile() { } string global_guile_version() { - return string("3.0"); + SCM version_scm = scm_version(); + char* c_str = scm_to_utf8_string(version_scm); + string version_str(c_str); + free(c_str); // Must free the allocated memory + return version_str; } |