From aa59846ee9cc2c6e7a97d51c2c36115d5003812b Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Fri, 23 Aug 2019 22:14:02 +0100
Subject: [PATCH] --atob, --btoa

---
 implementations/racket/preserves/tool.rkt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/implementations/racket/preserves/tool.rkt b/implementations/racket/preserves/tool.rkt
index 2c38aa5..42d5893 100644
--- a/implementations/racket/preserves/tool.rkt
+++ b/implementations/racket/preserves/tool.rkt
@@ -11,6 +11,12 @@
   (define indent? #t)
   (define annotations? #t)
   (command-line #:once-each
+                ["--atob" "Text to binary"
+                 (begin (set! input-format 'text)
+                        (set! output-format 'binary))]
+                ["--btoa" "Binary to text"
+                 (begin (set! input-format 'binary)
+                        (set! output-format 'text))]
                 [("--ib" "--input-binary") "Set binary input mode"
                  (set! input-format 'binary)]
                 [("--it" "--input-text") "Set text input mode"