From 94ca5eb158de97c647621090f13135807aa4ce42 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Tue, 5 Aug 2025 08:16:54 +0300
Subject: [PATCH] Fixing stklos

---
 foreign/c.sld         | 1 +
 foreign/c/pointer.scm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/foreign/c.sld b/foreign/c.sld
index e4f6ba8..6d2babc 100644
--- a/foreign/c.sld
+++ b/foreign/c.sld
@@ -205,6 +205,7 @@
           ;; TODO endianness
           native-endianness
           make-c-bytevector
+          c-bytevector->address
           ;; TODO c-bytevector=?
           ;; TODO c-bytevector-fill!
           ;; TODO c-bytevector-copy!
diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 2bb1c98..16ed729 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -116,7 +116,7 @@
               (= (c-memset-pointer->address pointer 0 0) 0)
               #f)))))
 
-#;(define c-bytevector->address
+(define c-bytevector->address
   (lambda (c-bytevector)
     (c-memset-pointer->address c-bytevector 0 0)))