syndicate-2017/racket/typed/examples/roles/provides.rkt

#lang typed/syndicate/roles

(provide a-fun)

(define (a-fun [x : Int] -> Int)
  (+ x 1))

#;(a-fun 5)
re-finangle `define/intermediate` to allow require & provides Needed to change from `make-rename-transformer` to `make-variable-like-transformer` because apparently rename transformers are treated differently when referred to from another model, hiding the syntax properties on the target. 2018-09-14 20:40:43 +00:00			`#lang typed/syndicate/roles`

			`(provide a-fun)`

			`(define (a-fun [x : Int] -> Int)`
			`(+ x 1))`

			`#;(a-fun 5)`