Added peacekeeping example back in. Doesn't compile yet.

This commit is contained in:
bjorn
2008-08-15 20:21:12 +00:00
parent 66c927937a
commit 137133b742
35 changed files with 785 additions and 0 deletions

View File

@@ -0,0 +1,12 @@
--# -path=.:..:present:prelude
concrete PeacePhrases_Eng of PeacePhrases =
PeaceCat_Eng ** open ResEng, PeaceRes in {
lin
Hello = stop "hello" ;
GoodMorning = stop ["good morning"];
GoodEvening = stop ["good evening"] ;
WhatIsNamePron p = quest (["what is"] ++ p.s!Gen ++ "name") ;
}