(module raw_buf_bool
  (fn main
    (doc "raw-buf.4 Bool variant: store true in a 1-slot Bool RawBuf, read it back, discriminate to an Int and print (42). Exercises RawBuf.new/.set/.get @ Bool (i1 load/store, width-1 offsets).")
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body
      (app print
        (let buf (new RawBuf (con Bool) 1)
          (let buf (app RawBuf.set buf 0 true)
            (if (app RawBuf.get buf 0) 42 0)))))))