Commit f59f255c authored by Sapphie's avatar Sapphie
Browse files

Remove print and undo changes to a test example

parent 9871602d
......@@ -86,7 +86,6 @@ object CPSValueRepresenter extends (H.Tree => L.Tree) {
val closureAllocInit = allocInitFun(funsAndVars, lastBody)
val res = L.LetF(funsAndVars.unzip3._1, closureAllocInit)
println(res)
res
}
......
......@@ -2,15 +2,15 @@
;; Test the "defrec" statement
;;(@byte-write 67)
(@byte-write 67)
(defrec id (fun (x) (x)))
(id 1)
;;(defrec succ (fun (x) (@+ x 1)))
;;(@byte-write (succ 64))
;;
;;(defrec fact (fun (x) (if (@= x 0) 1 (@* x (fact (@- x 1))))))
;;(@byte-write (@- (fact 5) 54))
;;
;;(defrec fact (fun (x) (@+ x 2)))
;;(@byte-write (fact 65))
;;(defrec id (fun (x) (x)))
;;(id 1)
(defrec succ (fun (x) (@+ x 1)))
(@byte-write (succ 64))
(defrec fact (fun (x) (if (@= x 0) 1 (@* x (fact (@- x 1))))))
(@byte-write (@- (fact 5) 54))
(defrec fact (fun (x) (@+ x 2)))
(@byte-write (fact 65))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment