MPFR custodian shutdown procedure tries to clear the constants cache

even when MPFR isn't loaded; this should close PR 13423
frenchy64 · Jan 9, 2013 · 441ad6e · 441ad6e
1 parent 6e21e34
commit 441ad6e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/collects/math/private/bigfloat/mpfr.rkt b/collects/math/private/bigfloat/mpfr.rkt
@@ -81,9 +81,10 @@
   (register-custodian-shutdown 
    mpfr-free-cache ; acts as a "random" object for a shutdown handle
    (λ (free) 
-      ;; The direct reference here is important, since custodian holds only
-      ;; a weak reference to shutdown handle:
-      (mpfr-free-cache))))
+     (when mpfr-lib
+       ;; The direct reference here is important, since custodian holds only
+       ;; a weak reference to shutdown handle:
+       (mpfr-free-cache)))))
 
 ;; ===================================================================================================
 ;; MPFR types