Source/Jennisys/EnvUtils.fs


1
2
3
4
5
6
7
8
9

module EnvUtils

open Ast

let GetThisLoc env = 
  Map.findKey (fun k v -> 
                 match v with
                 | ThisConst(_) -> true
                 | _ -> false) env