~ 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