git @ Cat's Eye Technologies Deturgenchry / 7b30f27
Clearly 'Self' can't be this. Although, this way is no better. catseye 9 years ago
1 changed file(s) with 2 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all
+2
-2
src/Deturgenchry.hs less more
213213 data Object = IntVal Integer
214214 | ObjVal String (Map Name Object)
215215 | ContVal (Map Name Object) ContV
216 | Self
217216 | Null
218217 deriving (Show, Eq)
219218
261260 case (length actuals) - (length formals) of
262261 0 ->
263262 let
263 self = (ContVal EmptyMap (ContV id)) -- NO NOT REALLY
264264 ctx = buildContext formals actuals
265 ctx' = set "self" Self ctx
265 ctx' = set "self" self ctx
266266 ctx'' = set "other" other ctx'
267267 in
268268 evalStatement p ctx'' stmt id