1 files changed, 6 insertions, 0 deletions
diff --git a/limit.scm b/limit.scm
index 8c67e8f..2b29ddf 100644..100755
--- a/limit.scm
+++ b/limit.scm
@@ -19,6 +19,12 @@
 
 ;;@code{(require 'limit)}
 
+(require-if 'compiling 'root)
+
+(define (finite? val)
+  (and (not (= val (+ 1 val val)))
+       (= val val)))
+
 (define (inv-root f1 f2 f3 prec)
   (define f1^2 (* f1 f1))
   (define f2^2 (* f2 f2))