Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added *cflags* global to chibi-ffi

Browse source
This commit is contained in:
Brian Caine 2017-08-06 02:50:02 -04:00
parent 8f52f457d6
commit 212231dca6
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/chibi-ffi
View file

@ -41,6 +41,7 @@
(define *consts* '()) (define *consts* '())
(define *inits* '()) (define *inits* '())
(define *clibs* '()) (define *clibs* '())
(define *cflags* '())
(define *tags* '()) (define *tags* '())
(define *open-namespaces* '()) (define *open-namespaces* '())
(define *c++?* #f) (define *c++?* #f)
@ -2059,7 +2060,8 @@
(execute (begin (eval '(import (chibi process)) (execute (begin (eval '(import (chibi process))
(current-environment)) (current-environment))
(eval 'execute (current-environment)))) (eval 'execute (current-environment))))
(base-args (append cflags `("-o" ,so ,dest "-lchibi-scheme") (base-args (append cflags *cflags*
`("-o" ,so ,dest "-lchibi-scheme")
(map (lambda (x) (string-append "-l" x)) (map (lambda (x) (string-append "-l" x))
(reverse *clibs*)))) (reverse *clibs*))))
(args (args