Parent Directory | Revision Log | 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 | { | { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |