Mercurial > repos > rhope

comparison testc_c.rhope @ 96:5a08705f7610

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Semi-broken cleanup of Array implementation
author Mike Pavone <pavone@retrodev.com>
date Mon, 02 Aug 2010 05:12:19 -0400
parents e73a93fb5de1
children
comparison
equal deleted inserted replaced
95:f4fd8962c385 96:5a08705f7610
76 main <- [[[[prog]Create Function["Main", (), ("out"), "rhope"] 76 main <- [[[[prog]Create Function["Main", (), ("out"), "rhope"]
77 ]Register Constant["const_30", 30] 77 ]Register Constant["const_30", 30]
78 ]Call["Fib", [()]Append[Constant["const_30"]]] 78 ]Call["Fib", [()]Append[Constant["const_30"]]]
79 ]Move[Result[0], "out"] 79 ]Move[Result[0], "out"]
80 80
81 Print[ 81 text <- [[[prog]Store Function[func]
82 [[[prog]Store Function[func]
83 ]Store Function[main] 82 ]Store Function[main]
84 ]Text 83 ]Text
85 ] 84 Print[[text]Length]
86 85 { Print[text] }
87 } 86 }
88 87