packages/fsm: Fix compilation error

[gnu-emacs-elpa] / packages / fsm / fsm.el

diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index 42dda15423170b2445e0ba99e08bdc5657c0b4e4..0b8c748accade1ae35dbf8b1fc63de74c707ea9d 100644 (file)
--- a/packages/fsm/fsm.el
+++ b/packages/fsm/fsm.el
@@ -186,9 +186,10 @@ arguments.
               (put fsm :name ',name)
               (put fsm :state nil)
               (put fsm :state-data nil)
-              (put fsm :sleep ,(or sleep (lambda (secs)
-                                           (accept-process-output
-                                            nil secs))))
+              (put fsm :sleep ,(or sleep '(lambda (secs)
+                                            (accept-process-output
+                                             nil secs))))
+
               (put fsm :deferred nil)
               (fsm-update fsm state state-data timeout)
               fsm)))))))