adjusted the expansion so that the references to "foo" in this ISL program:

(define-struct foo (x))

(: make-foo (Number -> foo))
(: foo-x (foo -> Number))

(define x (make-foo 5))
(foo-x x)

don't get colored the "not yet executed" color.
This commit is contained in:
Robby Findler 2010-08-23 09:51:20 -05:00
parent d3cab0a2ca
commit 611e04abda

View File

@ -89,8 +89,7 @@
#'(make-type-variable-signature '?id ?stx)
(with-syntax
((?raise
(syntax/loc #'?stx
(error 'signatures "expected a signature, found ~e" ?id))))
#'(error 'signatures "expected a signature, found ~e" ?id)))
(with-syntax
((?sig
#'(make-delayed-signature '?name