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?
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
;