Import Upstream version 2c3upstream/2c3

1 files changed, 1 insertions, 0 deletions

diff --git a/byte.scm b/byte.scm
index 3d091ce..b34816d 100644
--- a/byte.scm
+++ b/byte.scm
@@ -5,6 +5,7 @@
 (define (make-bytes len . opt)
   (if (null? opt) (make-string len)
       (make-string len (integer->char (car opt)))))
+(define bytes-length string-length)
 (define (write-byte byt . opt) (apply write-char (integer->char byt) opt))
 (define (read-byte . opt)
   (let ((c (apply read-char opt)))