Made printing routines postfix
This commit is contained in:
parent
e67d30d8f3
commit
bf7b3f42f6
|
@ -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)
|
||||
|
||||
|
|
Loading…
Reference in New Issue