Index: libcfa/src/stdlib.cfa
===================================================================
--- libcfa/src/stdlib.cfa	(revision 849fb3703b7c4fc7518b47008ebdcb4762ca5e49)
+++ libcfa/src/stdlib.cfa	(revision e310238dc115b8a59b4870d91acdf4486823fb2f)
@@ -9,7 +9,7 @@
 // Author           : Peter A. Buhr
 // Created On       : Thu Jan 28 17:10:29 2016
-// Last Modified By : Andrew Beach
-// Last Modified On : Tue Jun  2 16:46:00 2020
-// Update Count     : 500
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Sun Jul 19 15:05:28 2020
+// Update Count     : 501
 //
 
@@ -25,50 +25,4 @@
 
 //---------------------------------------
-
-forall( dtype T | sized(T) ) {
-	T * alloc_set( T ptr[], size_t dim, char fill ) {	// realloc array with fill
-		size_t olen = malloc_usable_size( ptr );		// current allocation
-		void * nptr = (void *)realloc( (void *)ptr, dim * sizeof(T) ); // C realloc
-		size_t nlen = malloc_usable_size( nptr );		// new allocation
-		if ( nlen > olen ) {							// larger ?
-			memset( (char *)nptr + olen, (int)fill, nlen - olen ); // initialize added storage
-		} // if
-		return (T *)nptr;
-	} // alloc_set
-
-	T * alloc_set( T ptr[], size_t dim, T fill ) {		// realloc array with fill
-		size_t olen = malloc_usable_size( ptr );		// current allocation
-		void * nptr = (void *)realloc( (void *)ptr, dim * sizeof(T) ); // C realloc
-		size_t nlen = malloc_usable_size( nptr );		// new allocation
-		if ( nlen > olen ) {							// larger ?
-			for ( i; malloc_size( ptr ) / sizeof(T) ~ dim ) {
-				memcpy( &ptr[i], &fill, sizeof(T) );	// initialize with fill value
-			} // for
-		} // if
-		return (T *)nptr;
-	} // alloc_align_set
-
-	T * alloc_align_set( T ptr[], size_t align, char fill ) { // aligned realloc with fill
-		size_t olen = malloc_usable_size( ptr );		// current allocation
-		void * nptr = (void *)realloc( (void *)ptr, align, sizeof(T) ); // CFA realloc
-		// char * nptr = alloc_align( ptr, align );
-		size_t nlen = malloc_usable_size( nptr );		// new allocation
-		if ( nlen > olen ) {							// larger ?
-			memset( (char *)nptr + olen, (int)fill, nlen - olen ); // initialize added storage
-		} // if
-		return (T *)nptr;
-	} // alloc_align_set
-
-	T * alloc_align_set( T ptr[], size_t align, size_t dim, T fill ) { // aligned realloc with fill
-		size_t olen = malloc_usable_size( ptr );		// current allocation
-		void * nptr = (void *)realloc( (void *)ptr, align, sizeof(T) ); // CFA realloc
-		// char * nptr = alloc_align( ptr, align );
-		size_t nlen = malloc_usable_size( nptr );		// new allocation
-		if ( nlen > olen ) {							// larger ?
-			for ( i; dim ) { memcpy( &ptr[i], &fill, sizeof(T) ); } // initialize with fill value
-		} // if
-		return (T *)nptr;
-	} // alloc_align_set
-} // distribution
 
 // allocation/deallocation and constructor/destructor, non-array types