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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-06-08 23:30:35 -04:00
parent 741e71415e
commit b32a8f32f8
1 changed files with 49 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

98
scheme/cyclone/test-cps.scm
View file

@ -98,58 +98,58 @@
; 3))))
; 0)))))
;(define code
;'(#((record-marker)
; #((record-marker) #f (id args body))
; #(6
; ()
; ((#((record-marker)
; #((record-marker) #f (id args body))
; #(5
; (r$2)
; ((#((record-marker)
; #((record-marker) #f (id args body))
; #(4
; (x$3 y$2 z$1)
; ((#((record-marker)
; #((record-marker) #f (id args body))
; #(3
; (r$4)
; ((#((record-marker)
; #((record-marker) #f (id args body))
; #(2
; (r$3)
; ((write #((record-marker)
; #((record-marker) #f (id args body))
; #(1 (r$1) ((r$1 %halt))))
; r$3))))
; (cons x$3 r$4)))))
; (cons y$2 z$1)))))
; 1
; 2
; 3))))
; 0)))))
;)
(define code
'((define in-port:read-buf!
#((record-marker)
#((record-marker) #f (id args body))
#(621
(k$807 ptbl$260)
((#((record-marker)
#((record-marker) #f (id args body))
#(619
(result$261)
((in-port:set-buf!
#((record-marker)
#((record-marker) #f (id args body))
#(618 (r$809) ((k$807 result$261))))
ptbl$260
#f))))
(cadr ptbl$260)))))))
'(#((record-marker)
#((record-marker) #f (id args body))
#(6
()
((#((record-marker)
#((record-marker) #f (id args body))
#(5
(r$2)
((#((record-marker)
#((record-marker) #f (id args body))
#(4
(x$3 y$2 z$1)
((#((record-marker)
#((record-marker) #f (id args body))
#(3
(r$4)
((#((record-marker)
#((record-marker) #f (id args body))
#(2
(r$3)
((write #((record-marker)
#((record-marker) #f (id args body))
#(1 (r$1) ((r$1 %halt))))
r$3))))
(cons x$3 r$4)))))
(cons y$2 z$1)))))
1
2
3))))
0)))))
)
;(define code
;'((define in-port:read-buf!
; #((record-marker)
; #((record-marker) #f (id args body))
; #(621
; (k$807 ptbl$260)
; ((#((record-marker)
; #((record-marker) #f (id args body))
; #(619
; (result$261)
; ((in-port:set-buf!
; #((record-marker)
; #((record-marker) #f (id args body))
; #(618 (r$809) ((k$807 result$261))))
; ptbl$260
; #f))))
; (cadr ptbl$260)))))))
;)
(pretty-print
(optimize-cps code))
;(contract-prims code))