1
0
forked from GitHub/gf-core

Transfer: changed syntax to remove the mandatory type annotation in let.

This commit is contained in:
bringert
2005-12-09 11:45:57 +00:00
parent 8739ef954c
commit 6b137b54ba
21 changed files with 80 additions and 95 deletions

View File

@@ -1,5 +1,5 @@
x : Apa
x = let x : T = y
x = let x = y
in case y of
f -> q
_ -> a

View File

@@ -85,8 +85,8 @@ int2bin = int2bin_ End
int2bin_ : Binary_Tree Bin -> Integer -> Binary_Tree Bin
int2bin_ b 0 = b
int2bin_ b n = let d : Integer = if n % 2 == 0 then Zero else One
q : Integer = n / 2
int2bin_ b n = let d = if n % 2 == 0 then Zero else One
q = n / 2
in int2bin_ (d b) q
num2bin : Tree Numeral -> Binary_Tree Bin

View File

@@ -13,7 +13,7 @@ isSnake _ x = case x of
wideSnake : (A : Cat) -> Tree A -> Tree A
wideSnake _ x = case x of
Wide y -> let y' : CN = wideSnake ? y
Wide y -> let y' = wideSnake ? y
in if isSnake CN y' then Thick y' else Wide y'
_ -> composOp ? ? compos_Tree ? wideSnake x