mainly new comments

lang/m2/libm2/ArraySort.mod

@@ -1,3 +1,8 @@
+(*
+  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
+  See the copyright notice in the ACK home directory, in the file "Copyright".
+*)
+
 (*$R-*)
 IMPLEMENTATION MODULE ArraySort;
 (* 
@@ -21,6 +26,7 @@ IMPLEMENTATION MODULE ArraySort;
   END Sort;
 
   PROCEDURE qsort(a1, a2: ADDRESS; size: CARDINAL);
+  (* Implemented with quick-sort, with some extra's *)
     VAR	left, right, lefteq, righteq: ADDRESS;
 	cmp: CompareResult;
 	mainloop: BOOLEAN;