diff options
| author | Eduardo Julian | 2021-05-24 19:29:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-05-24 19:29:13 -0400 |
| commit | da27db478b368724ee4659eb674dcdbeb2cd8747 (patch) | |
| tree | c1c5ef50644fa78ea899ac8c0afa1e234cd03b26 /stdlib/source/spec/compositor/generation/structure.lux | |
| parent | 1ffd2dd7e37d3be90522dfe768226334f60577f5 (diff) | |
Re-named lux/host to lux/ffi.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/spec/compositor/generation/structure.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/spec/compositor/generation/structure.lux b/stdlib/source/spec/compositor/generation/structure.lux index a8f820786..237ff5024 100644 --- a/stdlib/source/spec/compositor/generation/structure.lux +++ b/stdlib/source/spec/compositor/generation/structure.lux @@ -18,7 +18,7 @@ ["." list ("#\." functor)]]] [math ["r" random]] - ["." host (#+ import:)] + ["." ffi (#+ import:)] [tool [compiler ["." analysis] @@ -48,7 +48,7 @@ (let [tag-out (:coerce java/lang/Integer (maybe.assume (array.read 0 valueT))) last?-out (array.read 1 valueT) value-out (:coerce Any (maybe.assume (array.read 2 valueT))) - same-tag? (|> tag-out host.int-to-long (:coerce Nat) (n.= tag-in)) + same-tag? (|> tag-out ffi.int-to-long (:coerce Nat) (n.= tag-in)) same-flag? (case last?-out (#.Some last?-out') (and last?-in (text\= "" (:coerce Text last?-out'))) |