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

Setup stub

Browse source
This commit is contained in:
Justin Ethier 2019-09-18 20:58:37 -04:00
parent 6eb4db0596
commit 066bd9c933
1 changed files with 50 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

82
validation.scm
View file

@ -1,33 +1,51 @@
(cond-expand
(program
(import (scheme base)
(scheme write)
(scheme cyclone ast)
(scheme cyclone primitives)
(scheme cyclone util)
(scheme cyclone pretty-print))))
((%closure (cond-expand
(lambda-5 (program
(self$42 loop$8$19) (define sexp
((%closure '((%closure
(lambda-7 (lambda
(self$43 loop$8$19) (self$42 loop$8$19)
(Cyc-seq ((%closure
(set-cell! (lambda
loop$8$19 (self$43 loop$8$19)
(%closure (Cyc-seq
(lambda-6-cont (set-cell!
(self$44 k$28 x$9$20) loop$8$19
(if (zero?__inline__ x$9$20) (%closure
((%closure-ref write 0) (lambda
write (self$44 k$28 x$9$20)
k$28 (if (zero?__inline__ x$9$20)
'done) ((%closure-ref write 0)
((%closure-ref write
(cell-get (%closure-ref self$44 1)) k$28
0) 'done)
(cell-get (%closure-ref self$44 1)) ((%closure-ref
k$28 (cell-get (%closure-ref self$44 1))
(Cyc-fast-sub x$9$20 1)))) 0)
loop$8$19)) (cell-get (%closure-ref self$44 1))
((%closure-ref (cell-get loop$8$19) 0) k$28
(cell-get loop$8$19) (Cyc-fast-sub x$9$20 1))))
(%closure-ref self$43 1) loop$8$19))
10))) ((%closure-ref (cell-get loop$8$19) 0)
(%closure-ref self$42 1)) (cell-get loop$8$19)
(cell loop$8$19))) (%closure-ref self$43 1)
(%closure-ref self$41 1)) 10)))
#f) (%closure-ref self$42 1))
(cell loop$8$19)))
(%closure-ref self$41 1))
#f))
(pretty-print
(ast:ast->pp-sexp
(ast:sexp->ast sexp))
)
)
)