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

Explicitly check for a (define) form

Browse source
This commit is contained in:
Justin Ethier 2017-04-19 00:25:47 +00:00
parent 0262beb351
commit 9b7a5e3cfe
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
cyclone.scm
View file

@ -221,7 +221,8 @@
(let ((lib-init-fnc (lib:name->symbol lib-name))) ;; safe to ignore for programs
(for-each
(lambda (e)
(when (and (not (equal? (define->var e) lib-init-fnc))
(when (and (define? e)
(not (equal? (define->var e) lib-init-fnc))
(inlinable-top-level-function? e))
(set! inlinable-scheme-fncs
(cons (define->var e) inlinable-scheme-fncs))