Back to index

plt-scheme  4.2.1
embed-me8.c
Go to the documentation of this file.
00001 #include "escheme.h"
00002 
00003 Scheme_Object *ex(int argc, Scheme_Object **argv)
00004 {
00005   return scheme_make_utf8_string("Hello, world!");
00006 }
00007 
00008 Scheme_Object *scheme_reload(Scheme_Env *env)
00009 {
00010   Scheme_Env *menv;
00011 
00012   menv = scheme_primitive_module(scheme_intern_symbol("embed-me8"),
00013                              env);
00014 
00015   scheme_add_global("ex", scheme_make_prim_w_arity(ex, "ex", 0, 0), menv);
00016 
00017   scheme_finish_primitive_module(menv);
00018 
00019   return scheme_void;
00020 }
00021 
00022 Scheme_Object *scheme_initialize(Scheme_Env *env)
00023 {
00024   /* First load is same as every load: */
00025   return scheme_reload(env);
00026 }
00027 
00028 Scheme_Object *scheme_module_name()
00029 {
00030   return scheme_intern_symbol("embed-me8");
00031 }