@@ -780,7 +780,7 @@ translateConstant c =
780780
781781translateDeclaration :: (String, SDecl) -> JS
782782translateDeclaration (path, SFun name params stackSize body)
783− | (MN _ ap) <- name
783+ | (MN _ ap) <- name
784784 , (SLet var val next) <- body
785785 , (SChkCase cvar cases) <- next
786786 , ap == txt "APPLY" =
@@ -802,7 +802,7 @@ translateDeclaration (path, SFun name params stackSize body)
802802 )
803803 ]
804804
805− | (MN _ ev) <- name
805+ | (MN _ ev) <- name
806806 , (SChkCase var cases) <- body
807807 , ev == txt "EVAL" =
808808 JSSeq [ lookupTable [] var cases