Character.st
branchjv
changeset 19410 f9d7cb8bd74c
parent 19227 5e949760a4e8
parent 19378 93bf71d3fc81
child 19559 d35a89d5c0ec
--- a/Character.st	Fri Mar 18 07:45:27 2016 +0000
+++ b/Character.st	Mon Mar 21 07:50:50 2016 +0000
@@ -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