fix: refactor negative-of-blockhash-depth (#564)

DavePearce · web-flow · commit 24c71a551721 · 2025-01-16T09:53:57.000+01:00
diff --git a/blockhash/constraints.lisp b/blockhash/constraints.lisp
@@ -21,7 +21,7 @@
                                 (*  (-  1  PRPRC)  (next  PRPRC))))
 (defun   (ct-max-sum)       (+  (*  (-  nROWS_MACRO  1)  MACRO)
                                 (*  (-  nROWS_PRPRC  1)  PRPRC)))
-(defun   (negative-of-blockhash-depth)                          (- 0 BLOCKHASH_DEPTH))
+(defpurefun   (negative-of-blockhash-depth)                          (- 0 BLOCKHASH_DEPTH))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                     ;;
