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

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