;; -*- Mode: Irken -*-
(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/string.scm")
;; test records in datatypes
;; note that the '...' is missing, meaning that the
;; record type is closed. test and test2 attempts to
;; throw other stuff in should thus fail.
(datatype thing
(:t {x=int y=char})
)
(define (test)
(thing:t {x=3 y=#\b z=9})
)
(define (test2)
(thing:t {x=4 y=#\c z=#\a a=#t b=#f}))
(printn (test))
(printn (test2))