Mercurial > repos > rhope
comparison testc_c.rhope @ 96:5a08705f7610
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 |