Character.st
changeset 19378 93bf71d3fc81
parent 19195 32f423697432
child 19410 f9d7cb8bd74c
child 19534 ae94ac62b8c5
--- a/Character.st	Sun Mar 20 10:49:00 2016 +0100
+++ b/Character.st	Sun Mar 20 10:52:54 2016 +0100
@@ -518,13 +518,13 @@
     for (;;) {
         c = getchar();
         if (c >= 0) break;
-	if (errno != EINTR) {	
-	    RETURN (nil);
-	}
+        if (errno != EINTR) {   
+            RETURN (nil);
+        }
     }
     RETURN ( __MKCHARACTER(c & 0xFF) );
 %}.
-    ^ Stdin next
+    ^ Processor activeProcess stdin next
 ! !
 
 !Character class methodsFor:'queries'!
@@ -646,6 +646,7 @@
       or:[ (asciivalue == 247 ) ]]]]]
 ! !
 
+
 !Character methodsFor:'accessing'!
 
 codePoint
@@ -1681,14 +1682,14 @@
 
 print
     "print myself on stdout.
-     This method does NOT (by purpose) use the stream classes and
-     will therefore work even in case of emergency (but only, if Stdout is nil)."
+     If Stdout is nil, this method does NOT (by purpose) use the stream classes and
+     will therefore work even in case of emergency or very early startup (but only, if Stdout is nil)."
 
 %{  /* NOCONTEXT */
 
     if (@global(Stdout) == nil) {
-	putchar(__intVal(__INST(asciivalue)));
-	RETURN(self);
+        putchar(__intVal(__INST(asciivalue)));
+        RETURN(self);
     }
 %}.
     super print