Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

debug WIP

Browse source
This commit is contained in:
Justin Ethier 2016-11-16 19:04:05 -05:00
parent f0e4d65794
commit 025a3ef1ce
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
compiler-benchmark-debug.txt Normal file
View file

@ -0,0 +1,10 @@
(DEBUG bind-in-order ((#((var-tag) result #t () () #(result #(expr result #f)) #f))))
(INNER DEBUG (#((var-tag) result #t () () #(result #(expr result #f)) #f)) (#((var-tag) result #t () () #(result #(expr result #f)) #f)))
(define (bind-in-order order)
(write `(DEBUG bind-in-order ,order))
(if (null? order)
(pt-body source body env use)
(let* ((vars-set (car order)) (vars (set->list vars-set)))
(write `(INNER DEBUG ,vars-set ,vars))