From 496215111189a942cd5310635d71d00d1dc1d2c9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 8 Aug 2015 17:17:07 -0700
Subject: [PATCH] serialize: change to "<" to match the comments.

---
 basis/serialize/serialize.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/serialize/serialize.factor b/basis/serialize/serialize.factor
index cdd58e3c99..31a17dfa5b 100644
--- a/basis/serialize/serialize.factor
+++ b/basis/serialize/serialize.factor
@@ -38,11 +38,11 @@ SYMBOL: serialized
 ! otherwise be confused with a small number.
 : serialize-cell ( n -- )
     [ 0 write1 ] [
-        dup 0x7e <= [
+        dup 0x7f < [
             0x80 bitor write1
         ] [
             dup log2 8 /i 1 +
-            dup 0x81 >= [
+            dup 0x80 > [
                 0xff write1
                 dup serialize-cell
             ] [
@@ -55,7 +55,7 @@ SYMBOL: serialized
 : deserialize-cell ( -- n )
     read1 {
         { [ dup 0xff = ] [ drop deserialize-cell read be> ] }
-        { [ dup 0x81 >= ] [ 0x80 bitxor ] }
+        { [ dup 0x80 > ] [ 0x80 bitxor ] }
         [ read be> ]
     } cond ;