--- 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