From 2af71bd754ee57249e3f445e9d199de152f5147e Mon Sep 17 00:00:00 2001 From: LemonBoy Date: Fri, 19 May 2017 22:45:28 +0200 Subject: [PATCH 1/2] Add entries in the types.db for the fxX? ops Signed-off-by: Peter Bex --- types.db | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/types.db b/types.db index 7e30466..ad8a462 100644 --- a/types.db +++ b/types.db @@ -1191,6 +1191,15 @@ (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 *) *) -- 2.1.4