Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 14:07: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)))) ; 3))))
; 0))))) ; 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 code
'((define in-port:read-buf! '(#((record-marker)
#((record-marker) #((record-marker) #f (id args body))
#((record-marker) #f (id args body)) #(6
#(621 ()
(k$807 ptbl$260) ((#((record-marker)
((#((record-marker) #((record-marker) #f (id args body))
#((record-marker) #f (id args body)) #(5
#(619 (r$2)
(result$261) ((#((record-marker)
((in-port:set-buf! #((record-marker) #f (id args body))
#((record-marker) #(4
#((record-marker) #f (id args body)) (x$3 y$2 z$1)
#(618 (r$809) ((k$807 result$261)))) ((#((record-marker)
ptbl$260 #((record-marker) #f (id args body))
#f)))) #(3
(cadr ptbl$260))))))) (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 (pretty-print
(optimize-cps code)) (optimize-cps code))
;(contract-prims code)) ;(contract-prims code))