@@ -19,10 +19,11 @@
      )
 
 (declare (unit common))
 
 (include "common_records.scm")
+
 
 ;; (require-library margs)
 ;; (include "margs.scm")
 
 ;; (define old-exit exit)
@@ -2628,5 +2629,11 @@
                     restore-thunk))
                 delta-env-alist))))
     (let ((rv (thunk)))
       (for-each (lambda (x) (x)) restore-thunks) ;; restore env to original state
       rv)))
+
+(define (common:send-thunk-to-background-thread thunk #!key (name #f))
+  ;;(BB> "launched thread " name)
+  (if name
+      (thread-start! (make-thread thunk name))
+      (thread-start! (make-thread thunk))))