From e2b9657f79d913dddb064037e79a9dd1a63bdbf9 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 4 Sep 2007 20:51:26 +0000 Subject: cleaned up Calculator example --- examples/tutorial/calculator/CalculatorC.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/tutorial/calculator/CalculatorC.gf') diff --git a/examples/tutorial/calculator/CalculatorC.gf b/examples/tutorial/calculator/CalculatorC.gf index e36c28e3f..53eade357 100644 --- a/examples/tutorial/calculator/CalculatorC.gf +++ b/examples/tutorial/calculator/CalculatorC.gf @@ -10,7 +10,7 @@ concrete CalculatorC of Calculator = open Prelude, Formal in { lin PEmpty = ss [] ; - PDecl exp prog = ss ("int" ++ prog.$0 ++ "=" ++ top exp ++ ";" ++ prog.s) ; + PInit exp prog = ss ("int" ++ prog.$0 ++ "=" ++ top exp ++ ";" ++ prog.s) ; PAss vr exp prog = ss (vr.s ++ "=" ++ top exp ++ ";" ++ prog.s) ; EPlus = infixl 0 "+" ; -- cgit v1.2.3