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

Add show-requires, which is friendlier on the eyes than check-requires.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-05-31 14:02:27 -04:00
parent 2e3e6822f3
commit b39f21775a
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/macro-debugger/analysis/check-requires.rkt
View File

@ -12,6 +12,7 @@
"private/util.rkt")
(provide/contract
[check-requires (-> module-path? list?)]
[show-requires (-> module-path? list?)]
[add-disappeared-uses? (parameter/c boolean?)]
[mpi->key (-> module-path-index? any/c)])
@ -315,6 +316,21 @@ A recommendation is one of
(analyze deriv refs)
(nom-use-alg refs compiled))))
#|
A displayed-recommendation is one of
(list 'keep string phase string/#f)
(list 'bypass string phase)
(list 'drop string phase)
A displayed-recommendation is similar to a recommendation, but prints
out the module-path-index for easier user consumption.
|#
;; show-requires: module-path -> (listof displayed-recommendation)
(define (show-requires mod-path)
(map (match-lambda [(list-rest key mpi rest)
(list* key (mpi->key mpi) rest)])
(check-requires mod-path)))
#|
TODO
====