~ chicken-core (chicken-5) 8acb3f92df82f369fc5dbef8f7c44a68468a92c3

commit 8acb3f92df82f369fc5dbef8f7c44a68468a92c3
Author:     felix <felix@y.(none)>
AuthorDate: Sun Mar 28 14:03:05 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Sun Mar 28 14:03:05 2010 +0200

    types and import fixes for fxeven?/fxodd?

diff --git a/chicken.import.scm b/chicken.import.scm
index 02a59b7c..e5d2cba9 100644
--- a/chicken.import.scm
+++ b/chicken.import.scm
@@ -130,12 +130,14 @@
    fx>
    fx>=
    fxand
+   fxeven?
    fxior
    fxmax
    fxmin
    fxmod
    fxneg
    fxnot
+   fxodd?
    fxshl
    fxshr
    fxxor
diff --git a/types.db b/types.db
index cacaff27..831379b9 100644
--- a/types.db
+++ b/types.db
@@ -328,18 +328,20 @@
 (fx> (procedure fx> (fixnum fixnum) boolean))
 (fx>= (procedure fx>= (fixnum fixnum) boolean))
 (fxand (procedure fxand (fixnum fixnum) fixnum))
+(fxeven? (procedure fxeven? (fixnum) boolean))
 (fxior (procedure fxior (fixnum fixnum) fixnum))
 (fxmax (procedure fxmax (fixnum fixnum) fixnum))
 (fxmin (procedure fxmin (fixnum fixnum) fixnum))
 (fxmod (procedure fxmod (fixnum fixnum) fixnum))
 (fxneg (procedure fxneg (fixnum) fixnum))
 (fxnot (procedure fxnot (fixnum) fixnum))
+(fxodd? (procedure fxodd? (fixnum) boolean))
 (fxshl (procedure fxshl (fixnum fixnum) fixnum))
 (fxshr (procedure fxshr (fixnum fixnum) fixnum))
 (fxxor (procedure fxxor (fixnum fixnum) fixnum))
 (gc (procedure gc (#!optional *) fixnum))
 (gensym (procedure gensym (#!optional *) symbol))
-(get (procedure get (symbol symbol) *))
+(get (procedure get (symbol symbol #!optional *) *))
 (get-call-chain (procedure get-call-chain (#!optional fixnum *) list))
 (get-condition-property (procedure get-condition-property ((struct condition) symbol symbol #!optional *) *))
 (get-environment-variable (procedure get-environment-variable (string) *))