26 lines
751 B
C++
26 lines
751 B
C++
#include "common.hpp"
|
|
#include "fun.hpp"
|
|
#include "macro.hpp"
|
|
#include "../src/types.hpp"
|
|
|
|
extern "C" void lib(Zarn& zarn)
|
|
{
|
|
zarn.register_function("println",
|
|
std::make_shared<Prototype>()
|
|
->param_any()
|
|
->param_variadic()
|
|
->ret(TYPE_NIL),
|
|
println);
|
|
|
|
zarn.register_function("assert=",
|
|
std::make_shared<Prototype>()
|
|
->param_any()
|
|
->param_any()
|
|
->ret(TYPE_NIL),
|
|
assert_eq);
|
|
|
|
zarn.register_macro("assert-fail", assert_fail);
|
|
zarn.register_macro("$", declare);
|
|
zarn.register_macro(":", block);
|
|
}
|