Remove dead code

Fixes #484
links-lang · Feb 19, 2019 · ab04a9c · ab04a9c
1 parent b7c14c8
commit ab04a9c
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/core/desugarInners.ml b/core/desugarInners.ml
@@ -48,23 +48,19 @@ object (o : 'self_type)
           super#phrasenode (`UnaryAppl ((tyargs, `Name name), e))
             (* HACK: manage the lexical scope of extras *)
     | `Spawn _ as e ->
-        let extra_env = extra_env in
         let (o, e, t) = super#phrasenode e in
           (o#with_extra_env extra_env, e, t)
     | `Escape _ as e ->
-        let extra_env = extra_env in
         let (o, e, t) = super#phrasenode e in
           (o#with_extra_env extra_env, e, t)
     | `Block _ as e ->
-        let extra_env = extra_env in
         let (o, e, t) = super#phrasenode e in
           (o#with_extra_env extra_env, e, t)
     | e -> super#phrasenode e
 
   method! funlit =
     (* HACK: manage the lexical scope of extras *)
     fun inner_mb lam ->
-      let extra_env = extra_env in
       let (o, lam, t) = super#funlit inner_mb lam in
         (o#with_extra_env extra_env, lam, t)