github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 13:51:44 +03:00
Code Issues Projects Releases Wiki Activity

Return the subtermValue of sendSelector if there's no receiver

Browse Source
This commit is contained in:
joshvera 2018-04-09 13:04:38 -04:00
parent 341954f0e4
commit 9485a635dc
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Language/Ruby/Syntax.hs
View File

@ -45,10 +45,11 @@ instance Show1 Send where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable Send where
eval Send{..} = do
recvEnv <- case sendReceiver of
Just recv -> subtermValue recv >>= scopedEnvironment
Nothing -> getEnv -- send to implicit self
func <- localEnv (mappend recvEnv) (subtermValue sendSelector)
func <- case sendReceiver of
Just recv -> do
recvEnv <- subtermValue recv >>= scopedEnvironment
localEnv (mappend recvEnv) (subtermValue sendSelector)
Nothing -> subtermValue sendSelector -- TODO Does this require `localize` so we don't leak terms when resolving `sendSelector`?
call func (map subtermValue sendArgs) -- TODO pass through sendBlock
data Require a = Require { requireRelative :: Bool, requirePath :: !a }