7 lines
328 B
Scheme
7 lines
328 B
Scheme
#cs
|
|
(module Throwable mzscheme
|
|
(require "Object-composite.ss")
|
|
(provide Throwable (struct java:exception (object))
|
|
exception-is-a? handle-exception create-java-exception)
|
|
(provide guard-convert-Throwable convert-assert-Throwable wrap-convert-assert-Throwable
|
|
dynamic-Throwable/c static-Throwable/c)) |