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[]