gnu: steghide: Update package style.

* gnu/packages/image.scm (steghide)[arguments]:
Rewrite as G-expressions.  Don't explicitly return #t from phases.
[native-inputs, inputs]: Remove input labels.

gnu/packages/image.scm

@@ -1519,26 +1519,21 @@ differences in file encoding, image quality, and other small variations.")
                 "18bxlhbdc3zsmxj84i417xjh0q28kv26q449k23n0a72ldwziix2"))
               (patches (list (search-patch "steghide-fixes.patch")))))
     (build-system gnu-build-system)
-    (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("libtool" ,libtool)
-       ("perl" ,perl)))                 ;for tests
-    (inputs
-     `(("libmhash" ,libmhash)
-       ("libmcrypt" ,libmcrypt)
-       ("libjpeg" ,libjpeg-turbo)
-       ("zlib" ,zlib)))
     (arguments
-     `(#:make-flags '("CXXFLAGS=-fpermissive")    ;required for MHashPP.cc
+     (list #:make-flags
-
+           #~(list "CXXFLAGS=-fpermissive")  ; required for MHashPP.cc
-       #:phases (modify-phases %standard-phases
+           #:phases
-                  (add-before 'configure 'set-perl-search-path
+           #~(modify-phases %standard-phases
-                    (lambda _
+               (add-before 'configure 'set-perl-search-path
-                      ;; Work around "dotless @INC" build failure.
+                 (lambda _
-                      (setenv "PERL5LIB"
+                   ;; Work around "dotless @INC" build failure.
-                              (string-append (getcwd) "/tests:"
+                   (setenv "PERL5LIB"
-                                             (getenv "PERL5LIB")))
+                           (string-append (getcwd) "/tests:"
-                      #t)))))
+                                          (getenv "PERL5LIB"))))))))
+    (native-inputs
+     (list gettext-minimal libtool perl))
+    (inputs
+     (list libjpeg-turbo libmhash libmcrypt zlib))
     (home-page "http://steghide.sourceforge.net")
     (synopsis "Image and audio steganography")
     (description