diff --git a/examples/gemini/arrays.fs b/examples/gemini/arrays.fs index fb833de..646af70 100644 --- a/examples/gemini/arrays.fs +++ b/examples/gemini/arrays.fs @@ -38,7 +38,7 @@ variable arp arstack arp ! create array-sizes cell , 1 , cell , 4 , : >esize ( type -- n ) cells array-sizes + @ ; -\ ref n ^type data... +( ref n type ^data... ) 3 cells constant header-size : >type ( a -- a ) -1 cells + ; : >count ( a -- a ) -2 cells + ; diff --git a/examples/gemini/gemini.fs b/examples/gemini/gemini.fs index bcdec6d..4491d66 100644 --- a/examples/gemini/gemini.fs +++ b/examples/gemini/gemini.fs @@ -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