mirror of
https://github.com/janet-lang/janet
synced 2025-07-08 13:02:55 +00:00
11 lines
210 B
Plaintext
11 lines
210 B
Plaintext
(def ir-asm
|
|
'((link-name "redefine_type_fail")
|
|
(type-prim Real f32)
|
|
(type-prim 1 s32)
|
|
(bind bob Real)
|
|
(return bob)))
|
|
|
|
(def ctx (sysir/context))
|
|
(sysir/asm ctx ir-asm)
|
|
(print (sysir/to-c ctx))
|