mbk/lisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove redundant final put

Browse source 
we aren't grouping anything effectful at the moment, so anything
trailing is pointless
This commit is contained in:
mehbark 2024-12-18 01:05:35 -05:00
parent 3c32c92530
commit 64b5785bcc
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bf.lisp
View file

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