buf: obtaining a buf handle doesn't require cast.

* buf.c (buf_handle): We don't need to coerce here, since
we can just take the address of the union member.
This function was written that way back in 2017.
Why? I may have had a different implementation going in
which the Lisp cell was pointing to a separately allocated
structure, but then changed it to all fit into the cell
(except for the buffer itself) before making the first
commit.

1 files changed, 1 insertions, 1 deletions

diff --git a/buf.c b/buf.c
index d095472a..50319083 100644
--- a/buf.c
+++ b/buf.c
@@ -255,7 +255,7 @@ static val make_ubuf(ucnum clen)
 static struct buf *buf_handle(val buf, val ctx)
 {
   if (type(buf) == BUF)
-    return coerce(struct buf *, buf);
+    return &buf->b;
   uw_throwf(error_s, lit("~a: ~s isn't a buffer"),
             ctx, buf, nao);
 }