popup and diagnose ui
This commit is contained in:
+2
-2
@@ -1163,7 +1163,7 @@ static Lisp sch_string_ref(Lisp args, LispError* e, LispContext ctx)
|
||||
return lisp_null();
|
||||
}
|
||||
|
||||
return lisp_make_char((int)lisp_string_ref(str, lisp_int(index)));
|
||||
return lisp_make_char(lisp_string_ref(str, lisp_int(index)));
|
||||
}
|
||||
|
||||
static Lisp sch_string_set(Lisp args, LispError* e, LispContext ctx)
|
||||
@@ -1737,7 +1737,7 @@ static Lisp sch_pseudo_rand(Lisp args, LispError* e, LispContext ctx)
|
||||
|
||||
static Lisp sch_univeral_time(Lisp args, LispError* e, LispContext ctx)
|
||||
{
|
||||
return lisp_make_int((LispInt)time(NULL));
|
||||
return lisp_make_int(time(NULL));
|
||||
}
|
||||
|
||||
static Lisp sch_is_table(Lisp args, LispError* e, LispContext ctx)
|
||||
|
||||
Reference in New Issue
Block a user