Sometimes old-pkg is #f.

This commit is contained in:
Tony Garnock-Jones 2014-11-14 17:39:13 -05:00
parent 87dbb27c04
commit 87589b8ff7

View File

@ -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))