From 7672e7a682ea7dcb47d79d4d1074a72fad98619e Mon Sep 17 00:00:00 2001
From: Sorawee Porncharoenwase <sorawee.pwase@gmail.com>
Date: Mon, 28 Mar 2022 06:23:54 -0700
Subject: [PATCH] oops

---
 main.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/main.rkt b/main.rkt
index fa9b295..bf773d2 100644
--- a/main.rkt
+++ b/main.rkt
@@ -13,6 +13,7 @@
 
 (require racket/string
          racket/contract
+         racket/format
          pprint-compact
          "common.rkt"
          "core.rkt"
@@ -50,7 +51,7 @@
 (define (pretty-format* x
                         #:width [width (current-width)]
                         #:formatter-map [formatter-map empty-formatter-map])
-  (program-format (print x) #:formatter-map formatter-map #:width width))
+  (program-format (~s x) #:formatter-map formatter-map #:width width))
 
 (define (pretty-print* x
                        #:width [width (current-width)]