fix typo

kandu · kandu · commit 3773ca5766a6 · 2019-06-17T14:24:47.000+08:00
diff --git a/src/lTerm_windows_stubs.c b/src/lTerm_windows_stubs.c
@@ -205,11 +205,10 @@ static value result_read_console_input(struct job_read_console_input *job)
 
 CAMLprim value lt_windows_read_console_input_job(value val_fd)
 {
-  CAMLparam0();
+  CAMLparam1(val_fd);
   LWT_UNIX_INIT_JOB(job, read_console_input, 0);
   job->handle = Handle_val(val_fd);
   job->error_code = 0;
-  return lwt_unix_alloc_job(&(job->job));
   CAMLreturn(lwt_unix_alloc_job(&(job->job)));
 }
 

Original file line number	Diff line number	Diff line change
`@@ -205,11 +205,10 @@ static value result_read_console_input(struct job_read_console_input *job)`
`205`	`205`
`206`	`206`	`CAMLprim value lt_windows_read_console_input_job(value val_fd)`
`207`	`207`	`{`
`208`		`- CAMLparam0();`
	`208`	`+ CAMLparam1(val_fd);`
`209`	`209`	`LWT_UNIX_INIT_JOB(job, read_console_input, 0);`
`210`	`210`	`job->handle = Handle_val(val_fd);`
`211`	`211`	`job->error_code = 0;`
`212`		`- return lwt_unix_alloc_job(&(job->job));`
`213`	`212`	`CAMLreturn(lwt_unix_alloc_job(&(job->job)));`
`214`	`213`	`}`
`215`	`214`