Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 15:27:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handle define-c inline globals

Browse source
This commit is contained in:
Justin Ethier 2017-04-03 20:55:45 +00:00
parent 2af740f763
commit 470ea62e9d
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/transforms.sld
View file

@ -790,7 +790,9 @@
(lambda (e) (lambda (e)
(if (or (define? e) (if (or (define? e)
(define-c? e)) (define-c? e))
(set! globals (cons (define->var e) globals)))) (set! globals (cons (define->var e) globals)))
(if (define-c-inline? e)
(set! globals (cons (define-c->inline-var e) globals))))
exp) exp)
globals)) globals))