#!r6rs (library (srfi :34) (export with-exception-handler guard raise) (import (srfi :34 exception-handling)))