add error detection and free pointer

src/libraries/OS-Posix/System/Time.icl

 implementation module System.Time
 
-import StdString, StdArray, StdClass, StdOverloaded, StdInt
+import StdString, StdArray, StdClass, StdOverloaded, StdInt, StdMisc
 import System._Pointer, System._Posix
 import Text
 
@@ -171,8 +171,8 @@ nsTime :: !*World -> (!Timespec, !*World)
 nsTime w
 # (p, w) = mallocSt 16 w
 # (r, w) = clock_gettime 0 p w
-= derefTimespec p w
-
-//Include world to force evaluation order...
-derefTimespec :: !Pointer !*w -> (!Timespec, !*w)
-derefTimespec p w = ({Timespec | tv_sec = readInt p 0, tv_nsec = readInt p 8}, w)
+//For completeness sake
+| r == -1 = abort "clock_gettime error: everyone should have permission to open CLOCK_REALTIME?"
+# (tv_sec, p) = readIntP p 0
+# (tv_nsec, p) = readIntP p 8
+= ({Timespec | tv_sec = tv_sec, tv_nsec = tv_nsec}, freeSt p w)