www

commit 9eff29070c0e535e5f3cf88915d89234f85c80f8
parent 0ffbdffc8b627e4cc3e8d116d542ee29e694d347
Author: Stephen Chang <stchang@ccs.neu.edu>
Date:   Tue, 14 Jun 2016 16:21:46 -0400

mlish: reuse inst from sysf

Diffstat:
M
tapl/mlish.rkt
 | 
11
+----------

1 file changed, 1 insertion(+), 10 deletions(-)
diff --git a/tapl/mlish.rkt b/tapl/mlish.rkt
@@ -3,9 +3,7 @@
 
 (extends "ext-stlc.rkt" #:except #%app λ → + - void = zero? sub1 add1 not let let* and #%datum begin
           #:rename [~→ ~ext-stlc:→])
-;(reuse [inst sysf:inst] #:from "sysf.rkt") 
-(require (rename-in (only-in "sysf.rkt" inst) [inst sysf:inst]))
-(provide inst)
+(reuse inst  #:from "sysf.rkt")
 (require (only-in "ext-stlc.rkt" → →?))
 (require (only-in "sysf.rkt" ~∀ ∀ ∀? Λ))
 (reuse × tup proj define-type-alias #:from "stlc+rec-iso.rkt")
@@ -1324,13 +1322,6 @@
    #:fail-unless (typecheck? #'ty1 #'ty2) "arguments to equal? have different types"
    (⊢ (equal? e1- e2-) : Bool)])
 
-(define-syntax (inst stx)
-  (syntax-parse stx
-    [(_ e ty ...)
-     #:with [ee tyty] (infer+erase #'e)
-     #:with [e- ty_e] (infer+erase #'(sysf:inst e ty ...))
-     (⊢ e- : ty_e)]))
-
 (define-typed-syntax read
   [(_)
    (⊢ (let ([x (read)])