diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-04 20:51:26 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-04 20:51:26 +0000 |
| commit | e2b9657f79d913dddb064037e79a9dd1a63bdbf9 (patch) | |
| tree | fc6bd314d5b69e570670a0c50204a017b954f111 /examples/tutorial/calculator/CalculatorC.gf | |
| parent | 6150508b4e105680ee9ee1dbcab462267cd8e5ba (diff) | |
cleaned up Calculator example
Diffstat (limited to 'examples/tutorial/calculator/CalculatorC.gf')
| -rw-r--r-- | examples/tutorial/calculator/CalculatorC.gf | 2 |
1 files changed, 1 insertions, 1 deletions
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 "+" ; |