Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added an exception handler

Browse source
This commit is contained in:
Justin Ethier 2017-02-10 22:30:12 +00:00
parent 94b3bd6bf2
commit 1449a75c98
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scripts/convert-doc-index.scm
View file

@ -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)