libs/implementations.sld

@@ -29,10 +29,8 @@
                                   " "
                                   ,@(map (lambda (item)
                                            (string-append "-L" " " item " "))
-                                         prepend-directories)
-                                  ,@(map (lambda (item)
-                                           (string-append "-A" " " item " "))
-                                                 append-directories)
+                                         (append prepend-directories
+                                                 append-directories))
                                   " --script "
                                   ,script-file
                                   " "