From 9e7ddacf853efd7a18c1911d2f287d483b083229 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 3 Jul 2022 00:35:32 -0400 Subject: Added a new custom type for pattern-matching macros. --- lux-js/source/program.lux | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lux-js') diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux index 6d13abf41..d90d5e711 100644 --- a/lux-js/source/program.lux +++ b/lux-js/source/program.lux @@ -176,11 +176,11 @@ (org/openjdk/nashorn/api/scripting/AbstractJSObject [] (getMember self [member java/lang/String]) java/lang/Object (case (ffi.of_string member) - (pattern (static runtime.i64_high_field)) + (static runtime.i64_high_field) (|> value .nat runtime.high jvm_int (ffi.is java/lang/Object)) - (pattern (static runtime.i64_low_field)) + (static runtime.i64_low_field) (|> value .nat runtime.low jvm_int (ffi.is java/lang/Object)) @@ -275,12 +275,12 @@ (|> (::slice js_object value) (ffi.is java/lang/Object)) - (pattern (static runtime.variant_tag_field)) + (static runtime.variant_tag_field) (|> value (array.read! 0) maybe.trusted) - (pattern (static runtime.variant_flag_field)) + (static runtime.variant_flag_field) (case (array.read! 1 value) {.#Some set!} set! @@ -288,7 +288,7 @@ _ (ffi.null)) - (pattern (static runtime.variant_value_field)) + (static runtime.variant_value_field) (|> value (array.read! 2) maybe.trusted -- cgit v1.2.3