From da27db478b368724ee4659eb674dcdbeb2cd8747 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 24 May 2021 19:29:13 -0400 Subject: Re-named lux/host to lux/ffi. --- stdlib/source/spec/compositor/generation/structure.lux | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stdlib/source/spec/compositor/generation') 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'))) -- cgit v1.2.3