From 81358acc7b0c3568ab9d44827074e90618a2731e Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Tue, 5 Oct 1999 14:30:28 +0000
Subject: [PATCH] added threads-internal to port's packages for steal-port

---
 scheme/rts-packages.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/rts-packages.scm b/scheme/rts-packages.scm
index 6266b58..1aabf29 100644
--- a/scheme/rts-packages.scm
+++ b/scheme/rts-packages.scm
@@ -75,7 +75,8 @@
 	architecture
 	primitives ports code-vectors bitwise
 	define-record-types ascii
-	threads locks
+	threads locks 
+	threads-internal  ; JMG for scsh
 	methods         ; &disclose :input-port :output-port
 	interrupts      ; {en|dis}able-interrupts!
 	number-i/o      ; number->string for debugging