- Put back the good version of restart-alarm

- Don't sleep if the alarm is stopped before it starts
- Right before I committed, I changed the code.  oops.

basis/alarms/alarms.factor

@@ -62,8 +62,12 @@ DEFER: call-alarm-loop
     ] if ;
 
 : sleep-delay ( alarm -- )
+    dup stop-alarm? [
+        drop
+    ] [
         nano-count >>start-nanos
-    delay-nanos>> [ sleep ] when* ;
+        delay-nanos>> [ sleep ] when*
+    ] if ;
 
 : alarm-loop ( alarm -- )
     [ sleep-delay ]
@@ -91,7 +95,12 @@ PRIVATE>
     ] if ;
 
 : restart-alarm ( alarm -- )
-    t >>restart? [ stop-alarm ] [ start-alarm ] bi ;
+    t >>restart?
+    dup quotation-running?>> [
+        drop
+    ] [
+        dup thread>> [ nip interrupt ] [ start-alarm ] if*
+    ] if ;
 
 <PRIVATE