alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweak

Browse Source
This commit is contained in:
Brad Nelson
2022-08-12 23:14:18 -07:00
parent b0a93c7477
commit 1031c52e9b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
examples/curl.fs
View File

@ -26,7 +26,8 @@ sock googleaddr sizeof(sockaddr_in) connect throw
s" GET / HTTP/1.0" sock write-file throw s" GET / HTTP/1.0" sock write-file throw
: semit ( ch s -- ) swap >r rp@ swap 1 swap write-file throw rdrop ; \ : semit ( ch s -- ) swap >r rp@ swap 1 swap write-file throw rdrop ;
: semit ( ch s -- ) swap >r rp@ 1 0 send 0< throw rdrop ;
: scr 13 sock semit 10 sock semit ; : scr 13 sock semit 10 sock semit ;
scr scr
scr scr