TODOs

anoma · Nov 28, 2024 · 80dd864 · 80dd864
1 parent a08fd7f
commit 80dd864
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Juvix/Compiler/Core/Transformation/Optimize/LoopHoisting.hs b/src/Juvix/Compiler/Core/Transformation/Optimize/LoopHoisting.hs
@@ -13,9 +13,11 @@ loopHoisting md = mapT (const (umapL go)) md
     go :: BinderList Binder -> Node -> Node
     go bl node = case node of
       NApp {} -> case h of
+        -- TODO: variables
         NIdt Ident {..} -> goApp bl _identSymbol h 0 args
         _ -> node
         where
+          -- TODO: consider only fully applied
           (h, args) = unfoldApps node
       _ ->
         node
@@ -57,7 +59,7 @@ loopHoisting md = mapT (const (umapL go)) md
         extract :: (Member (State [Node]) r) => Level -> Node -> Sem r Recur
         extract n node
           | not (isImmediate md node || isLambda node)
-              && isFullyApplied md node
+              && isFullyApplied md node -- TODO: variables
               && null boundVars = do
               k <- length <$> get @[Node]
               modify' ((shift (-(n + bindersNum)) node) :)