occurrence: use tups instead of records

This commit is contained in:
Stephen Chang 2015-10-22 17:12:51 -04:00
parent 4152db6575
commit b52f220dcc

View File

@ -1,7 +1,7 @@
#lang s-exp "typecheck.rkt"
(extends "stlc+sub.rkt" #:except #%datum)
;(extends "stlc+tup.rkt" #:except + #%datum and)
(extends "stlc+cons.rkt" #:except + #%datum and)
(extends "stlc+cons.rkt" #:except + #%datum and tup × proj ~×)
(reuse tup × proj ~× #:from "stlc+tup.rkt")
;; Calculus for occurrence typing.
;; - Types can be simple, or sets of simple types