/[guile]/guile/guile-core/libguile/procprop.c
ViewVC logotype

Diff of /guile/guile-core/libguile/procprop.c

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

revision 1.41 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC revision 1.42 by mdj, Thu Mar 6 12:50:41 2003 UTC
# Line 1  Line 1 
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
# Line 160  static SCM Line 160  static SCM
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);

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

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