From bf7b3f42f686a7d54a6299f2fbdf7477a72c9ec0 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Thu, 11 Apr 2024 17:20:35 -0700 Subject: [PATCH] Made printing routines postfix --- examples/tictactoe.modal | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)