diff options
Diffstat (limited to 'stdlib/source/library/lux/ffi.scm.lux')
-rw-r--r-- | stdlib/source/library/lux/ffi.scm.lux | 14 |
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))))))) |