Skip to content

Commit

Permalink
Just use error
Browse files Browse the repository at this point in the history
  • Loading branch information
fare committed Oct 24, 2023
1 parent dbb0fda commit 49f808f
Showing 1 changed file with 1 addition and 7 deletions.
8 changes: 1 addition & 7 deletions src/tools/gxpkg.ss
Original file line number Diff line number Diff line change
Expand Up @@ -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"
Expand Down Expand Up @@ -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)
Expand Down

0 comments on commit 49f808f

Please sign in to comment.