Mercurial > repos > rhope
diff number.rhope @ 52:079200bc3e75
String literals almost working. Print moved out of C runtime.
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Wed, 28 Apr 2010 01:23:30 -0400 |
| parents | 7d6a6906b648 |
| children | d0ce696786cc |
line wrap: on
line diff
--- a/number.rhope Thu Apr 22 02:18:26 2010 -0400 +++ b/number.rhope Wed Apr 28 01:23:30 2010 -0400 @@ -84,7 +84,7 @@ Fold[["Compile Number Method"]Set Input[2, type], backend, opmap] { Fold[["Compile Number Comp Method"]Set Input[2, type], ~, compops] { Fold[[["Compile Conversion Method"]Set Input[1, type]]Set Input[3, ""], ~, Legal Conversions[type]] - { out <- Fold[[["Compile Conversion Method"]Set Input[1, type]]Set Input[3, "Trunc "], ~, Legal Conversions[type]] }}} + { out <- Fold[[["Compile Conversion Method"]Set Input[1, type]]Set Input[3, "Trunc "], ~, Truncations[type]] }}} } Generate Number Methods[backend:out] @@ -156,7 +156,7 @@ Fold[[register]Set Input[3, type], program, methods] { Fold[[register]Set Input[3, "Boolean"], ~, compmethods] { Fold[[["Register Conversion Method"]Set Input[1, type]]Set Input[3, ""], ~, Legal Conversions[type]] - { out <- Fold[[["Register Conversion Method"]Set Input[1, type]]Set Input[3, "Trunc ", ~, Truncations[type]] }}} + { out <- Fold[[["Register Conversion Method"]Set Input[1, type]]Set Input[3, "Trunc "], ~, Truncations[type]] }}} } Register Number Methods[program:out]