--- parser3/src/classes/array.C	2024/10/22 21:56:17	1.21
+++ parser3/src/classes/array.C	2024/10/23 16:41:11	1.22
@@ -17,7 +17,7 @@
 #include "pa_vbool.h"
 #include "pa_vmethod_frame.h"
 
-volatile const char * IDENT_ARRAY_C="$Id: array.C,v 1.21 2024/10/22 21:56:17 moko Exp $";
+volatile const char * IDENT_ARRAY_C="$Id: array.C,v 1.22 2024/10/23 16:41:11 moko Exp $";
 
 // class
 
@@ -1034,6 +1034,10 @@ static void _reverse(Request& r, MethodP
 	r.write(result);
 }
 
+static void _compact(Request& r, MethodParams&) {
+	GET_SELF(r, VArray).array().compact();
+}
+
 
 // constructor
 
@@ -1093,6 +1097,9 @@ MArray::MArray(): Methoded(VARRAY_TYPE)
 	// ^array.reverse[]
 	add_native_method("reverse", Method::CT_DYNAMIC, _reverse, 0, 0);
 
+	// ^array.compact[]
+	add_native_method("compact", Method::CT_DYNAMIC, _compact, 0, 0);
+
 	// ^array._at[first|last[;'key'|'value'|'hash']]
 	// ^array._at([-+]offset)[['key'|'value'|'hash']]
 	add_native_method("_at", Method::CT_DYNAMIC, _at, 1, 2);