max/uclisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clean up many strdups

Browse Source
This commit is contained in:
Max Regan
2022-11-02 20:36:07 -04:00
parent 9c1a81811c
commit 3b7bef779b
11 changed files with 39 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/builtins.c
View File

@@ -12,15 +12,15 @@
LISP_FUNC_1(ucl_builtin_type, state, arg) {
switch (arg->type) {
case UCL_TYPE_CELL:
return ucl_symbol_create(strdup("list"));
return ucl_symbol_create("list");
case UCL_TYPE_SYMBOL:
return ucl_symbol_create(strdup("symbol"));
return ucl_symbol_create("symbol");
case UCL_TYPE_INT:
return ucl_symbol_create(strdup("int"));
return ucl_symbol_create("int");
case UCL_TYPE_STRING:
return ucl_symbol_create(strdup("string"));
return ucl_symbol_create("string");
case UCL_TYPE_ERROR:
return ucl_symbol_create(strdup("error"));
return ucl_symbol_create("error");
case UCL_TYPE_COUNT:
assert(0);
return NULL;
@@ -32,7 +32,7 @@ LISP_FUNC_1(ucl_builtin_error, state, arg) {
return ucl_error_create("Expected type string passed to 'error'");
}
return ucl_error_create(strdup(arg->error));
return ucl_error_create(arg->error);
}
LISP_FUNC_1(ucl_builtin_symbol_p, state, arg) {
@@ -81,7 +81,7 @@ LISP_FUNC_2(ucl_builtin_sub, state, arg0, arg1) {
}
if (arg1->type != UCL_TYPE_INT) {
return ucl_error_create("Invalid type of argument 1 to 'sub'");
return ucl_error_create(("Invalid type of argument 1 to 'sub'"));
}
return ucl_int_create(arg0->integer - arg1->integer);