suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix xref-binding-definition->tag checking

Browse Source 
svn: r8765

original commit: 46f6deeae99500a7d0e17fcbc7881b10a01f7e4d
This commit is contained in:
Matthew Flatt 2008-02-22 20:24:15 +00:00
parent 8c0cd81337
commit 39069ed981
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/xref.ss
View File

@ -89,7 +89,7 @@
[(identifier? id/binding)
(search id/binding)]
[(and (list? id/binding)
(= 6 (length id/binding)))
(= 7 (length id/binding)))
(search id/binding)]
[(and (list? id/binding)
(= 2 (length id/binding)))
@ -115,7 +115,7 @@
"list starting with module path, resolved module path, module path index, path, or string"
src)]))]
[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)]))]))
(define (xref-binding->definition-tag xrefs id/binding mode)