-(define system-beh
- (make-beh (self)
- (('shutdown) =>
- (log-msg "System actor received shutdown message.")
- (exit 0)
- 'done)
-
- (('print strings ...) =>
- (apply print strings)
- 'sleep)
-
- (('read reader) =>
- (mutex-lock! reader-queue-mutex)
- (fifo-push reader-queue reader)
- (mutex-unlock! reader-available-mutex)
- (mutex-unlock! reader-queue-mutex)
- 'sleep)))
+(define-beh system-beh
+ (self)
+ (('shutdown) =>
+ (log-msg "System actor received shutdown message.")
+ (exit 0)
+ 'done)
+
+ (('print strings ...) =>
+ (apply print strings)
+ 'sleep)
+
+ (('read reader) =>
+ (mutex-lock! reader-queue-mutex)
+ (fifo-push reader-queue reader)
+ (mutex-unlock! reader-available-mutex)
+ (mutex-unlock! reader-queue-mutex)
+ 'sleep))