(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.