etc - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/etc

Mode	Name	Size
d---------	completion	92	log plain
d---------	git	36	log plain
-rw-r--r--	guix-daemon.cil.in	8789	log plain about
-rw-r--r--	guix-daemon.conf.in	339	log plain about
-rw-r--r--	guix-daemon.service.in	720	log plain about
-rwxr-xr-x	guix-install.sh	12708	log plain about
-rw-r--r--	guix-publish.conf.in	343	log plain about
-rw-r--r--	guix-publish.service.in	633	log plain about
-rwxr-xr-x	indent-code.el.in	3312	log plain about
d---------	snippets	74	log plain
d---------	substitutes	138	log plain

tring, the part of the package that

diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index c0cedcd4a8..1d00e39540 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm

@@ -965,9 +965,12 @@ more information.~%"))

((name version output location _)

(format #t " ~a\t~a\t~a\t~a~%"

name version output location)))

- (manifest-packages

- (profile-manifest

- (format #f "~a-~a-link" profile number))))

+

+ ;; Show most recently installed packages last.

+ (reverse

+ (manifest-packages

+ (profile-manifest

+ (format #f "~a-~a-link" profile number)))))

(newline)))

(cond ((not (file-exists? profile)) ; XXX: race condition

@@ -994,7 +997,9 @@ more information.~%"))

(regexp-exec regexp name))

(format #t "~a\t~a\t~a\t~a~%"

name (or version "?") output path))))

- installed)

+

+ ;; Show most recently installed packages last.

+ (reverse installed))

#t))

(('list-available regexp)