~jojo/Carth

ref: 55fb4f948f1f3797078b584dc60b4f7dd68b37ed Carth/test/tests/good/transmute-poly.carth -rw-r--r-- 183 bytes
55fb4f94JoJo Check `cast` in Infer instead of Gen 2 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
;; 123456

(import std)

(define tr transmute)

(define main
  (display (show-int ((: tr (Fun Nat Int))
                      ((: tr (Fun Int Nat))
                       123456)))))