Mercurial > urweb
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 |