Index: libcfa/src/bits/locks.hfa
===================================================================
--- libcfa/src/bits/locks.hfa	(revision f6a491719a5bbae5add16905dadacfda4e964d30)
+++ libcfa/src/bits/locks.hfa	(revision ebf8ca5fd2d4a1e12022556c0cc689ccac0d0414)
@@ -13,6 +13,6 @@
 // Created On       : Tue Oct 31 15:14:38 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Wed Aug 12 14:18:07 2020
-// Update Count     : 13
+// Last Modified On : Sat Aug 27 15:06:39 2022
+// Update Count     : 15
 //
 
@@ -32,4 +32,5 @@
 		extern void disable_interrupts() OPTIONAL_THREAD;
 		extern void enable_interrupts( bool poll = true ) OPTIONAL_THREAD;
+		extern void poll_interrupts() OPTIONAL_THREAD;
 		#define __cfaabi_dbg_record_lock(x, y)
 	}
@@ -59,9 +60,9 @@
 
 		disable_interrupts();
-		for ( unsigned int i = 1;; i += 1 ) {
+		for ( i; 1 ~ @ ) {
 			if ( (this.lock == 0) && (__atomic_test_and_set( &this.lock, __ATOMIC_ACQUIRE ) == 0) ) break;
 			#ifndef NOEXPBACK
 				// exponential spin
-				for ( volatile unsigned int s = 0; s < spin; s += 1 ) Pause();
+			for ( volatile unsigned int s; 0 ~ spin ) Pause();
 
 				// slowly increase by powers of 2
Index: libcfa/src/iostream.cfa
===================================================================
--- libcfa/src/iostream.cfa	(revision f6a491719a5bbae5add16905dadacfda4e964d30)
+++ libcfa/src/iostream.cfa	(revision ebf8ca5fd2d4a1e12022556c0cc689ccac0d0414)
@@ -10,6 +10,6 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Aug 25 18:05:49 2022
-// Update Count     : 1354
+// Last Modified On : Sat Aug 27 15:04:15 2022
+// Update Count     : 1358
 //
 
@@ -765,5 +765,5 @@
 			fmtuc.flags.pc = f.flags.pc;
 			fmtuc.flags.nobsdp = f.flags.nobsdp;
-			for ( unsigned int i = 0; f.val[i] != '\0'; i += 1 ) {
+			for ( i; 0 ~ @ : @; f.val[i] != '\0' ) {
 				fmtuc.val = f.val[i];
 //				os | fmtuc | nonl;
@@ -931,5 +931,5 @@
 		if ( fmt( is, "%39[0-9]%*[0-9]", s ) == 1 ) {	// take first 39 characters, ignore remaining
 			ullli = 0;
-			for ( unsigned int i = 0; s[i] != '\0'; i += 1 ) {
+			for ( i; 0 ~ @ : @; s[i] != '\0' ) {
 				ullli = ullli * 10 + s[i] - '0';
 			} // for