mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
Fix lsint_to_sint
This commit is contained in:
parent
35eed62160
commit
2f524c59f7
1 changed files with 3 additions and 3 deletions
|
@ -102,7 +102,7 @@ static inline sexp_luint_t luint_from_uint(sexp_uint_t v) {
|
||||||
}
|
}
|
||||||
|
|
||||||
static inline sexp_sint_t lsint_to_sint(sexp_lsint_t v) {
|
static inline sexp_sint_t lsint_to_sint(sexp_lsint_t v) {
|
||||||
return lsint_lt_0(v) ? -v.lo : v.lo;
|
return v.lo;
|
||||||
}
|
}
|
||||||
|
|
||||||
static inline sexp_uint_t luint_to_uint(sexp_luint_t v) {
|
static inline sexp_uint_t luint_to_uint(sexp_luint_t v) {
|
||||||
|
|
Loading…
Add table
Reference in a new issue