add missing default value
This commit is contained in:
parent
235bd4de8f
commit
a9ac3be43c
|
@ -29,7 +29,7 @@
|
|||
(for*/list ([dir (find-relevant-directories (list tag) 'all-available)]
|
||||
[d (let ([info-proc (get-info/full dir)])
|
||||
(if info-proc
|
||||
(info-proc tag)
|
||||
(info-proc tag (λ () '()))
|
||||
'()))])
|
||||
(unless (and (list? d) (pair? d))
|
||||
(error 'xref "bad scribblings entry: ~e" d))
|
||||
|
|
Loading…
Reference in New Issue
Block a user