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 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002 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 |
130 |
#define SCM_XEVALCAR(x, env) EVALCAR (x, env) |
#define SCM_XEVALCAR(x, env) EVALCAR (x, env) |
131 |
#endif /* DEBUG_EXTENSIONS */ |
#endif /* DEBUG_EXTENSIONS */ |
132 |
|
|
133 |
|
typedef SCM (*scm_t_trampoline_1) (SCM proc, SCM arg1); |
134 |
|
typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM arg2); |
135 |
|
|
136 |
|
|
137 |
|
|
138 |
#define SCM_EXTEND_ENV scm_acons |
#define SCM_EXTEND_ENV scm_acons |
227 |
SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args); |
SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args); |
228 |
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); |
229 |
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); |
230 |
|
SCM_API scm_t_trampoline_1 scm_trampoline_1 (SCM proc); |
231 |
|
SCM_API scm_t_trampoline_2 scm_trampoline_2 (SCM proc); |
232 |
SCM_API SCM scm_nconc2last (SCM lst); |
SCM_API SCM scm_nconc2last (SCM lst); |
233 |
SCM_API SCM scm_apply (SCM proc, SCM arg1, SCM args); |
SCM_API SCM scm_apply (SCM proc, SCM arg1, SCM args); |
234 |
SCM_API SCM scm_dapply (SCM proc, SCM arg1, SCM args); |
SCM_API SCM scm_dapply (SCM proc, SCM arg1, SCM args); |