~ 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