;; -*- Mode: Irken -*- (include "self/nodes.scm") (datatype tag (:bare int) (:uobj int) ) ;; RTL instructions (datatype insn (:return int) ;; return register (:literal literal cont) ;; (:litcon int symbol cont) ;; (:cexp type type string (list int) cont) ;;