~ chicken-core (master) d1b984332c72cf7c7b76eee7c91b652bf104e3df
commit d1b984332c72cf7c7b76eee7c91b652bf104e3df
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jan 28 00:38:48 2010 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jan 28 00:38:48 2010 +0100
fixed use of undefined constant for binary version in eval.scm
diff --git a/eval.scm b/eval.scm
index 924594d5..d9671c6d 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1102,7 +1102,7 @@
(##sys#chicken-prefix
(##sys#string-append
"lib/chicken/"
- (##sys#number->string (or (##sys#fudge 42) default-binary-version)) ) )
+ (##sys#number->string (##sys#fudge 42))) )
install-egg-home) ) )
(define repository-path ##sys#repository-path)
diff --git a/runtime.c b/runtime.c
index aa1f44ca..df0bd9df 100644
--- a/runtime.c
+++ b/runtime.c
@@ -4161,7 +4161,7 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
#ifdef C_BINARY_VERSION
return C_fix(C_BINARY_VERSION);
#else
- return C_SCHEME_FALSE;
+ return C_fix(0);
#endif
default: return C_SCHEME_UNDEFINED;
Trap