HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Non-vector 1D arrays print as #1()
[bpt/guile.git]
/
libguile
/
conv-uinteger.i.c
diff --git
a/libguile/conv-uinteger.i.c
b/libguile/conv-uinteger.i.c
index
ff0d280
..
d6b969c
100644
(file)
--- a/
libguile/conv-uinteger.i.c
+++ b/
libguile/conv-uinteger.i.c
@@
-53,10
+53,12
@@
SCM_TO_TYPE_PROTO (SCM val)
#if SIZEOF_TYPE != 0 && SIZEOF_TYPE > SCM_SIZEOF_LONG
return n;
#else
#if SIZEOF_TYPE != 0 && SIZEOF_TYPE > SCM_SIZEOF_LONG
return n;
#else
- if (n >= TYPE_MIN && n <= TYPE_MAX)
- return n;
- else
- goto out_of_range;
+
+ if (n >= TYPE_MIN && n <= TYPE_MAX)
+ return n;
+ else
+ goto out_of_range;
+
#endif
}
else
#endif
}
else
@@
-78,8
+80,9
@@
SCM_TO_TYPE_PROTO (SCM val)
if (n >= TYPE_MIN && n <= TYPE_MAX)
return n;
if (n >= TYPE_MIN && n <= TYPE_MAX)
return n;
- else
- goto out_of_range;
+ else
+ goto out_of_range;
+
}
}
else
}
}
else