diff --git a/examples/tictactoe.modal b/examples/tictactoe.modal index 6234a9b..87f9deb 100644 --- a/examples/tictactoe.modal +++ b/examples/tictactoe.modal @@ -5,9 +5,9 @@ -- (Print) -<> (put-str ?:) (?:) -<> (put-row (?0 ?1 ?2)) (put-str ?0 put-str | put-str ?1 put-str | put-str ?2 put-str \n) -<> ((?a ?b ?c) display) (put-row ?a put-row ?b put-row ?c put-str \n (?a ?b ?c)) +<> (?: put-str) (?:) +<> ((?0 ?1 ?2) put-row) (?0 put-str | put-str ?1 put-str | put-str ?2 put-str \n put-str) +<> ((?a ?b ?c) display) (?a put-row ?b put-row ?c put-row \n put-str (?a ?b ?c)) -- (Validation) @@ -36,7 +36,7 @@ <> (ready) (display READ play) <> (?x run wait) (READ play) -<> (?x victory) (put-str (?x wins!\n)) +<> (?x victory) ((?x wins!\n) put-str) -- (Interface)