examples: fix bug in mail.forth

FossilOrigin-Name: 1c8faed670c65885b2eeec91e8ab37f52394f649d2fe84d33497c27a2b8f2a2d
This commit is contained in:
crc 2019-05-03 14:51:35 +00:00
parent af87f7d2db
commit 690ce4ed36

View file

@ -3,7 +3,7 @@ sending emails from within RETRO.
~~~
:mail:send (sss-)
swap 'mail_-s_"%s"_%s s:format file:W unix:popen ;
swap 'mail_-s_"%s"_%s s:format file:W unix:popen
swap [ over file:write ] s:for-each unix:pclose ;
~~~