diff options
| author |  Unknown <aleks@aleks-vostro> | 2011-07-25 23:20:18 -0700 |
|---|---|---|
| committer | Unknown <aleks@aleks-vostro> | 2011-07-25 23:20:18 -0700 |
| commit | db13b50ba61f4c39d05b638bf7b1659e3009d8f8 (patch) | |
| tree | df7704687f3096d0b1a2c04782416ad5248d9344 | |
| parent | 39c7d9318efba70b4049a30203ad38602f423997 (diff) | |
- restored the "old" (as it was before switching from map to list)
ordering of field assignments
| -rw-r--r-- | Jennisys/Resolver.fs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Jennisys/Resolver.fs b/Jennisys/Resolver.fs index c4bd99a2..d863cc7b 100644 --- a/Jennisys/Resolver.fs +++ b/Jennisys/Resolver.fs @@ -125,7 +125,6 @@ let ResolveModel hModel = let value = TryResolve hModel l |> Const2Expr
Utils.ListMapAdd ({name = objName; objType = objType}, f) value acc
) []
- |> List.rev
let argmap = hModel.env |> Map.fold (fun acc k v ->
match k with
| VarConst(name) -> acc |> Map.add name (Resolve hModel v)
|