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

2
examples/gemini/arrays.fs
View File

@ -38,7 +38,7 @@ variable arp arstack arp !
create array-sizes cell , 1 , cell , 4 , create array-sizes cell , 1 , cell , 4 ,
: >esize ( type -- n ) cells array-sizes + @ ; : >esize ( type -- n ) cells array-sizes + @ ;
\ ref n ^type data... ( ref n type ^data... )
3 cells constant header-size 3 cells constant header-size
: >type ( a -- a ) -1 cells + ; : >type ( a -- a ) -1 cells + ;
: >count ( a -- a ) -2 cells + ; : >count ( a -- a ) -2 cells + ;

3
examples/gemini/gemini.fs
View File

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