Mercurial > urweb

comparison src/cjrize.sml @ 282:0236d9412ad2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ran a prepared statement with one string parameter
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 09:28:13 -0400
parents fdd7a698be01
children c0e4ac23522d
comparison
equal deleted inserted replaced
281:7d5860add50f 282:0236d9412ad2
328 val (query, sm) = cifyExp (query, sm) 328 val (query, sm) = cifyExp (query, sm)
329 val (body, sm) = cifyExp (body, sm) 329 val (body, sm) = cifyExp (body, sm)
330 val (initial, sm) = cifyExp (initial, sm) 330 val (initial, sm) = cifyExp (initial, sm)
331 in 331 in
332 ((L'.EQuery {exps = exps', tables = tables', rnum = rnum, state = state, 332 ((L'.EQuery {exps = exps', tables = tables', rnum = rnum, state = state,
333 query = query, body = body, initial = initial}, loc), sm) 333 query = query, body = body, initial = initial, prepared = NONE}, loc), sm)
334 end 334 end
335 335
336 336
337 fun cifyDecl ((d, loc), sm) = 337 fun cifyDecl ((d, loc), sm) =
338 case d of 338 case d of