This instance will be upgraded to Heptapod 0.17.2 on 2020-12-03 at 14:00 UTC+1 (a few minutes of down time)

Updated Cloak sample's GO routine to fix AGAIN.

parent 053777f89533
......@@ -23,9 +23,15 @@ ZIL conversion by Jesse McGrew, Jayson Smith, and Josh Lawrence">
<REPEAT ()
<COND (<PARSER>
<PERFORM ,PRSA ,PRSO ,PRSI>
<APPLY <GETP ,HERE ,P?ACTION> ,M-END>
<OR <META-VERB?> <CLOCKER>>)>
<SETG HERE <LOC ,WINNER>>>>
;"WAIT loops through M-END and CLOCKER in a special way during PERFORM, so skip
those routines if WAIT ran this turn"
<OR <META-VERB?> <AND ,AGAINCALL> <APPLY <GETP ,HERE ,P?ACTION> ,M-END>>
<OR <META-VERB?> <AND ,AGAINCALL> <CLOCKER>>
;"backup inputbuffers"
<COPY-READBUF>
<COPY-LEXBUF>
<SETG AGAINCALL 0>)>
<SETG HERE <LOC ,WINNER>>>>
<INSERT-FILE "parser">
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment