* numbers.h, numbers.c, discouraged.h, discouraged.c (scm_short2num,

[bpt/guile.git] / libguile / rw.c

diff --git a/libguile/rw.c b/libguile/rw.c
index 15d1efd..94f813b 100644 (file)
--- a/libguile/rw.c
+++ b/libguile/rw.c
@@ -147,7 +147,7 @@ SCM_DEFINE (scm_read_string_x_partial, "read-string!/partial", 1, 3, 0,
       else if (chars_read == 0)
        return SCM_BOOL_F;
     }
-  return scm_long2num (chars_read);
+  return scm_from_long (chars_read);
 }
 #undef FUNC_NAME
 
@@ -229,7 +229,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0,
        {
          memcpy (pt->write_pos, src, write_len);
          pt->write_pos += write_len;
-         return scm_long2num (write_len);
+         return scm_from_long (write_len);
        }
       if (pt->write_pos > pt->write_buf)
        scm_flush (port);
@@ -247,7 +247,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0,
          SCM_SYSERROR;
       }
     
-    return scm_long2num (rv);
+    return scm_from_long (rv);
   }
 }
 #undef FUNC_NAME