From ed8e6884afbb3a36d20fd4dfbdfbe9d776dbe368 Mon Sep 17 00:00:00 2001
From: Nicolas Polomack <nicolas@polomack.eu>
Date: Wed, 17 Jun 2020 20:00:12 +0200
Subject: [PATCH] Added `sleep:` and `sleepMillis:` methods in `System`

---
 Smalltalk/System.som | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Smalltalk/System.som b/Smalltalk/System.som
index 3dc89189..f330b7a0 100644
--- a/Smalltalk/System.som
+++ b/Smalltalk/System.som
@@ -82,7 +82,10 @@ System = (
     "Time"
     time  = primitive
     ticks = primitive      "returns the microseconds since start"
-    
+
+    sleep: secs = ( self sleepMillis: secs * 1000 )
+    sleepMillis: millis = primitive
+
     "Force Garbage Collection"
     fullGC = primitive