cbor: support write of bignums.

2019-08-20 09:13:26 -07:00 · 2019-08-20 09:13:26 -07:00 · 56fbf4643d
parent a7447cd783
commit 56fbf4643d
1 changed files with 5 additions and 0 deletions
--- a/extra/cbor/cbor.factor
+++ b/extra/cbor/cbor.factor
@ -111,6 +111,11 @@ M: +cbor-undefined+ write-cbor drop 0xf7 write1 ;
        { [ over 0xffff <= ] [ 25 bitor write1 2 >be write ] }
        { [ over 0xffffffff <= ] [ 26 bitor write1 4 >be write ] }
        { [ over 0xffffffffffffffff <= ] [ 27 bitor write1 8 >be write ] }
+        [
+            -5 shift 2 + 0xc0 bitor write1
+            dup bit-length 8 /mod zero? [ 1 + ] unless
+            >be write-cbor
+        ]
    } cond ;

 M: integer write-cbor