convert more mlish tests to typed-lang-builder/mlish-core
This commit is contained in:
parent
a2ca787940
commit
3fac6b1bc3
|
@ -1,4 +1,4 @@
|
|||
#lang s-exp "../../../mlish.rkt"
|
||||
#lang s-exp "../../../typed-lang-builder/mlish-core.rkt"
|
||||
|
||||
(define-type (List X)
|
||||
Nil
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang s-exp "../../../mlish.rkt"
|
||||
#lang s-exp "../../../typed-lang-builder/mlish-core.rkt"
|
||||
(require "../../rackunit-typechecking.rkt")
|
||||
(require "basics-general.mlish")
|
||||
(require-typed map append fst snd member foldl foldr filter sum reverse
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang s-exp "../../../mlish.rkt"
|
||||
#lang s-exp "../../../typed-lang-builder/mlish-core.rkt"
|
||||
(require "../../rackunit-typechecking.rkt")
|
||||
(require "basics-general.mlish")
|
||||
(require-typed append filter foldr foldl reverse snd member
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang s-exp "../../../mlish.rkt"
|
||||
#lang s-exp "../../../typed-lang-builder/mlish-core.rkt"
|
||||
(require "../../rackunit-typechecking.rkt")
|
||||
|
||||
;; Huffman trees from SICP
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang s-exp "../../../mlish.rkt"
|
||||
#lang s-exp "../../../typed-lang-builder/mlish-core.rkt"
|
||||
(require "../../rackunit-typechecking.rkt")
|
||||
|
||||
;; Lambda Calculus interpreter
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang s-exp "../../../mlish.rkt"
|
||||
#lang s-exp "../../../typed-lang-builder/mlish-core.rkt"
|
||||
(require "../../rackunit-typechecking.rkt")
|
||||
|
||||
(define-type (Option A)
|
||||
|
|
Loading…
Reference in New Issue
Block a user