[PATCH 4/4] environment: Add '--debug' flag.

[David Craven]

* 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