From 49f808f714c3beee72e8d4b714697e8fdef9176d Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau Date: Tue, 24 Oct 2023 05:42:01 +0000 Subject: [PATCH] Just use error --- src/tools/gxpkg.ss | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/src/tools/gxpkg.ss b/src/tools/gxpkg.ss index 394a6907c..01ac2c6a2 100644 --- a/src/tools/gxpkg.ss +++ b/src/tools/gxpkg.ss @@ -44,12 +44,6 @@ pkg-retag pkg-plist pkg-dependents pkg-dependents*) -;; TODO: move that to general-purpose runtime support, and -;; have it throw an exception that is caught by the bottom runtime handler. -(def (abort msg) - (eprintf "~a\n" msg) - (exit 2)) - (def (main . args) (def local-flag (flag 'local "-l" "--local" @@ -348,7 +342,7 @@ (def (pkg-new package-prefix package-name maybe-link) (def prefix (or package-prefix (getenv "USER" #f) - (abort "Package prefix not specified with -p or --package, and USER not defined"))) + (error "Package prefix not specified with -p or --package, and USER not defined"))) (def name (or package-name (path-strip-directory (path-normalize* (current-directory))))) (def (create-template file template . args)