aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/ffi.scm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/ffi.scm.lux')
-rw-r--r--stdlib/source/library/lux/ffi.scm.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/ffi.scm.lux b/stdlib/source/library/lux/ffi.scm.lux
index 5d78822f3..ba47e81ca 100644
--- a/stdlib/source/library/lux/ffi.scm.lux
+++ b/stdlib/source/library/lux/ffi.scm.lux
@@ -120,10 +120,10 @@
(-> Code [Bit Code] Code)
(if nilable?
(` (case (~ input)
- {#.Some (~ g!temp)}
+ {.#Some (~ g!temp)}
(~ g!temp)
- #.None
+ {.#None}
("scheme object nil")))
input))
@@ -132,8 +132,8 @@
(if nilable?
(` (let [(~ g!temp) (~ output)]
(if ("scheme object nil?" (~ g!temp))
- #.None
- {#.Some (~ g!temp)})))
+ {.#None}
+ {.#Some (~ g!temp)})))
(` (let [(~ g!temp) (~ output)]
(if (not ("scheme object nil?" (~ g!temp)))
(~ g!temp)
@@ -152,11 +152,11 @@
))
(syntax: .public (try [expression <code>.any])
- ... {#.doc (example (case (try (risky_computation input))
- ... {#.Right success}
+ ... {.#doc (example (case (try (risky_computation input))
+ ... {.#Right success}
... (do_something success)
- ... {#.Left error}
+ ... {.#Left error}
... (recover_from_failure error)))}
(in (list (` ("lux try" ((~! io.io) (~ expression)))))))