Mercurial > repos > rhope
comparison compile_old_c.rhope @ 137:daf1ffaf7c2c
Fix selection of default backend in compiler. Small tweak to compile script
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 17 Nov 2010 02:07:10 +0000 |
parents | fc3815b7462f |
children |
comparison
equal
deleted
inserted
replaced
136:fc3815b7462f | 137:daf1ffaf7c2c |
---|---|
81 makeback <- [backmap]Index[~]{} | 81 makeback <- [backmap]Index[~]{} |
82 { | 82 { |
83 Print[[["Unknown backend '"]Append[sel]]Append["' selected. Defaulting to C backend."]] | 83 Print[[["Unknown backend '"]Append[sel]]Append["' selected. Defaulting to C backend."]] |
84 makeback <- C Program[?] | 84 makeback <- C Program[?] |
85 } | 85 } |
86 }{ makeback <- C Program[?] } | 86 }{ makeback <- Val[C Program[?]] } |
87 backend <- Call[makeback] | 87 backend <- Call[makeback] |
88 | 88 |
89 file <- [File[~]]Open["r"] | 89 file <- [File[~]]Open["r"] |
90 text <- String[[file]Read[[file]Length]] | 90 text <- String[[file]Read[[file]Length]] |
91 params <- Parser[] | 91 params <- Parser[] |