* guix/scripts/environment.scm: Add '--debug' flag to add common debugging
packages (file, gdb, strace, valgrind) to environment.
---
guix/scripts/environment.scm | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index ebe966f..073dcac 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -165,6 +165,8 @@ COMMAND or an interactive shell in that environment.\n"))
according to SPEC"))
(display (_ "
--bootstrap use bootstrap binaries to build the environment"))
+ (display (_ "
+ -d --debug add file, gdb, strace and valgrind to the
environment"))
(newline)
(show-build-options-help)
(newline)
@@ -249,6 +251,12 @@ COMMAND or an interactive shell in that environment.\n"))
(option '("bootstrap") #f #f
(lambda (opt name arg result)
(alist-cons 'bootstrap? #t result)))
+ (option '(#\d "debug") #f #f
+ (lambda (opt name arg result)
+ (alist-cons 'package `(ad-hoc-package ,"file")
+ (alist-cons 'package `(ad-hoc-package ,"gdb")
+ (alist-cons 'package `(ad-hoc-package ,"strace")
+ (alist-cons 'package `(ad-hoc-package ,"valgrind")
result))))))
%standard-build-options))
(define (pick-all alist key)
--
2.9.0
