26 lines
744 B
C
26 lines
744 B
C
#include <racket/scheme.h>
|
|
#include <stdio.h>
|
|
|
|
extern const char _binary_app_zo_start;
|
|
extern const char _binary_app_zo_end;
|
|
|
|
static int run(Scheme_Env *e, int argc, char *argv[]) {
|
|
Scheme_Object *a[2];
|
|
|
|
size_t load_size = ((uintptr_t) &_binary_app_zo_end) - ((uintptr_t) &_binary_app_zo_start);
|
|
scheme_register_embedded_load(load_size, &_binary_app_zo_start);
|
|
scheme_embedded_load(load_size, &_binary_app_zo_start, 1);
|
|
|
|
a[0] = scheme_make_pair(scheme_intern_symbol("quote"),
|
|
scheme_make_pair(scheme_intern_symbol(APP_NAME), scheme_make_null()));
|
|
a[1] = scheme_false;
|
|
|
|
scheme_dynamic_require(2, a);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int main(int argc, char *argv[]) {
|
|
return scheme_main_setup(1, run, argc, argv);
|
|
}
|