suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add missing default value

Browse Source
This commit is contained in:
Robby Findler 2015-05-18 20:35:19 -05:00
parent 235bd4de8f
commit a9ac3be43c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-index/setup/xref.rkt
View File

@ -29,7 +29,7 @@
(for*/list ([dir (find-relevant-directories (list tag) 'all-available)] (for*/list ([dir (find-relevant-directories (list tag) 'all-available)]
[d (let ([info-proc (get-info/full dir)]) [d (let ([info-proc (get-info/full dir)])
(if info-proc (if info-proc
(info-proc tag) (info-proc tag (λ () '()))
'()))]) '()))])
(unless (and (list? d) (pair? d)) (unless (and (list? d) (pair? d))
(error 'xref "bad scribblings entry: ~e" d)) (error 'xref "bad scribblings entry: ~e" d))