[nongnu] elpa/geiser-racket 912e318 020/191: Racket: catching errors during contract retrieval.

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 912e3181644d17b748e43f7021e246b00f1ca57d
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Racket: catching errors during contract retrieval.
---
 geiser/modules.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/geiser/modules.rkt b/geiser/modules.rkt
index af19b03..9b640ec 100644
--- a/geiser/modules.rkt
+++ b/geiser/modules.rkt
@@ -138,7 +138,9 @@
   module-cache)
 
 (define (module-exports mod)
-  (define (value id) (dynamic-require mod id (const #f)))
+  (define (value id)
+    (with-handlers ([exn? (const #f)])
+      (dynamic-require mod id (const #f))))
   (define (contracted id)
     (let ([v (value id)])
       (if (has-contract? v)