Changed to new package system.

s48/concurrency/AUTHORS

@@ -1 +1 @@
-Martin Gasbichler
+Copyright (c) 2003 Martin Gasbichler

s48/concurrency/NEWS

@@ -0,0 +1,2 @@
+version 0.0
+* New package system.

s48/concurrency/interfaces.scm

@@ -1,8 +0,0 @@
-(define-interface semaphores-interface
-  (export make-semaphore
-	  semaphore-post
-	  semaphore-wait
-	  with-semaphore-posted))
-
-(define-interface with-lock-interface
-  (export with-lock))

s48/concurrency/load.scm

@@ -0,0 +1,18 @@
+(define-interface semaphores-interface
+  (export make-semaphore
+	  semaphore-post
+	  semaphore-wait
+	  with-semaphore-posted))
+
+(define-interface with-lock-interface
+  (export with-lock))(define-structure semaphores semaphores-interface
+  (open scheme
+	locks
+	with-lock
+	define-record-types)
+  (files semaphore))
+
+(define-structure with-lock with-lock-interface
+  (open scheme 
+	locks)
+  (files with-lock))

s48/concurrency/packages.scm

@@ -1,11 +0,0 @@
-(define-structure semaphores semaphores-interface
-  (open scheme
-	locks
-	with-lock
-	define-record-types)
-  (files semaphore))
-
-(define-structure with-lock with-lock-interface
-  (open scheme 
-	locks)
-  (files with-lock))

s48/concurrency/pkg-def.scm

@@ -0,0 +1,9 @@
+(define-package "concurrency"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "semaphore.scm" 'scheme)
+  (install-file "with-lock.scm" 'scheme))