diff options
Diffstat (limited to 'Jennisys/Resolver.fs')
-rw-r--r-- | Jennisys/Resolver.fs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Jennisys/Resolver.fs b/Jennisys/Resolver.fs index 59c6904d..fac29fba 100644 --- a/Jennisys/Resolver.fs +++ b/Jennisys/Resolver.fs @@ -70,7 +70,8 @@ let Resolve (env,ctx) cst = let Eval (heap,env,ctx) expr =
let rec __EvalResolver expr =
match expr with
- | IdLiteral(id) when id = "this" -> GetThisLoc env
+ | VarLiteral(id) -> ExprConst(expr)
+ | IdLiteral("this") -> GetThisLoc env
| IdLiteral(id) ->
match TryResolve (env,ctx) (Unresolved(id)) with
| Unresolved(_) -> __EvalResolver (Dot(IdLiteral("this"), id))
|