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-14 02:00:09 -04:00
parent 8e64b7a40d
commit fa682dfbfd
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
cgen.scm
View file

@ -149,15 +149,21 @@
trace))
TODO: don't just do this, need to output as valid C code...
TODO: try and output this as the first expression after all var declarations.
may require change where this is called, though
(define (st:->code trace)
;;(write `(JAE DEBUG ,trace))
(if (or (not (pair? trace))
(null? (cdr trace)))
""
(string-append
"Cyc_st_add(\""
(car trace)
":"
(symbol->string (cdr trace)))))
;; TODO: escape backslashes
(symbol->string (cdr trace))
"\");\n"
)))
;; END st helpers