From 64b5785bcc0a45dfaf910a3de729737a545ce746 Mon Sep 17 00:00:00 2001
From: mehbark <terezi@pyrope.net>
Date: Wed, 18 Dec 2024 01:05:35 -0500
Subject: [PATCH] remove redundant final put

we aren't grouping anything effectful at the moment, so anything
trailing is pointless
---
 bf.lisp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/bf.lisp b/bf.lisp
index cccecda..711fac1 100644
--- a/bf.lisp
+++ b/bf.lisp
@@ -3,7 +3,6 @@
 (defmacro incmodf (place mod &optional (delta 1))
   `(setf ,place (mod (+ ,place ,delta) ,mod)))
 
-
 ; TODO: ooo could totally gen from sym (e.g. '++-[]>)
 ; then i'd need some sort of var syntax ugh
 (defpattern cmd (op val)
@@ -55,7 +54,6 @@
                               `(loop until (zerop cell)
                                      do (progn ,@inner)))
                           out))))
-          finally (put)
           finally (return (nreverse out)))))
 
 (defparameter mem-size 32768)