fix writing to binary port

jcubic · Jan 15, 2024 · d32ef05 · d32ef05
1 parent 8b9ee19
commit d32ef05
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 3 deletions.
diff --git a/dist/std.min.scm b/dist/std.min.scm
diff --git a/dist/std.scm b/dist/std.scm
diff --git a/dist/std.xcb b/dist/std.xcb
diff --git a/lib/R5RS.scm b/lib/R5RS.scm
@@ -1104,7 +1104,9 @@
    Write object to standard output or give port. For strings it will include
    wrap in quotes."
   (let ((port (if (null? rest) (current-output-port) (car rest))))
-    (display (repr obj true) port)))
+    (if (binary-port? port)
+        (display obj port)
+        (display (repr obj true) port))))
 
 ;; -----------------------------------------------------------------------------
 (define (write-char char . rest)