From 371b4630eb5582f74715146196ee7dc9beedf116 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 11 Feb 2017 17:41:30 -0500 Subject: [PATCH] Added (bignum?) --- scheme/base.sld | 3 +++ 1 file changed, 3 insertions(+) diff --git a/scheme/base.sld b/scheme/base.sld index 87ee67ff..ceb879b5 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1078,6 +1078,9 @@ (if (>= res 0) res (+ res b))))) (define (odd? num) (= (modulo num 2) 1)) (define (even? num) (= (modulo num 2) 0)) + (define-c bignum? + "(void *data, int argc, closure _, object k, object obj)" + " return_closcall1(data, k, Cyc_is_bignum(obj)); ") ;; from mosh (define (exact-integer-sqrt k) (unless (and (exact? k)