fix xref-binding-definition->tag checking
svn: r8765 original commit: 46f6deeae99500a7d0e17fcbc7881b10a01f7e4d
This commit is contained in:
parent
8c0cd81337
commit
39069ed981
|
@ -89,7 +89,7 @@
|
||||||
[(identifier? id/binding)
|
[(identifier? id/binding)
|
||||||
(search id/binding)]
|
(search id/binding)]
|
||||||
[(and (list? id/binding)
|
[(and (list? id/binding)
|
||||||
(= 6 (length id/binding)))
|
(= 7 (length id/binding)))
|
||||||
(search id/binding)]
|
(search id/binding)]
|
||||||
[(and (list? id/binding)
|
[(and (list? id/binding)
|
||||||
(= 2 (length id/binding)))
|
(= 2 (length id/binding)))
|
||||||
|
@ -115,7 +115,7 @@
|
||||||
"list starting with module path, resolved module path, module path index, path, or string"
|
"list starting with module path, resolved module path, module path index, path, or string"
|
||||||
src)]))]
|
src)]))]
|
||||||
[else (raise-type-error 'xref-binding-definition->tag
|
[else (raise-type-error 'xref-binding-definition->tag
|
||||||
"identifier, 2-element list, or 6-element list"
|
"identifier, 2-element list, or 7-element list"
|
||||||
id/binding)]))]))
|
id/binding)]))]))
|
||||||
|
|
||||||
(define (xref-binding->definition-tag xrefs id/binding mode)
|
(define (xref-binding->definition-tag xrefs id/binding mode)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user