From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 7 Mar 2017 03:32:32 +0000 (-0700)
Subject: cref/conpkg.scm: Fourth slot of import links: 'deprecated, not #t.
X-Git-Tag: mit-scheme-pucked-9.2.12~195^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7354130e6d48b23a0ca35b3ccdcaa595e3abe49c;p=mit-scheme.git

cref/conpkg.scm: Fourth slot of import links: 'deprecated, not #t.
---

diff --git a/src/cref/conpkg.scm b/src/cref/conpkg.scm
index 41b330a64..481dfd07c 100644
--- 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?)))))