github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
Code Issues Projects Releases Wiki Activity

Bind the global scope recursively.

Browse Source
This commit is contained in:
Rob Rix 2019-07-22 10:18:02 -04:00
parent 2a5c1818d1
commit c175bc3553
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
semantic-core/src/Analysis/Eval.hs
View File

@ -134,7 +134,7 @@ prog6 =
]
ruby :: File (Term Core User)
ruby = fromBody . ann $ record
ruby = fromBody . ann . rec (named' __semantic_global) $ record
[ ("Class", Core.record
[ (__semantic_super, pure "Object")
, ("new", lam (named' "self")
@ -189,6 +189,7 @@ ruby = fromBody . ann $ record
]
where self $$$ method = annWith callStack $ lam (named' "_x") (pure "_x" Core.... pure method $$ pure "_x") $$ self
__semantic_global = "__semantic_global"
__semantic_super = "__semantic_super"
__semantic_truthy = "__semantic_truthy"