Cosmetic

2012-01-13 17:01:13 -05:00 · 2012-01-13 17:01:13 -05:00 · 989ae4499f
parent e11db78096
commit 989ae4499f
1 changed files with 5 additions and 6 deletions
--- a/os.rkt
+++ b/os.rkt
@ -170,8 +170,7 @@
 (define (requeue-pollers state)
  (foldl (lambda (susp state)
 	   (if (suspension-polling? susp)
-	       (enqueue-runnable (lambda () ((suspension-k susp) (suspension-state susp)))
-				 state)
+	       (enqueue-runnable (lambda () ((suspension-k susp) (suspension-state susp))) state)
 	       (enqueue-suspension susp state)))
 	 (struct-copy vm state [suspensions '()])
 	 (vm-suspensions state)))