pref-matrix

commit f82ded7dd07fddbae0b1f091e5d8fec3f2b89ac7
parent ce6f3e4dc81f678cc9d9f2b685a62a2a375e2a5c
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat, 13 Jan 2024 10:01:25 +0000

Command tarpit, to help sequence testing
Diffstat:
M
src/pref-matrix.scm
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/pref-matrix.scm b/src/pref-matrix.scm
@@ -318,10 +318,14 @@
 ;; Web API
 
 (define cmd-list '())
+(define (cmd-sleep)
+  (let ((duration (get-config "tarpit" #f)))
+    (when duration (sleep duration))))
 (define-syntax defcmd
   (syntax-rules ()
     ((defcmd name . body)
-      (set! cmd-list (cons (cons (symbol->string 'name) (lambda () . body))
+      (set! cmd-list (cons (cons (symbol->string 'name)
+                                 (lambda () (cmd-sleep) . body))
                            cmd-list)))))
 
 (defcmd new-object