github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 22:01:46 +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 instance Evaluatable Send where
eval Send{..} = do eval Send{..} = do
recvEnv <- case sendReceiver of func <- case sendReceiver of
Just recv -> subtermValue recv >>= scopedEnvironment Just recv -> do
Nothing -> getEnv -- send to implicit self recvEnv <- subtermValue recv >>= scopedEnvironment
func <- localEnv (mappend recvEnv) (subtermValue sendSelector) 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 call func (map subtermValue sendArgs) -- TODO pass through sendBlock
data Require a = Require { requireRelative :: Bool, requirePath :: !a } data Require a = Require { requireRelative :: Bool, requirePath :: !a }