From 61d3b6aae43e1ad870e7832ec964964124eacb1b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 15 Sep 2023 00:19:37 -0500
Subject: Fix bugs and implement changes

I can actually build a (one-page) site!
---
 boudin.util.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'boudin.util.scm')

diff --git a/boudin.util.scm b/boudin.util.scm
index b5c3efe..916dbf1 100644
--- a/boudin.util.scm
+++ b/boudin.util.scm
@@ -1,12 +1,14 @@
 (declare (module (boudin util))
          (export assoc-ref
                  slurp
+                 slurp-bytes
                  wrap-paragraphs
                  edisplay
                  eprint))
 
 (import (chicken io)
         (srfi 1)
+        (srfi 4)
         (srfi 152))
 
 (define (edisplay x)
@@ -61,3 +63,9 @@
     ((port)
      (read-string #f port)              ; CHICKEN-ism
      )))
+
+(define slurp-bytes
+  (case-lambda
+    (() (slurp-bytes (current-input-port)))
+    ((port)
+     (read-u8vector #f port))))
-- 
cgit 1.4.1-21-gabe81