msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

inherent features of Int

Browse Source
This commit is contained in:
aarne
2006-04-04 14:44:46 +00:00
parent e059fddb6d
commit 0bffc3c9f6
6 changed files with 139 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Grammar/Lookup.hs
View File

@@ -158,7 +158,12 @@ lookupAbsDef gr m c = errIn ("looking up absdef of" +++ prt c) $ do
lookupLincat :: SourceGrammar -> Ident -> Ident -> Err Type
lookupLincat gr m c | elem c [zIdent "String", zIdent "Int", zIdent "Float"] =
lookupLincat gr m c | elem c [zIdent "Int"] =
let ints k = App (Q (IC "Predef") (IC "Ints")) (EInt k) in
return $
RecType [
(LIdent "s", typeStr), (LIdent "last",ints 9),(LIdent "size",ints 1)]
lookupLincat gr m c | elem c [zIdent "String", zIdent "Float"] =
return defLinType --- ad hoc; not needed?
lookupLincat gr m c = do