Fix $goto target position

.gitignore

@@ -34,4 +34,6 @@ neko.sln
 bin
 /extra/chocolatey/LICENSE
 /extra/chocolatey/*.zip
-/extra/chocolatey/*.nupkg
+/extra/chocolatey/*.nupkg
+
+/tests/*.n

CMakeLists.txt

@@ -782,6 +782,8 @@ add_test(NAME nekotools
 	WORKING_DIRECTORY ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}
 )
 
+add_subdirectory(tests)
+
 #######################
 
 # debian source packages

src/neko/Compile.nml

@@ -718,7 +718,7 @@ function rec compile_builtin(ctx,tail,b,el,p) {
 		ctx.stack := os;
 		match l.lpos {
 		| None -> l.lwait := jmp ctx :: l.lwait
-		| Some p -> write ctx (Jump p)
+		| Some p -> goto ctx p
 		};
 		List.iter (function(t) {
 			t();

tests/CMakeLists.txt

@@ -0,0 +1,16 @@
+file(MAKE_DIRECTORY ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/tests/)
+
+add_test(NAME build_goto.n
+	COMMAND nekoc -o ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/tests/ ${CMAKE_SOURCE_DIR}/tests/goto.neko
+	WORKING_DIRECTORY ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}
+)
+
+add_test(NAME run_goto.n
+	COMMAND nekovm tests/goto.n
+	WORKING_DIRECTORY ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}
+)
+
+set_tests_properties(run_goto.n PROPERTIES
+  PASS_REGULAR_EXPRESSION "startcontinue1continue2end"
+  FIXTURES_SETUP build_goto.n
+)

tests/goto.neko

@@ -0,0 +1,17 @@
+$print("start");
+$goto(forward);
+
+$print("skip");
+
+backward:
+$print("continue2");
+$goto(end);
+
+forward:
+$print("continue1");
+$goto(backward);
+
+$print("skip");
+
+end:
+$print("end");