From 5cc284e6b004228c70f3352da8bdd62fe8369350 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Fri, 15 Nov 2024 17:42:40 -0800 Subject: [PATCH] Tweaks --- examples/gemini/arrays.fs | 2 +- examples/gemini/gemini.fs | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) 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