which is sensitive to details of the documentation of `->'
This commit is contained in:
Matthew Flatt 2011-07-04 16:35:38 -06:00
parent 4905d344dd
commit e3b8997fb8

View File

@ -12,7 +12,7 @@
"out.sxref") "out.sxref")
fasl->s-exp)))))) fasl->s-exp))))))
(unless (equal? '(form ((lib "racket/contract.rkt") ->)) (unless (equal? '(form ((lib "racket/contract/base.rkt") ->))
(xref-binding->definition-tag (xref-binding->definition-tag
xref xref
(list '(lib "contract.rkt" "racket") '->) (list '(lib "contract.rkt" "racket") '->)