From 566a43824217518056310d023593ca75d9f4a3c6 Mon Sep 17 00:00:00 2001 From: IgorCielniak Date: Sun, 14 Dec 2025 16:41:00 +0100 Subject: [PATCH] small fix in fn.sl --- fn.sl | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/fn.sl b/fn.sl index e40ca06..b2914a6 100644 --- a/fn.sl +++ b/fn.sl @@ -226,9 +226,11 @@ compile-only # number? dup string>number # out map tok num ok if - # drop tok, append num - swap drop # out map num - swap >r # out num (r: map) + # (out map tok num) -> (out' map) + >r # out map tok (r: num) + drop # out map + r> # out map num + swap >r # out num (r: map) list-append # out' r> # out' map exit @@ -236,16 +238,15 @@ compile-only drop # out map tok # param? - dup >r # out map tok (r: tok) + dup >r # out map tok (r: tok) map-get # out map idx|nil ok if # append idx - swap >r # out idx (r: map tok) + swap >r # out idx (r: map tok) list-append # out' r> # out' map # append "rpick" - "rpick" # out' map "rpick" - swap >r # out' "rpick" (r: map tok) + "rpick" swap >r # out' "rpick" (r: map tok) list-append # out'' r> # out'' map # drop saved tok @@ -255,7 +256,7 @@ compile-only # not a param: drop idx|nil, append original tok drop # out map r> # out map tok - swap >r # out tok (r: map) + swap >r # out tok (r: map) list-append # out' r> # out' map ;