Sign in
kernel
/
pub
/
scm
/
git
/
git
/
18e1ba10927b15f66a32c86f61133e9adf79f9cf
/
.
/
t
/
t4018
/
scheme-module
blob: edfae0ebf7b0f79b2d5abe304a2d42a1731cbc17 [
file
] [
log
] [
blame
]
(
module
A RIGHT
(
export
with
-
display
-
exception
)
(
extern
(
display
-
exception display
-
exception
ChangeMe
))
(
def
(
with
-
display
-
exception thunk
)
(
with
-
catch
(
lambda
(
e
)
(
display
-
exception e
(
current
-
error
-
port
))
e
)
thunk
)))