qq!

2026-07-16 14:16:01 -06:00
parent 016ac791ad
commit 2dffdf112c
5 changed files with 366 additions and 199 deletions
@@ -23,7 +23,6 @@ module Gyehoek.Scheme.Syntax
  , qexp
  , qprog
  , subst
-  , freeVariables
  )
  where

@@ -254,13 +253,3 @@ subst f = \e -> cata go e mempty where
  go (ExpLetF _ _) _ = error "todo lol"
  go (ExpLambdaF bs e) bound = e $ insertFrom bs bound
  go e bound = embed $ fmap ($ bound) e
-
-- | Unlawful!
-freeVariables :: Traversal Exp Exp Name Exp
-freeVariables k = \e -> cataA go e mempty where
-  go (ExpVarF x) bound
-    | not (x `HS.member` bound) = k x
-    | otherwise                 = pure $ ExpVar x
-  go (ExpLetF _ _) _ = error "todo lol"
-  go (ExpLambdaF bs e) bound = e $ insertFrom bs bound
-  go e bound = embed <$> traverse ($ bound) e