Working on with new resource API.

This commit is contained in:
aarne
2003-11-21 15:28:25 +00:00
parent 6d99debdff
commit 9cd2c273a2
12 changed files with 726 additions and 220 deletions

View File

@@ -42,7 +42,7 @@ oper
-- parametric order between two strings
preOrPost : Bool -> Str -> Str -> Str = \pr,x,y ->
if_then_else Str pr (x ++ y) (y ++ x) ;
if_then_Str pr (x ++ y) (y ++ x) ;
-- Booleans
@@ -59,6 +59,7 @@ oper
orB : (_,_ : Bool) -> Bool = \a,b -> if_then_else Bool a True b ;
notB : Bool -> Bool = \a -> if_then_else Bool a False True ;
if_then_Str : Bool -> Str -> Str -> Str = if_then_else Str ;
-- zero, one, two, or more (elements in a list etc)