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

Fized some typos in Toy1.

Browse Source
This commit is contained in:
bringert
2007-07-04 11:27:06 +00:00
parent 173da349b4
commit 0f8ef7432c
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/regulus/toy1/Toy1a.gf
View File

@@ -1,4 +1,4 @@
abstract Toy1 = { abstract Toy1a = {
flags startcat = Utterance ; flags startcat = Utterance ;

6
examples/regulus/toy1/Toy1aEng.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:prelude --# -path=.:prelude
concrete Toy1Eng of Toy1 = open Prelude in { concrete Toy1aEng of Toy1a = open Prelude in {
-- grammar Toy1 from the Regulus book -- grammar Toy1 from the Regulus book
@@ -42,8 +42,8 @@ lin
light = mkNoun "light" ; light = mkNoun "light" ;
fan = mkNoun "fan" ; fan = mkNoun "fan" ;
switchOn _ = mkVerb "switch" "swithced" "on" ; switchOn _ = mkVerb "switch" "switched" "on" ;
switchOff _ = mkVerb "switch" "swithced" "off" ; switchOff _ = mkVerb "switch" "switched" "off" ;
dim = mkVerb "dim" "dimmed" [] ; dim = mkVerb "dim" "dimmed" [] ;