~ 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