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.lux42
1 files changed, 21 insertions, 21 deletions
diff --git a/stdlib/source/library/lux/ffi.scm.lux b/stdlib/source/library/lux/ffi.scm.lux
index 7b338dfd4..79b042679 100644
--- a/stdlib/source/library/lux/ffi.scm.lux
+++ b/stdlib/source/library/lux/ffi.scm.lux
@@ -71,19 +71,19 @@
(def: field
(Parser Field)
- (<code>.form ($_ <>.and
- (<>.parses? ..static!)
- <code>.local
- (<>.maybe ..alias)
- ..nilable)))
+ (<code>.form (all <>.and
+ (<>.parses? ..static!)
+ <code>.local
+ (<>.maybe ..alias)
+ ..nilable)))
(def: constant
(Parser Field)
- (<code>.form ($_ <>.and
- (<>#in true)
- <code>.local
- (<>.maybe ..alias)
- ..nilable)))
+ (<code>.form (all <>.and
+ (<>#in true)
+ <code>.local
+ (<>.maybe ..alias)
+ ..nilable)))
(type: Common_Method
(Record
@@ -96,13 +96,13 @@
(def: common_method
(Parser Common_Method)
- ($_ <>.and
- <code>.local
- (<>.maybe ..alias)
- (<code>.tuple (<>.some ..nilable))
- (<>.parses? (<code>.this (' "io")))
- (<>.parses? (<code>.this (' "try")))
- ..nilable))
+ (all <>.and
+ <code>.local
+ (<>.maybe ..alias)
+ (<code>.tuple (<>.some ..nilable))
+ (<>.parses? (<code>.this (' "io")))
+ (<>.parses? (<code>.this (' "try")))
+ ..nilable))
(def: input_variables
(-> (List Nilable) (List [Bit Code]))
@@ -146,10 +146,10 @@
(def: import
(Parser Import)
- ($_ <>.or
- (<code>.form ..common_method)
- ..constant
- ))
+ (all <>.or
+ (<code>.form ..common_method)
+ ..constant
+ ))
(syntax: .public (try [expression <code>.any])
... {.#doc (example (case (try (risky_computation input))