diff options
Diffstat (limited to 'modules/language/python/module/threading.scm')
-rw-r--r-- | modules/language/python/module/threading.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/modules/language/python/module/threading.scm b/modules/language/python/module/threading.scm index 73d6cba..7a7d669 100644 --- a/modules/language/python/module/threading.scm +++ b/modules/language/python/module/threading.scm @@ -1,8 +1,9 @@ (define-module (language python module threading) #:use-module (ice-9 threads) #:use-module (oop pf-objects) - #:use-module (language python def) - #:export (RLock)) + #:use-module (language python def) + #:use-module (language python list) + #:export (RLock start_new_thread allocate_lock)) (define-python-class RLock () (define __init__ @@ -34,3 +35,8 @@ (define allocate_lock (lambda () (RLock))) + +(define (start_new_thread fkn args) + (call-with-new-thread + (lambda () + (apply fkn (to-list args))))) |