Commit 30c9f448 authored by John van Groningen's avatar John van Groningen
Browse files

remove some old code in comments

parent 268f5cc7
......@@ -208,14 +208,7 @@ wantList msg try_fun pState :== want_list msg pState // try_fun +
= ([tree : trees], pState)
# (token, pState) = nextToken GeneralContext pState
= ([tree], parseError ("wantList of "+msg) (Yes token) msg pState)
/*
instance want (a,b) | want a & want b
where
want pState
# (x, pState) = want pState
(y, pState) = want pState
= ((x,y), pState)
*/
wantModuleIdents :: !ScanContext !IdentClass !ParseState -> (![Ident], !ParseState)
wantModuleIdents scanContext ident_class pState
# (first_name, pState) = wantModuleName pState
......@@ -902,13 +895,7 @@ where
# (token, pState) = nextToken FunctionContext pState
(nodeDefs2, token, pState) = want_LetBefores token pState
= want_FunctionBody token (nodeDefs ++ nodeDefs2) alts definingSymbol pState // to allow | otherwise | c1 = .. | c2 = ..
/* PK ???
= case token of
BarToken
# pState = parseError "RHS: default alternative" No "root expression instead of guarded expression" pState
-> root_expression True token (nodeDefs ++ nodeDefs2) (reverse alts) sep pState
_ -> root_expression True token (nodeDefs ++ nodeDefs2) (reverse alts) sep pState
*/ | token == LetToken True
| token == LetToken True
# pState = parseError "RHS" No "No 'let!' in this version of Clean" pState
= root_expression True token nodeDefs (reverse alts) definingSymbol pState
# (guard, pState) = wantRhsExpressionT token pState
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment