~ chicken-core (chicken-5) 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