11 lines
312 B
Forth
11 lines
312 B
Forth
Block 4055
|
|
( common:msg.4th — Hermes participant interface )
|
|
( Load into every messaging VM at birth: )
|
|
( S" common:msg.4th" USE )
|
|
: HERMES-ACK ( -- )
|
|
LOG-DEBUG" msg: ACK sent"
|
|
S" MSG-ACK-LAST" S" Hermes" VM-EXEC ;
|
|
: HERMES-NACK ( -- )
|
|
LOG-DEBUG" msg: NACK sent"
|
|
S" MSG-NACK-LAST" S" Hermes" VM-EXEC ;
|