diff --git a/guix/ui.scm b/guix/ui.scm index 7f52518023..bd504c68da 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -13,7 +13,7 @@ ;;; Copyright © 2018 Ricardo Wurmus ;;; Copyright © 2019 Chris Marusich ;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice -;;; Copyright © 2019 Simon Tournier +;;; Copyright © 2019, 2021 Simon Tournier ;;; Copyright © 2020 Arun Isaac ;;; Copyright © 2020 Maxim Cournoyer ;;; @@ -2133,11 +2133,11 @@ (define module (lambda () (match (search-path (extension-directories) (format #f "~a.scm" command)) + (#f + (throw 'misc-error)) (file - (load file) - (resolve-interface `(guix extensions ,command))) - (_ - (throw 'misc-error)))) + (load file) + (resolve-interface `(guix extensions ,command))))) (lambda _ (format (current-error-port) (G_ "guix: ~a: command not found~%") command)