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

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

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

revision 1.130 by ttn, Thu Mar 14 03:47:43 2002 UTC revision 1.131 by mvo, Thu Mar 14 22:25:31 2002 UTC
# Line 146  scm_uniform_element_size (SCM obj) Line 146  scm_uniform_element_size (SCM obj)
146  static int  static int
147  singp (SCM obj)  singp (SCM obj)
148  {  {
149    if (!SCM_SLOPPY_REALP (obj))    if (!SCM_REALP (obj))
150      return 0;      return 0;
151    else    else
152      {      {

Legend:
Removed from v.1.130  
changed lines
  Added in v.1.131

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