@@ -272,7 +272,8 @@ jsLet defs e' = do ds <- jsDefs defs
273 jsDefs defs = mapM toJS (sortBy f defs)
273 jsDefs defs = mapM toJS (sortBy f defs)
274 f a b = compare (valueOf a) (valueOf b)
274 f a b = compare (valueOf a) (valueOf b)
275− valueOf (FnDef _ args _) = min 1 (length args)
275+ valueOf (FnDef _ [] _) = 2
276+ valueOf (FnDef _ _ _) = 1
276 valueOf (OpDef _ _ _ _) = 1
277 valueOf (OpDef _ _ _ _) = 1
278caseToJS span e ps = do
279caseToJS span e ps = do