Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
(lambda ()
(add (call/cc ...)))
(lambda ()
(add ’connect)
(lambda ()
(add ’disconnect)
(if ...) (if ...)
(lambda ()
(add ’disconnect)
8.4 sistemas de exceções
Versão Preliminar
(lambda ()
(add ’connect)
Continuações podem ser usadas para implementar sistemas de tratamento de exceções.
Uma macro simples usando syntax-rules é suficiente:
( define-syntax try
( syntax-rules ( on-error :)
((_ on-error : handler f1 ...)
( begin
( let * (( condicao #f)
( resultado-final #f) ;; presumindo falha
( talvez
( call /cc
( lambda (k)
( set ! throw ( lambda (co)
;; handler deve ser chamado c/
;; argumento de throw, então
;; é necessário guardá-lo:
( set ! condicao co)
;; força o retorno com false:
(k #f )))
204
[ 27 de outubro de 2010 at 15:47 ]