diff options
| author | EuAndreh <eu@euandre.org> | 2022-11-02 22:45:40 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-11-02 22:45:40 -0300 |
| commit | b6406b4396a6aedff4e66e5a3663b6013550fdcc (patch) | |
| tree | 0628d11ea7e5d3ac1afdf48402835a4dfe5eabb7 | |
| parent | etc/guix/system.scm: Add group "docker" to allow non-sudo usage of it (diff) | |
| download | dotfiles-b6406b4396a6aedff4e66e5a3663b6013550fdcc.tar.gz dotfiles-b6406b4396a6aedff4e66e5a3663b6013550fdcc.tar.xz | |
bin/li: Use -E and remove extra -e "(uiop:quit)"
| -rwxr-xr-x | bin/li | 20 |
1 files changed, 9 insertions, 11 deletions
@@ -84,20 +84,18 @@ INIT="${XDG_CONFIG_HOME:-$HOME/.config}/lisp-cli/init.lisp" if [ ! -e "$IMAGE" ]; then printf 'Bootstrapping a new "%s" image...\n' "$IMPL" >&2 cl \ - -I "$IMPL" \ - -v \ - -e '(ql:quickload :trivial-dump-core)' \ - -e "(trivial-dump-core:dump-image \"$IMAGE\")" \ - -e '(uiop:quit)' + -I "$IMPL" \ + -v \ + -e '(ql:quickload :trivial-dump-core)' \ + -E "(trivial-dump-core:dump-image \"$IMAGE\")" elif [ -n "$(find "$0" "$BIN" "$INIT" -newer "$IMAGE")" ]; then printf 'Refresh existing "%s" image...\n' "$IMPL" >&2 cl \ - -M "$IMAGE" \ - -I "$IMPL" \ - -v \ - -e '(ql:quickload :trivial-dump-core)' \ - -e "(trivial-dump-core:dump-image \"$IMAGE\")" \ - -e '(uiop:quit)' + -M "$IMAGE" \ + -I "$IMPL" \ + -v \ + -e '(ql:quickload :trivial-dump-core)' \ + -E "(trivial-dump-core:dump-image \"$IMAGE\")" fi if [ "$VERBOSE" = true ]; then |