Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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 ;; Add function to trace, if not already set
(define (st:add-function! trace fnc) (define (st:add-function! trace fnc)
(if (null? (cdr trace)) (if (null? (cdr trace))
(set-cdr! trace fnc) (cons (car trace) fnc)
#f)) trace))
TODO: don't just do this, need to output as valid C code...
(define (st:->code trace) (define (st:->code trace)
;;(write `(JAE DEBUG ,trace)) ;;(write `(JAE DEBUG ,trace))
(if (or (not (pair? trace)) (if (or (not (pair? trace))