rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow empty argmap

Browse Source
This commit is contained in:
Lee Spector 2024-01-12 16:31:46 -05:00
parent 70e9f81f84
commit e6361ec1c0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/propeller/utils.cljc
View File

@ -51,7 +51,7 @@
"Returns a random instruction from a supplied pool of instructions, evaluating "Returns a random instruction from a supplied pool of instructions, evaluating
ERC-producing functions to a constant literal." ERC-producing functions to a constant literal."
[instructions argmap] [instructions argmap]
(case (:closes argmap) (case (or (:closes argmap) :specified)
:specified (let [instruction (rand-nth instructions)] :specified (let [instruction (rand-nth instructions)]
(if (fn? instruction) (if (fn? instruction)
(instruction) (instruction)