Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 14:49: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

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

@ -46,7 +46,14 @@
(define (loop) (define (loop)
(let ((line (read-line))) (let ((line (read-line)))
(when (not (eof-object? line)) (when (not (eof-object? line))
(call/cc
(lambda (k)
(with-exception-handler
(lambda (obj)
(display `(Error processing line ,line details ,obj))
(k #t))
(lambda ()
(display (convert-line line)) (display (convert-line line))
(newline) (newline)))))
(loop)))) (loop))))
(loop) (loop)