Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

[nga-c] now report 0 for script:arguments count if not running a program

Browse source 
FossilOrigin-Name: 926e685b338c07722000d4d4d659674fdbcfb77c5f970283596f10ec18ad8b1a
This commit is contained in:
crc 2024-07-18 10:24:37 +00:00
parent 565d567523
commit 25420eea5d
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
RELEASE-NOTES
View file

@ -53,6 +53,7 @@
- new "-p" option to run non-Unu format source files - new "-p" option to run non-Unu format source files
- now report "<none>" for `script:name` if no file is being - now report "<none>" for `script:name` if no file is being
run run
- now report 0 for `script:arguments` if not running a program
Future Notes Future Notes

3
vm/nga-c/retro.c
View file

@ -551,6 +551,9 @@ V scripting_arg(NgaState *vm) {
} }
V scripting_arg_count(NgaState *vm) { V scripting_arg_count(NgaState *vm) {
if ((vm->sys_argc - 2) <= 0)
stack_push(vm, 0);
else
stack_push(vm, vm->sys_argc - 2); stack_push(vm, vm->sys_argc - 2);
} }