~ chicken-core (chicken-5) 349d38b1c5370b3ce25edb7f02b7c239224fd06c


commit 349d38b1c5370b3ce25edb7f02b7c239224fd06c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jan 27 23:37:55 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jan 27 23:37:55 2010 +0100

    handle case of undefined C_BRANCH_NAME

diff --git a/library.scm b/library.scm
index ad36f5b5..2e5cc356 100644
--- a/library.scm
+++ b/library.scm
@@ -61,6 +61,10 @@
 # define C_BUILD_TAG	""
 #endif
 
+#ifndef C_BRANCH_NAME
+# define C_BRANCH_NAME   ""
+#endif
+
 #define C_close_file(p)	      (C_fclose((C_FILEPTR)(C_port_file(p))), C_SCHEME_UNDEFINED)
 #define C_a_f64peek(ptr, c, b, i)  C_flonum(ptr, ((double *)C_data_pointer(b))[ C_unfix(i) ])
 #define C_fetch_c_strlen(b, i) C_fix(strlen((C_char *)C_block_item(b, C_unfix(i))))
Trap