;; -*- Mode: Irken -*-
(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/string.scm")
;; test records in datatypes
(datatype thing
(:a {x=int y=char})
(:b {x=bool y=string})
)
(datatype thing2
(:t {x=int y={a=int b=int c=int}}))
(define (test)
(thing:a {x=3 y=#\A})
)
(printn (test))
(printn (thing2:t {x=5 y={a=3 b=3 c=6}}))