Sign in
code
/
git
/
refs/heads/next
/
.
/
t
/
t4018
/
scheme-module-b
blob: 77bc0c5eff47754119be07045ccf3451be2d2933 [
file
] [
edit
]
(
module
A
(
export
with
-
display
-
exception
)
(
extern
(
display
-
exception display
-
exception
))
(
def
(
with
-
display
-
exception thunk
)
RIGHT
(
with
-
catch
(
lambda
(
e
)
(
display
-
exception e
(
current
-
error
-
port
))
e
)
thunk
ChangeMe
)))
