From f8a8add7d0e74d20304b3194e836752a9986ddc3 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Mon, 8 Aug 2022 09:16:13 +0200
Subject: direct access of eunion fields

---
 bootstrap/test2.cff | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'bootstrap/test2.cff')

diff --git a/bootstrap/test2.cff b/bootstrap/test2.cff
index fdb30cb..ec5fcb0 100644
--- a/bootstrap/test2.cff
+++ b/bootstrap/test2.cff
@@ -36,15 +36,15 @@ extern fn main() void {
    let x int #?;
    x = X + 1 + Y;
 
-   let v= Value:None;
-   v = :Int 3;
+   let const v= Value:None;
    switch (v) {
    case None;
    case Int i;
       i;
    case Flo *f;
-      *f += 1.0f;
    }
+   let t = v.#tag;
+   let i = v.Int;
 
    #:outer for let i = 0; i++ < 10; {
       printf("%d\n", i);
-- 
cgit v1.2.3