Fized some typos in Toy1.

This commit is contained in:
bringert
2007-07-04 11:27:06 +00:00
parent cd874a6ce4
commit b9243c037a
2 changed files with 4 additions and 4 deletions

View File

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

View File

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