syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

allow polymorphic function definitions

This commit is contained in:
Sam Caldwell 2019-04-29 17:34:49 -04:00
parent c9563cd0a2
commit 33522647fd
2 changed files with 46 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
racket/typed/core-types.rkt
View File

@ -1283,7 +1283,33 @@
[(_ (f [x (~optional (~datum :)) ty] ...)
e ...+) ≫
----------------------------
[≻ (define (f [x ty] ... -> ★/t) e ...)]])
[≻ (define (f [x ty] ... -> ★/t) e ...)]]
;; Polymorphic definitions
[(_ ((~datum ∀) (X:id ...)
(f [x (~optional (~datum :)) ty] ...
(~or (~datum →) (~datum ->)) ty_out))
e ...+) ≫
#:with e+ #'(Λ (X ...)
(lambda ([x : ty] ...)
(begin e ...)))
[[X ≫ X- :: #%type] ... ⊢ e+ ≫ e-
(⇒ : (~and res-ty
(~∀ (Y ...)
(~→ (~not (~Computation _ ...)) ...
(~Computation (~Value τ-v)
_ ...)))))]
#:fail-unless (<: (type-eval #'(∀ (Y ...) τ-v))
(type-eval #'(∀ (X ...) ty_out)))
(format "expected different return type\n got ~a\n expected ~a\n"
#'τ-v #'ty_out)
#:with f- (add-orig (generate-temporary #'f) #'f)
-------------------------------------------------------
[⊢ (define/intermediate f f- res-ty e-) (⇒ : ★/t)]]
[(_ ((~datum ∀) (X:id ...)
(f [x (~optional (~datum :)) ty] ...))
e ...+) ≫
--------------------------------------------------
[≻ (define (∀ (X ...) (f [x ty] ... -> ★/t)) e ...)]])
(define-typed-syntax begin
[(_ e_unit ... e) ≫

19
racket/typed/tests/expressions.rkt
View File

@ -34,3 +34,22 @@
(check-type ((inst poly-first Int String) (tuple 13 "XD"))
: Int
⇒ 13)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Polymorphic Definitions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (∀ (X) (id2 [x : X] -> X))
x)
(check-type ((inst id2 Int) 42)
: Int
⇒ 42)
(define (∀ (X) (id3 [x : X]))
x)
(check-type (+ ((inst id3 Int) 42) 1)
: Int
⇒ 43)