aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/spec/compositor
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/spec/compositor')
-rw-r--r--stdlib/source/spec/compositor/generation/structure.lux4
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')))