Minor fixes
This commit is contained in:
parent
4cdd8c5dc0
commit
7f995f5035
|
@ -171,13 +171,14 @@
|
|||
(define scheme-type (cdr (assoc 'type (cdr (assoc scheme data)))))
|
||||
|
||||
(define scheme-command
|
||||
(apply (cdr (assoc 'command (cdr (assoc scheme data))))
|
||||
(list (if input-file input-file "")
|
||||
(if output-file output-file "")
|
||||
prepend-directories
|
||||
append-directories
|
||||
library-files
|
||||
r6rs?)))
|
||||
(string-append (apply (cdr (assoc 'command (cdr (assoc scheme data))))
|
||||
(list (if input-file input-file "")
|
||||
(if output-file output-file "")
|
||||
prepend-directories
|
||||
append-directories
|
||||
library-files
|
||||
r6rs?))
|
||||
(string #\newline)))
|
||||
|
||||
(define scheme-library-command
|
||||
(lambda (library-file)
|
||||
|
|
|
@ -58,6 +58,10 @@
|
|||
".a")))
|
||||
(apply string-append `("csc -R r7rs -X r7rs -static -c -J"
|
||||
" "
|
||||
,@(map (lambda (item)
|
||||
(string-append "-I " item " "))
|
||||
(append append-directories prepend-directories))
|
||||
" "
|
||||
"-unit"
|
||||
" "
|
||||
,unit
|
||||
|
@ -68,9 +72,7 @@
|
|||
" "
|
||||
,(util-getenv "COMPILE_R7RS_CHICKEN")
|
||||
" "
|
||||
,(search-library-file (append prepend-directories
|
||||
append-directories)
|
||||
library-file)
|
||||
,(search-library-file (append prepend-directories append-directories) library-file)
|
||||
" "
|
||||
"&&"
|
||||
" "
|
||||
|
@ -85,6 +87,10 @@
|
|||
" "
|
||||
,(util-getenv "COMPILE_R7RS_CHICKEN")
|
||||
" "
|
||||
,@(map (lambda (item)
|
||||
(string-append "-I " item " "))
|
||||
(append append-directories prepend-directories))
|
||||
" "
|
||||
,@(map (lambda (library-file)
|
||||
(string-append "-uses "
|
||||
(if (string-starts-with? library-file "srfi")
|
||||
|
|
Loading…
Reference in New Issue