comparison src/cjr_print.sml @ 119:7fdc146b2bc2

Proper handling of non-function-call links
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 16:11:25 -0400
parents 94856a3b4752
children 6230bdd122e7
comparison
equal deleted inserted replaced
118:7207f794b916 119:7fdc146b2bc2
179 string "\")) {", 179 string "\")) {",
180 newline, 180 newline,
181 p_enamed env n, 181 p_enamed env n,
182 string "(ctx, lw_unit_v);", 182 string "(ctx, lw_unit_v);",
183 newline, 183 newline,
184 string "return;",
185 newline,
184 string "}", 186 string "}",
185 newline] 187 newline]
186 188
187 fun p_file env (ds, ps) = 189 fun p_file env (ds, ps) =
188 let 190 let