(define compiler-flags (let ((f (with-input-from-pipe "pkg-config --libs --cflags fuse" read-line))) (if (eof-object? f) '(-lfuse -C -D_FILE_OFFSET_BITS=64) ; No pkg-config. (foldl (lambda (a s) (if (string-prefix? "-l" s) `(,s ,@a) `(-C ,s ,@a))) '() (string-split f))))) (compile -d2 -O0 ,@compiler-flags -sJ libfuse.scm) (compile -d2 -O0 ,@compiler-flags -cs -unit libfuse libfuse.scm) (compile -d2 -O0 ,@compiler-flags -sJ -uses libfuse fuse.scm libfuse.o) (compile -d2 -O0 -s libfuse.import.scm) (compile -d2 -O0 -s fuse.import.scm) (install-extension 'fuse '("fuse.so" "fuse.import.so" "libfuse.so" "libfuse.import.so" "libfuse.o") '((version "0.0.1")))