From 1031c52e9bc3e8953b8c21f1159cf1728d6c0526 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 12 Aug 2022 23:14:18 -0700
Subject: [PATCH] Tweak

---
 examples/curl.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/examples/curl.fs b/examples/curl.fs
index fd50e1f..421c96e 100644
--- a/examples/curl.fs
+++ b/examples/curl.fs
@@ -26,7 +26,8 @@ sock googleaddr sizeof(sockaddr_in) connect 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
 scr