20 lines
363 B
Racket
20 lines
363 B
Racket
#lang s-exp "../lib.rkt"
|
|
|
|
;; Should not cause name collisions
|
|
(define a "boom")
|
|
(define m-a "boom")
|
|
|
|
(define-graph g
|
|
([a (f1a : String) (f2a : (~> m-b))]
|
|
[b (f1b : String)])
|
|
[(m-a [v : String])
|
|
: a
|
|
(a v (m-b (string-append "b=" v)))]
|
|
[(m-b [v : String])
|
|
: b
|
|
(b v)])
|
|
|
|
;; Should not cause name collisions
|
|
;(define b "boom")
|
|
(define m-b "boom")
|