cref/conpkg.scm: Fourth slot of import links: 'deprecated, not #t.
authorMatt Birkholz <matt@birchwood-abbey.net>
Tue, 7 Mar 2017 03:32:32 +0000 (20:32 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Tue, 7 Mar 2017 04:23:08 +0000 (21:23 -0700)
src/cref/conpkg.scm

index 41b330a64fc1a5b45c8934a31578f1c875d7f802..481dfd07c5b4c2d365bc411c8d82924d0afd4f95 100644 (file)
@@ -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?)))))