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 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc. |
7 |
* |
* |
8 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
9 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
145 |
#define SCM_XEVALCAR(x, env) EVALCAR (x, env) |
#define SCM_XEVALCAR(x, env) EVALCAR (x, env) |
146 |
#endif /* DEBUG_EXTENSIONS */ |
#endif /* DEBUG_EXTENSIONS */ |
147 |
|
|
148 |
|
typedef SCM (*scm_t_trampoline_0) (SCM proc); |
149 |
typedef SCM (*scm_t_trampoline_1) (SCM proc, SCM arg1); |
typedef SCM (*scm_t_trampoline_1) (SCM proc, SCM arg1); |
150 |
typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM arg2); |
typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM arg2); |
151 |
|
|
244 |
SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args); |
SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args); |
245 |
SCM_API SCM scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args); |
SCM_API SCM scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args); |
246 |
SCM_API SCM scm_apply_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM args); |
SCM_API SCM scm_apply_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM args); |
247 |
|
SCM_API SCM scm_i_call_closure_0 (SCM proc); |
248 |
|
SCM_API scm_t_trampoline_0 scm_trampoline_0 (SCM proc); |
249 |
SCM_API scm_t_trampoline_1 scm_trampoline_1 (SCM proc); |
SCM_API scm_t_trampoline_1 scm_trampoline_1 (SCM proc); |
250 |
SCM_API scm_t_trampoline_2 scm_trampoline_2 (SCM proc); |
SCM_API scm_t_trampoline_2 scm_trampoline_2 (SCM proc); |
251 |
SCM_API SCM scm_nconc2last (SCM lst); |
SCM_API SCM scm_nconc2last (SCM lst); |