mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-20 14:19:17 +02:00
51 lines
1.5 KiB
Scheme
51 lines
1.5 KiB
Scheme
(cond-expand
|
|
(program
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme cyclone ast)
|
|
(scheme cyclone primitives)
|
|
(scheme cyclone util)
|
|
(scheme cyclone pretty-print))))
|
|
|
|
(cond-expand
|
|
(program
|
|
(define sexp
|
|
'((%closure
|
|
(lambda
|
|
(self$42 loop$8$19)
|
|
((%closure
|
|
(lambda
|
|
(self$43 loop$8$19)
|
|
(Cyc-seq
|
|
(set-cell!
|
|
loop$8$19
|
|
(%closure
|
|
(lambda
|
|
(self$44 k$28 x$9$20)
|
|
(if (zero?__inline__ x$9$20)
|
|
((%closure-ref write 0)
|
|
write
|
|
k$28
|
|
'done)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$44 1))
|
|
0)
|
|
(cell-get (%closure-ref self$44 1))
|
|
k$28
|
|
(Cyc-fast-sub x$9$20 1))))
|
|
loop$8$19))
|
|
((%closure-ref (cell-get loop$8$19) 0)
|
|
(cell-get loop$8$19)
|
|
(%closure-ref self$43 1)
|
|
10)))
|
|
(%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))
|
|
)
|
|
)
|
|
)
|