From: Matt Birkholz Date: Sun, 26 Feb 2017 08:21:44 +0000 (-0700) Subject: cref/conpkg.scm: Fourth slot of import links: 'deprecated, not #t. X-Git-Tag: mit-scheme-pucked-9.2.12~208 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=751aac74d7f0d2c1bfec9a542d988136f71dd79f;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 1732a056a..f2459394f 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?)))))