Implement byte?.

diff --git a/src/runtime/bytevector.scm b/src/runtime/bytevector.scm
index e39d1409fb18ffa1e06f37cdbd1dbddcf14fa3fc..80e10409680899a1d1ae822a56b8c11bbd9373dc 100644 (file)
--- a/src/runtime/bytevector.scm
+++ b/src/runtime/bytevector.scm
@@ -28,6 +28,12 @@ USA.
 
 (declare (usual-integrations))
 \f
+(define (byte? object)
+  (and (index-fixnum? object)
+       (fix:< object #x100)))
+
+(define-guarantee byte "byte")
+
 (define-primitives
   (allocate-bytevector 1)
   (bytevector-fill! 4)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 987e4fcfc77f5b047f13e4fbe33aab83dccb9368..50c1a900dffb1735b83c96a7c7d53c502abdad87 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1122,6 +1122,7 @@ USA.
   (files "bytevector")
   (parent (runtime))
   (export ()
+         byte?
          bytevector
          bytevector-append
          bytevector-copy
@@ -1130,6 +1131,7 @@ USA.
          bytevector-u8-ref
          bytevector-u8-set!
          bytevector?
+         guarantee-byte
          guarantee-bytevector
          make-bytevector
          string->utf8