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

Tweaks

Browse Source
This commit is contained in:
Brad Nelson
2024-11-15 17:42:40 -08:00
parent 47c9ec02ba
commit 5cc284e6b0
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
examples/gemini/gemini.fs
View File

@ -49,7 +49,7 @@ also HTTPClient
NetworkClientSecure.new constant nclient
cacert top adrop nclient NetworkClientSecure.setCACert
: doquery ( a -- n )
: doquery ( a -- a )
HTTPClient.new { session }
url top adrop nclient session HTTPClient.beginNC 0= throw
1 session HTTPClient.setFollowRedirects
@ -62,7 +62,6 @@ cacert top adrop nclient NetworkClientSecure.setCACert
pad swap type
repeat
session HTTPClient.delete
cr
;
: ask