[Guile-commits] 24/30: Declare bignum? as effect-free

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit cdd51d09958eb9012ca12731979dfd8e0112d163
Author: Andy Wingo <address@hidden>
Date:   Tue Nov 21 21:38:48 2017 +0100

    Declare bignum? as effect-free
    
    * module/language/cps/effects-analysis.scm (bignum?): Mark as
      effect-free.
---
 module/language/cps/effects-analysis.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/module/language/cps/effects-analysis.scm 
b/module/language/cps/effects-analysis.scm
index 24c9710..8c2fcd5 100644
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -288,7 +288,8 @@ is or might be a read or a write to the same location as A."
   ((bitvector? arg))
   ((procedure? arg))
   ((thunk? arg))
-  ((heap-number? arg)))
+  ((heap-number? arg))
+  ((bignum? arg)))
 
 ;; Fluids.
 (define-primitive-effects