Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 03:36:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Minor fixes

Browse source
This commit is contained in:
retropikzel 2025-06-20 09:01:22 +03:00
parent e2dbcf3ff2
commit bf5f127821
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/snow/commands.scm
View file

@ -212,8 +212,7 @@
files files
chibi-ffi?)) chibi-ffi?))
(('cond-expand clauses ...) (('cond-expand clauses ...)
(let ((libs+files (map (lambda (c) (let ((libs+files (map (lambda (c) (lp c '() '() '() #f)) clauses)))
(lp c '() '() '() #f)) clauses)))
(lp (cdr ls) (lp (cdr ls)
(cons (cons 'cond-expand (cons (cons 'cond-expand
(map cons (map cons
@ -2048,10 +2047,9 @@
(so-file (string-append base (cond-expand (macosx ".dylib") (so-file (string-append base (cond-expand (macosx ".dylib")
(else ".so")))) (else ".so"))))
(so-flags (cond-expand (macosx '("-dynamiclib" "-Oz")) (so-flags (cond-expand (macosx '("-dynamiclib" "-Oz"))
(else '("-fPIC" "-shared""-Os")))) (else '("-fPIC" "-shared" "-Os"))))
(lib-flags (lib-flags
(map (lambda (lib) (map (lambda (lib) (string-append "-l" lib))
(string-append "-l" lib))
(library-foreign-dependencies impl cfg library))) (library-foreign-dependencies impl cfg library)))
(ffi-cmd `(,@chibi-ffi ,stub-file)) (ffi-cmd `(,@chibi-ffi ,stub-file))
(cc-cmd (cc-cmd