- (display-separated (list (get-build-info 'CFLAGS) ""))
- (if (or (string=? libdir "/usr/lib")
- (string=? libdir "/usr/lib/"))
- (display-separated (cons "-lguile -lguile-ltdl" other-flags))
- (display-separated (cons
- (string-append "-L" (get-build-info 'libdir))
- (cons "-lguile -lguile-ltdl" other-flags))))
+ (display (string-join
+ (list
+ (get-build-info 'CFLAGS)
+ (string-join other-flags)
+ "-lguile -lguile-ltdl"
+ (if (or (string=? libdir "/usr/lib")
+ (string=? libdir "/usr/lib/"))
+ (string-append "-L" (get-build-info 'libdir))
+ ""))))