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

2beta2

Browse Source
This commit is contained in:
aarne
2004-04-01 09:51:32 +00:00
parent 8d828c46d5
commit cef421db7e
12 changed files with 64 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
grammars/prelude/Prelude.gf
View File

@@ -73,8 +73,8 @@ oper
-- these were defined in Predef before
isNil : Tok -> Bool = \b -> pbool2bool (Predef.eqStr [] b) ;
ifTok : (A : Type) -> Tok -> Tok -> A -> A -> A = \A,t,u,a,b ->
case Predef.eqStr t u of {Predef.PTrue => a ; Predef.PFalse => b} ;
ifTok : (A : Type) -> Tok -> Tok -> A -> A -> A = \A,t,u,a,b ->
case Predef.eqStr t u of {Predef.PTrue => a ; Predef.PFalse => b} ;
-- so we need an interface
pbool2bool : Predef.PBool -> Bool = \b -> case b of {