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 | 59f21d855811ebee5531c2ae1d2698edef08d277 (patch) | |
| tree | fd9c4df747fdcac2eb20bc6155e72c69b7bcc5d3 /Jennisys | |
| parent | 038adfa3e421234a9c34bc2c94860a29a6b2bb07 (diff) | |
- restored the "old" (as it was before switching from map to list)
ordering of field assignments
Diffstat (limited to 'Jennisys')
| -rw-r--r-- | Jennisys/Jennisys/Resolver.fs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Jennisys/Jennisys/Resolver.fs b/Jennisys/Jennisys/Resolver.fs index c4bd99a2..d863cc7b 100644 --- a/Jennisys/Jennisys/Resolver.fs +++ b/Jennisys/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)
|