Mercurial > urweb

comparison src/jscomp.sml @ 912:771449d8b411

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix inconsistency in bool URLification between C and JavaScript
author Adam Chlipala <adamc@hcoop.net>
date Tue, 25 Aug 2009 15:19:00 -0400
parents 12c77dc567a2
children 36f787c02287
comparison
equal deleted inserted replaced
911:12c77dc567a2 912:771449d8b411
426 | TFfi ("Basis", "string") => ("uu(t[i++])", st) 426 | TFfi ("Basis", "string") => ("uu(t[i++])", st)
427 | TFfi ("Basis", "int") => ("parseInt(t[i++])", st) 427 | TFfi ("Basis", "int") => ("parseInt(t[i++])", st)
428 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st) 428 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st)
429 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i]) : null)", st) 429 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i]) : null)", st)
430 430
431 | TFfi ("Basis", "bool") => ("t[i++] == \"True\"", st) 431 | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st)
432 432
433 | TOption t => 433 | TOption t =>
434 let 434 let
435 val (e, st) = unurlifyExp loc (t, st) 435 val (e, st) = unurlifyExp loc (t, st)
436 val e = if isNullable t then 436 val e = if isNullable t then