From 704d4000296bb72cb10d826f16f5e84b51a2ce4e Mon Sep 17 00:00:00 2001
From: crc <>
Date: Thu, 18 Jul 2024 10:28:00 +0000
Subject: [PATCH] [nga-c] corrected fix for `script:name` (issue #99)

FossilOrigin-Name: eca3b588f990932f2161d869df338c8cb4f96bd17b13a1fcd741526661ea3e4a
---
 vm/nga-c/retro.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vm/nga-c/retro.c b/vm/nga-c/retro.c
index 228b842..f09043e 100644
--- a/vm/nga-c/retro.c
+++ b/vm/nga-c/retro.c
@@ -566,7 +566,7 @@ V scripting_include_plain(NgaState *vm) {
 }
 
 V scripting_name(NgaState *vm) {
-  if ((vm->sys_argc - 2) <= 0)
+  if (vm->sys_argc == 1)
     stack_push(vm, string_inject(vm, "<none>", stack_pop(vm)));
   else
     stack_push(vm, string_inject(vm, vm->sys_argv[1], stack_pop(vm)));