1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-05 07:54:43 +00:00
This commit is contained in:
Nick Briggs
2023-11-09 16:48:48 -08:00
parent 98569d10b4
commit 562f4c30ee

View File

@@ -367,7 +367,7 @@ LispPTR arrayblockmerger(LispPTR base, LispPTR nbase) {
* move the boundary to make a big block and a minimum size leftover block
*/
if (base + (2 * arlens) != nbase) {
error("Attempt to merge non-adjacent blocks in array space\n")
error("Attempt to merge non-adjacent blocks in array space\n");
}
if (narlens > secondbite) { /* (2) or (3) */
arlens = MAXARRAYBLOCKSIZE;