which is sensitive to details of the documentation of `->'

original commit: e3b8997fb8532c4491848be48f011635f4147dce
This commit is contained in:
Matthew Flatt 2011-07-04 16:35:38 -06:00
parent 45a9cd48c2
commit 5086963aa8

View File

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