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

9
fn.sl
View File

@@ -226,8 +226,10 @@ compile-only
# number?
dup string>number # out map tok num ok
if
# drop tok, append num
swap drop # out map num
# (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
@@ -244,8 +246,7 @@ compile-only
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