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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-04-17 17:46:39 +00:00
parent 719cbaec2f
commit 08a960306c
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
scheme/cyclone/cgen.sld
View file

@ -1332,7 +1332,7 @@
; Emit inlinable function list
(cond
((not program?)
(emit* "void c_" (lib:name->string lib-name) "_inlinable_lambdas(void *data, int argc, closure cont, object value){ ")
(emit* "void c_" (lib:name->string lib-name) "_inlinable_lambdas(void *data, int argc, closure _, object cont){ ")
(let ((pairs '())
(head-pair #f))
(for-each
@ -1430,6 +1430,22 @@
;; TODO: only need to do this if 'eval' was also compiled
(let ((pairs '())
(head-pair #f))
;; TODO: want some way of being able to get the list in scheme code
;; TODO: ;; Attempt to expose inlinable lambdas function
;; TODO: (let ((cvar-sym (mangle (gensym 'cvar)))
;; TODO: (pair-sym (mangle (gensym 'pair)))
;; TODO: (fnc (string-append
;; TODO: "c_" (lib:name->string lib-name) "_inlinable_lambdas")))
;; TODO: (emits*
;; TODO: " make_cvar(" cvar-sym
;; TODO: ", (object *)&" fnc ");")
;; TODO: (emits*
;; TODO: "make_pair(" pair-sym ", find_or_add_symbol(\"" fnc
;; TODO: "\"), &" cvar-sym ");\n")
;; TODO: (set! pairs (cons pair-sym pairs)))
;; TODO: ;; END
(for-each
(lambda (g)
(let ((cvar-sym (mangle (gensym 'cvar)))