From 74c1f36b50a90324da8bb122bea09d6fd1f3fe8e Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 25 Jul 2025 11:38:14 +0300 Subject: [PATCH] Improving error messages --- foreign/c/pointer.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index ed82702..ce55abf 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -74,12 +74,13 @@ (lambda (bytevector-var) (c-strlen bytevector-var))) -(define c-utf8->string - (lambda (c-bytevector) - (when (c-null? c-bytevector) - (error "Can not turn null pointer into string")) - (let ((size (c-strlen c-bytevector))) - (utf8->string (c-bytevector->bytevector c-bytevector size))))) +(define-syntax c-utf8->string + (syntax-rules () + ((_ c-bytevector) + (when (c-null? c-bytevector) + (error "Can not turn null pointer into string" 'c-bytevector)) + (let ((size (c-strlen c-bytevector))) + (utf8->string (c-bytevector->bytevector c-bytevector size)))))) (define string->c-utf8 (lambda (string-var)