debug-name prefab structure.

os2.rkt

@@ -64,6 +64,10 @@
 	 (rename-out [yield <yield>])
 	 (rename-out [at-meta-level <at-meta-level>])
 
+	 (except-out (struct-out debug-name) debug-name)
+	 (rename-out [make-debug-name debug-name])
+	 (rename-out [debug-name <debug-name>])
+
 	 (struct-out exit-signal)
 
 	 ;; Reexports from unify.rkt for convenience
@@ -210,6 +214,14 @@
       (and (at-meta-level? a)
 	   (preaction? (at-meta-level-preaction a)))))
 
+;; A DebugName is a simple prefab struct that holds a collection of
+;; arbitrary values used to help programmers identify processes by
+;; something more mnemonic than a PID.
+(struct debug-name (pieces) #:prefab)
+
+(define (make-debug-name . pieces)
+  (debug-name pieces))
+
 ;; An ExitSignal instance describes the presence of a whole process, as a
 ;; convention.
 ;;