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

WIP

Browse source
This commit is contained in:
Justin Ethier 2015-07-13 22:17:32 -04:00
parent 489bbeeb1e
commit 8e64b7a40d
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
cgen.scm
View file

@ -145,9 +145,10 @@
;; Add function to trace, if not already set
(define (st:add-function! trace fnc)
(if (null? (cdr trace))
(set-cdr! trace fnc)
#f))
(cons (car trace) fnc)
trace))
TODO: don't just do this, need to output as valid C code...
(define (st:->code trace)
;;(write `(JAE DEBUG ,trace))
(if (or (not (pair? trace))