~ chicken-core (chicken-5) 93f08c8d88ef5e42223d9447db55759a35e5c935

commit 93f08c8d88ef5e42223d9447db55759a35e5c935
Author:     LemonBoy <thatlemon@gmail.com>
AuthorDate: Fri May 19 22:45:28 2017 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed May 24 18:58:21 2017 +1200

    Add entries in the types.db for the fxX? ops
    
    Signed-off-by: Peter Bex <peter@more-magic.net>
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/types.db b/types.db
index 7e304660..42b0a309 100644
--- a/types.db
+++ b/types.db
@@ -1191,6 +1191,11 @@
 (chicken.fixnum#fxxor (#(procedure #:clean #:foldable) chicken.fixnum#fxxor (fixnum fixnum) fixnum))
 (chicken.fixnum#fxlen (#(procedure #:clean #:foldable) chicken.fixnum#fxlen (fixnum) fixnum))
 
+(chicken.fixnum#fx+? (#(procedure #:pure) chicken.fixnum#fx+? ((or fixnum false) (or fixnum false)) (or fixnum false)))
+(chicken.fixnum#fx-? (#(procedure #:pure) chicken.fixnum#fx-? ((or fixnum false) (or fixnum false)) (or fixnum false)))
+(chicken.fixnum#fx*? (#(procedure #:pure) chicken.fixnum#fx*? ((or fixnum false) (or fixnum false)) (or fixnum false)))
+(chicken.fixnum#fx/? (#(procedure #:clean) chicken.fixnum#fx/? ((or fixnum false) (or fixnum false)) (or fixnum false)))
+
 (gensym (#(procedure #:clean) gensym (#!optional (or string symbol)) symbol))
 
 (get (#(procedure #:clean #:enforce) get (symbol symbol #!optional *) *)