Rework $ operator to take a capture variable

In case operators require use of a variable, we should let the caller provide the symbol so we don't fall into weird package issues.
2025-02-15 15:04:00 +00:00
parent be61832737
commit 395cd9357e
2 changed files with 4 additions and 4 deletions
--- a/src/model.lisp
+++ b/src/model.lisp
@@ -133,5 +133,5 @@
   (loop :for _ :from 1 :to n
         :nconc (loop :for j :from 1 :to 52
                      collect (int->card (1- j))))
-   (mapcar ($ int->rank make-joker)
+   (mapcar ($ x int->rank make-joker)
      (range 0 (* 2 n)))))