Test parameter count change

BrickBot · Jul 23, 2024 · 6787d85 · 6787d85
1 parent 91c541e
commit 6787d85
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/xs/lisp/eval.c b/xs/lisp/eval.c
@@ -1413,7 +1413,7 @@ object eval(object e) {
 			break;
 
 		case Lputc_native_user:
-			//if (check_int_args(base)) goto LERROR;
+			if (check_int_args(base)) goto LERROR;
 #if (defined(RCX) && defined(CONF_CONIO))
 			cputc_native_user(INTval(e = base[0]), INTval(base[1]), INTval(base[2]), INTval(base[3]));
 			//cputc_native(INTval(e = base[0]), 4); cputc_native(INTval(base[1]), 3); cputc_native(INTval(base[2]), 2); cputc_native(INTval(base[3]), 1); 

diff --git a/xs/lisp/front.c b/xs/lisp/front.c
@@ -614,7 +614,7 @@ void initGlobals() {
 	def("puts", MKCONST(Lputs,1,0,0));
 	def("putc", MKCONST(Lputc,2,0,0));
 	def("putc-native", MKCONST(Lputc_native,2,0,0));
-	def("putc-native-user", MKCONST(Lputc_native_user,4,0,0));
+	def("putc-native-user", MKCONST(Lputc_native_user,3,0,0));
 	def("cls", MKCONST(Lcls,0,0,0));
 	def("battery", MKCONST(Lbattery,0,0,0));
 	def("reset-time", MKCONST(Lreset_time,0,0,0));