Mercurial > urweb

comparison src/jscomp.sml @ 1319:c17e6144510b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix RPC deserialization of channels
author Adam Chlipala <adam@chlipala.net>
date Fri, 19 Nov 2010 17:06:11 -0500
parents acabf3935060
children 0d8bd8ae8417
comparison
equal deleted inserted replaced
1318:e2f803080934 1319:c17e6144510b
309 309
310 | TFfi ("Basis", "string") => ("uu(t[i++])", st) 310 | TFfi ("Basis", "string") => ("uu(t[i++])", st)
311 | TFfi ("Basis", "char") => ("uu(t[i++])", st) 311 | TFfi ("Basis", "char") => ("uu(t[i++])", st)
312 | TFfi ("Basis", "int") => ("parseInt(t[i++])", st) 312 | TFfi ("Basis", "int") => ("parseInt(t[i++])", st)
313 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st) 313 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st)
314 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i]) : null)", st) 314 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i-1]) : null)", st)
315 315
316 | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st) 316 | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st)
317 317
318 | TOption t => 318 | TOption t =>
319 let 319 let