fixing number of interrogatives in English Structural

This commit is contained in:
aarne
2008-05-29 16:16:19 +00:00
parent f116071ce5
commit a65be9ef42
5 changed files with 8 additions and 15 deletions

View File

@@ -245,7 +245,7 @@ prRefinement t = case t of
prOperSignature :: (QIdent,Type) -> String
prOperSignature (f, t) = prQIdent f +++ ":" +++ prt t
-- to look up a constant etc in a search tree
-- to look up a constant etc in a search tree --- why here? AR 29/5/2008
lookupIdent :: Ident -> BinTree Ident b -> Err b
lookupIdent c t = case lookupTree prt c t of