Back to index

plt-scheme  4.2.1
Defines | Functions | Variables
places.c File Reference
#include "schpriv.h"

Go to the source code of this file.

Defines

#define PLACE_PRIM_W_ARITY(name, func, a1, a2, env)   GLOBAL_PRIM_W_ARITY(name, not_implemented, a1, a2, env)

Functions

static Scheme_Objectnot_implemented (int argc, Scheme_Object **argv)
void scheme_init_place (Scheme_Env *env)

Variables

static Scheme_Objectplace_main_symbol

Define Documentation

#define PLACE_PRIM_W_ARITY (   name,
  func,
  a1,
  a2,
  env 
)    GLOBAL_PRIM_W_ARITY(name, not_implemented, a1, a2, env)

Definition at line 33 of file places.c.


Function Documentation

static Scheme_Object* not_implemented ( int  argc,
Scheme_Object **  argv 
) [static]

Definition at line 35 of file places.c.

{
  scheme_raise_exn(MZEXN_FAIL_UNSUPPORTED, "not supported");
  return NULL;
}

Definition at line 50 of file places.c.

{
  Scheme_Env *plenv;

#ifdef MZ_PRECISE_GC
  register_traversers();
#endif
  
  place_main_symbol = scheme_intern_symbol("place-main");
  plenv = scheme_primitive_module(scheme_intern_symbol("#%place"), env);

  PLACE_PRIM_W_ARITY("place",       scheme_place,       1, 2, plenv);
  PLACE_PRIM_W_ARITY("place-sleep", scheme_place_sleep, 1, 1, plenv);
  PLACE_PRIM_W_ARITY("place-wait",  scheme_place_wait,  1, 1, plenv);
  PLACE_PRIM_W_ARITY("place?",      scheme_place_p,     1, 1, plenv);

  scheme_finish_primitive_module(plenv);
}

Here is the caller graph for this function:


Variable Documentation

Definition at line 5 of file places.c.