From 738877f2255f6fbc71e819c7e317a92911e2c74a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 24 Jan 2021 21:58:58 -0500
Subject: [PATCH] Issue #370 - Added current-thread-data

This allows returning the current thread data structure in a Opaque object.
---
 srfi/18.sld | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/srfi/18.sld b/srfi/18.sld
index d3ea0033..b34240dc 100644
--- a/srfi/18.sld
+++ b/srfi/18.sld
@@ -19,6 +19,7 @@
     thread-yield!
     thread-terminate!
     current-thread
+    current-thread-data
     thread-join!
 
     mutex?
@@ -91,6 +92,9 @@
             *primordial-thread*
             t)))
 
+    (define (current-thread-data)
+      (%get-thread-data))
+
     (define *primordial-thread*
       (vector 'cyc-thread-obj #f #f "main thread" #f #f))