3 |
#ifndef SCM_EVAL_H |
#ifndef SCM_EVAL_H |
4 |
#define SCM_EVAL_H |
#define SCM_EVAL_H |
5 |
|
|
6 |
/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003 Free Software Foundation, Inc. |
7 |
* |
* |
8 |
* This library is free software; you can redistribute it and/or |
* This library is free software; you can redistribute it and/or |
9 |
* modify it under the terms of the GNU Lesser General Public |
* modify it under the terms of the GNU Lesser General Public |
33 |
|
|
34 |
SCM_API scm_t_option scm_eval_opts[]; |
SCM_API scm_t_option scm_eval_opts[]; |
35 |
|
|
36 |
#define SCM_EVAL_STACK scm_eval_opts[0].val |
#define SCM_EVAL_STACK scm_eval_opts[0].val |
37 |
#define SCM_N_EVAL_OPTIONS 1 |
#define SCM_N_EVAL_OPTIONS 1 |
38 |
|
|
39 |
SCM_API long scm_eval_stack; |
SCM_API long scm_eval_stack; |
46 |
#define SCM_ENTER_FRAME_P scm_evaluator_trap_table[1].val |
#define SCM_ENTER_FRAME_P scm_evaluator_trap_table[1].val |
47 |
#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[2].val |
#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[2].val |
48 |
#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[3].val |
#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[3].val |
49 |
#define SCM_ENTER_FRAME_HDLR (SCM)(scm_evaluator_trap_table[4].val) |
#define SCM_ENTER_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[4].val)) |
50 |
#define SCM_APPLY_FRAME_HDLR (SCM)(scm_evaluator_trap_table[5].val) |
#define SCM_APPLY_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[5].val)) |
51 |
#define SCM_EXIT_FRAME_HDLR (SCM)(scm_evaluator_trap_table[6].val) |
#define SCM_EXIT_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[6].val)) |
52 |
#define SCM_N_EVALUATOR_TRAPS 7 |
#define SCM_N_EVALUATOR_TRAPS 7 |
53 |
|
|
54 |
|
|
127 |
#define SCM_TOP_LEVEL_LOOKUP_CLOSURE (scm_current_module_lookup_closure()) |
#define SCM_TOP_LEVEL_LOOKUP_CLOSURE (scm_current_module_lookup_closure()) |
128 |
|
|
129 |
|
|
130 |
|
|
131 |
SCM_API const char scm_s_expression[]; |
SCM_API const char scm_s_expression[]; |
132 |
SCM_API const char scm_s_test[]; |
SCM_API const char scm_s_test[]; |
133 |
SCM_API const char scm_s_body[]; |
SCM_API const char scm_s_body[]; |