From 1449a75c9818f647b15467b5293d5ed25e51f608 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 10 Feb 2017 22:30:12 +0000
Subject: [PATCH] Added an exception handler

---
 scripts/convert-doc-index.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/scripts/convert-doc-index.scm b/scripts/convert-doc-index.scm
index 9ee32611..500be569 100644
--- a/scripts/convert-doc-index.scm
+++ b/scripts/convert-doc-index.scm
@@ -46,7 +46,14 @@
 (define (loop)
  (let ((line (read-line)))
   (when (not (eof-object? line))
-    (display (convert-line line))
-    (newline)
+    (call/cc
+      (lambda (k)
+        (with-exception-handler
+          (lambda (obj)
+            (display `(Error processing line ,line details ,obj))
+            (k #t))
+          (lambda ()
+            (display (convert-line line))
+            (newline)))))
     (loop))))
 (loop)