1 |
/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1998,2000,2001, 2003 Free Software Foundation, Inc. |
2 |
* |
* |
3 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
4 |
* 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 |
160 |
scm_stand_in_scm_proc(SCM proc) |
scm_stand_in_scm_proc(SCM proc) |
161 |
{ |
{ |
162 |
SCM answer; |
SCM answer; |
163 |
answer = scm_assoc (proc, scm_stand_in_procs); |
answer = scm_assq (proc, scm_stand_in_procs); |
164 |
if (SCM_FALSEP (answer)) |
if (SCM_FALSEP (answer)) |
165 |
{ |
{ |
166 |
answer = scm_closure (scm_list_2 (SCM_EOL, SCM_BOOL_F), SCM_EOL); |
answer = scm_closure (scm_list_2 (SCM_EOL, SCM_BOOL_F), SCM_EOL); |