janet/examples/sysir/typeerr1.janet

11 lines
210 B
Plaintext
Raw Normal View History

2023-08-13 16:07:38 +00:00
(def ir-asm
'((link-name "redefine_type_fail")
(type-prim Real f32)
(type-prim 1 s32)
(bind bob Real)
(return bob)))
2023-08-13 16:07:38 +00:00
(def ctx (sysir/context))
(sysir/asm ctx ir-asm)
(print (sysir/to-c ctx))