IgorCielniak/l2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small fix in fn.sl

Browse Source
This commit is contained in:
IgorCielniak
2025-12-14 16:41:00 +01:00
parent 08cb47b560
commit 566a438242
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
fn.sl
View File

@@ -226,9 +226,11 @@ compile-only
# number? # number?
dup string>number # out map tok num ok dup string>number # out map tok num ok
if if
# drop tok, append num # (out map tok num) -> (out' map)
swap drop # out map num >r # out map tok (r: num)
swap >r # out num (r: map) drop # out map
r> # out map num
swap >r # out num (r: map)
list-append # out' list-append # out'
r> # out' map r> # out' map
exit exit
@@ -236,16 +238,15 @@ compile-only
drop # out map tok drop # out map tok
# param? # param?
dup >r # out map tok (r: tok) dup >r # out map tok (r: tok)
map-get # out map idx|nil ok map-get # out map idx|nil ok
if if
# append idx # append idx
swap >r # out idx (r: map tok) swap >r # out idx (r: map tok)
list-append # out' list-append # out'
r> # out' map r> # out' map
# append "rpick" # append "rpick"
"rpick" # out' map "rpick" "rpick" swap >r # out' "rpick" (r: map tok)
swap >r # out' "rpick" (r: map tok)
list-append # out'' list-append # out''
r> # out'' map r> # out'' map
# drop saved tok # drop saved tok
@@ -255,7 +256,7 @@ compile-only
# not a param: drop idx|nil, append original tok # not a param: drop idx|nil, append original tok
drop # out map drop # out map
r> # out map tok r> # out map tok
swap >r # out tok (r: map) swap >r # out tok (r: map)
list-append # out' list-append # out'
r> # out' map r> # out' map
; ;