(html (head (title "sph-lib (sph exception)") (link (@ (rel "stylesheet") (type "text/css") (href "/css/sph.css"))) (meta (@ (name "viewport") (content "width=device-width,initial-scale=1"))) #f) (body () (div (@ (class top)) (nav (a (@ (href "/")) "start") ", " (a (@ (href "/feed.xml")) "feed")) "") (div (@ (class "middle")) (div (@ (class mtime) (title "last modification time of the current page")) "2023-04-05") (section (h1 "(sph exception)") (div (p "rnrs exception helpers. experimental") (p "part of " (a (@ (href "../../sph-lib.html")) "sph-lib")) (#f (section (@ (class "library-name")) (h1 "module name") (p "(sph exception)")) (section (@ (class "library-exports")) (h1 "exported bindings") (div (div (@ (class "doc-bindings")) (div (@ (id "doc-b-" "exception-always") (class "doc-b")) (div (span (@ (class "type")) "syntax") ": " (span (@ (class "name")) "exception-always") " " (span (@ (class "first-sig")) "always expression")) "" (div (@ (class "description")) (("evaluate nullary \\\"always\\\" after expression even if an exception occurred")))) (div (@ (id "doc-b-" "exception-display-guile") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "exception-display-guile") " " (span (@ (class "first-sig")) "key a ->")) "" "") (div (@ (id "doc-b-" "exception-display-guile-r6rs") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "exception-display-guile-r6rs") " " (span (@ (class "first-sig")) "key a ->")) "" (div (@ (class "description")) (("display information about an r6rs exception object received by guile catch")))) (div (@ (id "doc-b-" "exception-intercept") (class "doc-b")) (div (span (@ (class "type")) "syntax") ": " (span (@ (class "name")) "exception-intercept") " " (span (@ (class "first-sig")) "on-exception expression")) "" (div (@ (class "description")) (("evaluate \\\"on-exception\\\" if an exception occurred in expression")))) (div (@ (id "doc-b-" "exception-intercept-if") (class "doc-b")) (div (span (@ (class "type")) "syntax") ": " (span (@ (class "name")) "exception-intercept-if") " " (span (@ (class "first-sig")) "expression on-exception no-exception")) "" (div (@ (class "description")) (("evaluate \\\"on-exception\\\" if an exception occurred in expression." (br) "evaluate \\\"no-exception\\\" if no exception occurred and return the result of expression")))) (div (@ (id "doc-b-" "exception-printer") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "exception-printer") " " (span (@ (class "first-sig")) "port key args punt ->")) "" "") (div (@ (id "doc-b-" "sph-exception-description") (class "doc-b")) (div (span (@ (class "type")) "variable") ": " (span (@ (class "name")) "sph-exception-description")) "" "")))))))) ()))