Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +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

28
validation.scm
View file

@ -1,15 +1,26 @@
(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
(define sexp
'((%closure
(lambda
(self$42 loop$8$19) (self$42 loop$8$19)
((%closure ((%closure
(lambda-7 (lambda
(self$43 loop$8$19) (self$43 loop$8$19)
(Cyc-seq (Cyc-seq
(set-cell! (set-cell!
loop$8$19 loop$8$19
(%closure (%closure
(lambda-6-cont (lambda
(self$44 k$28 x$9$20) (self$44 k$28 x$9$20)
(if (zero?__inline__ x$9$20) (if (zero?__inline__ x$9$20)
((%closure-ref write 0) ((%closure-ref write 0)
@ -30,4 +41,11 @@
(%closure-ref self$42 1)) (%closure-ref self$42 1))
(cell loop$8$19))) (cell loop$8$19)))
(%closure-ref self$41 1)) (%closure-ref self$41 1))
#f) #f))
(pretty-print
(ast:ast->pp-sexp
(ast:sexp->ast sexp))
)
)
)