From 5a518fcda72ada4f24815c7647fe19889d8f1697 Mon Sep 17 00:00:00 2001
From: WyattBlue <wyattblue@auto-editor.com>
Date: Thu, 17 Aug 2023 00:42:23 -0400
Subject: [PATCH] Use incf

---
 resources/scripts/maxcut.pal | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/resources/scripts/maxcut.pal b/resources/scripts/maxcut.pal
index d9af8c8d6..e00cb3b3b 100755
--- a/resources/scripts/maxcut.pal
+++ b/resources/scripts/maxcut.pal
@@ -1,6 +1,6 @@
 #!/usr/bin/env auto-editor palet
 
-(define (mut-remove-large arr lim replace with)
+(define (remove-large! arr lim replace with)
    (define start-p 0)
    (define active #f)
    (define j 0)
@@ -22,19 +22,19 @@
                 (set! active #f)
             )
         )
-        (set! j (add1 j))
+        (incf j)
     )
 )
 
 
 (define (maxclip oarr min)
     (define arr (array-copy oarr))
-    (mut-remove-large arr min 1 0)
+    (remove-large! arr min 1 0)
     arr
 )
 (define (maxcut oarr min)
     (define arr (array-copy oarr))
-    (mut-remove-large arr min 0 1)
+    (remove-large! arr min 0 1)
     arr
 )