Implement PRGNAME$

2016-12-28 16:27:49 +09:00
parent 5505d7c9f0
commit 88c015c34f
4 changed files with 23 additions and 9 deletions
--- a/SMILEBASIC/VM.d
+++ b/SMILEBASIC/VM.d
@@ -2334,7 +2334,7 @@ class Exec : Code
            }
            wstring content;
            if (vm.petitcomputer.project.loadFile(file.project, "TXT", file.name, content))
-                vm.petitcomputer.program.slot[slot].load(content);
+                vm.petitcomputer.program.slot[slot].load(file.name, content);
            else
                throw new LoadFailed();//TODO:DIALOG?
        }