Prevent memory leak

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;
 }