From 87589b8ff7117e2159d24080a1b7bffb58f82da3 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 14 Nov 2014 17:39:13 -0500 Subject: [PATCH] Sometimes old-pkg is #f. --- src/packages.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/packages.rkt b/src/packages.rkt index 0a0e212..8123ad0 100644 --- a/src/packages.rkt +++ b/src/packages.rkt @@ -129,7 +129,7 @@ (define (replace-package completion-ch old-pkg new-pkg state) (define local-packages (package-manager-state-local-packages state)) - (define old-package-name (string->symbol (@ old-pkg name))) + (define old-package-name (string->symbol (or (@ old-pkg name) ""))) (define new-package-name (string->symbol (@ (or new-pkg old-pkg) name))) (when (not (eq? old-package-name new-package-name)) (notify-package-change! #f old-package-name))