/[guile]/guile/guile-core/libguile/eval.h
ViewVC logotype

Diff of /guile/guile-core/libguile/eval.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.76 by dirk, Sun Apr 20 19:18:43 2003 UTC revision 1.77 by dirk, Wed Apr 23 17:20:26 2003 UTC
# Line 3  Line 3 
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
# Line 33  Line 33 
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;
# Line 46  SCM_API SCM scm_eval_options_interface ( Line 46  SCM_API SCM scm_eval_options_interface (
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    
# Line 127  typedef SCM (*scm_t_trampoline_2) (SCM p Line 127  typedef SCM (*scm_t_trampoline_2) (SCM p
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[];

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26