1 files changed, 34 insertions(+), 27 deletions(-)

M gnu/packages/accessibility.scm

@@ 77,36 77,43 @@
     (build-system glib-or-gtk-build-system)
     (outputs '("out" "bin"))
     (arguments
-     `(#:tests? #f                      ; Tests require drivers
-       #:configure-flags
-       (list "CFLAGS=-g -O2 -Wno-error=incompatible-pointer-types"
-             "--disable-static"
-             "--enable-fake")
-       #:phases
-       (modify-phases %standard-phases
-         ,@(if (this-package-native-input "config")
-               `((add-after 'unpack 'update-config-scripts
-                   (lambda* (#:key native-inputs inputs #:allow-other-keys)
-                     (for-each
-                       (lambda (dir)
-                         (for-each (lambda (file)
-                                     (install-file
-                                       (search-input-file
-                                         (or native-inputs inputs)
-                                         (string-append "/bin/" file)) dir))
-                                   '("config.guess" "config.sub")))
-                       '("." "libltdl")))))
-               '()))))
+     (list
+      #:tests? #f                       ; Tests require drivers
+      #:configure-flags
+      #~(list "CFLAGS=-g -O2 -Wno-error=incompatible-pointer-types"
+              "--disable-static"
+              "--enable-fake")
+      #:phases
+      #~(modify-phases %standard-phases
+          #$@(if (this-package-native-input "config")
+                 #~((add-after 'unpack 'update-config-scripts
+                      (lambda* (#:key native-inputs inputs #:allow-other-keys)
+                        (for-each
+                         (lambda (dir)
+                           (for-each
+                            (lambda (file)
+                              (install-file
+                               (search-input-file
+                                (or native-inputs inputs)
+                                (string-append "/bin/" file)) dir))
+                            (list "config.guess" "config.sub")))
+                         (list "." "libltdl")))))
+                 (list)))))
     (native-inputs
      (append
-       (if (or (target-aarch64?)
-               (target-ppc64le?)
-               (target-riscv64?))
-           (list config)
-           '())
-       (list latex2html pkg-config python-wrapper swig)))
+      (if (or (target-aarch64?)
+              (target-ppc64le?)
+              (target-riscv64?))
+          (list config)
+          (list))
+      (list latex2html
+            pkg-config
+            python-wrapper
+            swig)))
     (inputs
-     (list glib gtk+-2 libusb-compat))
+     (list glib
+           gtk+-2
+           libusb-compat))
     (synopsis "Portable Braille Library")
     (description "Libbraille is a library to easily access Braille displays and
 terminals.")