mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(scm_ceval, scm_deval): Explicitely evaluate ports to themselves.

Browse source 
Thanks to Han-Wen Nienhuys!
This commit is contained in:
Marius Vollmer 2004-03-21 00:30:12 +00:00
parent 71a896390e
commit fc22b297fc
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/eval.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003, 2004 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -3605,6 +3605,7 @@ dispatch:
case scm_tc7_pws:
case scm_tcs_subrs:
case scm_tcs_struct:
case scm_tc7_port:
RETURN (x);
case scm_tc7_symbol: