aboutsummaryrefslogtreecommitdiff
path: root/frontend/postparse.icl
diff options
context:
space:
mode:
Diffstat (limited to 'frontend/postparse.icl')
-rw-r--r--frontend/postparse.icl3
1 files changed, 0 insertions, 3 deletions
diff --git a/frontend/postparse.icl b/frontend/postparse.icl
index 2578f92..a5b0cf1 100644
--- a/frontend/postparse.icl
+++ b/frontend/postparse.icl
@@ -997,18 +997,15 @@ reorganiseLocalDefinitions [PD_TypeSpec pos1 name1 prio type specials : defs] ca
reorganiseLocalDefinitions [] ca
= ([], [], ca)
-
belongsToTypeSpec name prio new_name is_infix :==
name == new_name && sameFixity prio is_infix
-
determineArity :: [ParsedExpr] (Optional SymbolType) -> Int
determineArity args (Yes {st_arity})
= st_arity
determineArity args No
= length args
-
sameFixity :: Priority Bool -> Bool
sameFixity (Prio _ _) is_infix
= is_infix