projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3b05e1e
)
cref/conpkg.scm: Fourth slot of import links: 'deprecated, not #t.
author
Matt Birkholz
<matt@birchwood-abbey.net>
Tue, 7 Mar 2017 03:32:32 +0000
(20:32 -0700)
committer
Matt Birkholz
<matt@birchwood-abbey.net>
Tue, 7 Mar 2017 04:23:08 +0000
(21:23 -0700)
src/cref/conpkg.scm
patch
|
blob
|
history
diff --git
a/src/cref/conpkg.scm
b/src/cref/conpkg.scm
index 41b330a64fc1a5b45c8934a31578f1c875d7f802..481dfd07c5b4c2d365bc411c8d82924d0afd4f95 100644
(file)
--- a/
src/cref/conpkg.scm
+++ b/
src/cref/conpkg.scm
@@
-115,7
+115,8
@@
USA.
(let ((dn (binding/name destination))
(sp (package/name (binding/package source)))
(sn (binding/name source))
- (d? (binding/deprecated? source)))
+ (d? (and (binding/deprecated? source)
+ 'deprecated)))
(if (and (not d?) (eq? dn sn))
(vector dn sp)
(vector dn sp sn d?)))))