Add defun without evaluation
This commit is contained in:
13
src/main.c
13
src/main.c
@@ -2,16 +2,21 @@
|
||||
#include <stdio.h>
|
||||
|
||||
#include "uclisp.h"
|
||||
#include "state.h"
|
||||
#include "internal.h"
|
||||
#include "utility.h"
|
||||
|
||||
#include "builtins.h"
|
||||
#include "internal.h"
|
||||
#include "special.h"
|
||||
#include "state.h"
|
||||
#include "utility.h"
|
||||
|
||||
int main(int argc, const char **argv) {
|
||||
(void) argc, (void) argv;
|
||||
struct ucl_state *state = ucl_state_create();
|
||||
|
||||
ucl_state_put(state, "let", ucl_builtin_create(ucl_builtin_let));
|
||||
ucl_state_put(state, "let", ucl_special_create(ucl_special_let));
|
||||
ucl_state_put(state, "if", ucl_special_create(ucl_special_if));
|
||||
|
||||
|
||||
ucl_state_put(state, "print", ucl_builtin_create(ucl_builtin_print));
|
||||
ucl_state_put(state, "list", ucl_builtin_create(ucl_builtin_list));
|
||||
|
||||
|
||||
Reference in New Issue
Block a user