dido/arcueid — Issue #14: compile of 'most' function has 'too few arguments' error
Author: dido
Created: 2012-01-01 08:00:45+00:00
State: open

arc> (def most (f seq)
(unless (no seq)
(withs (wins (car seq) topscore (f wins))
(each elt (cdr seq)
(let score (f elt)
(if (> score topscore) (= wins elt topscore score))))
wins)))
too few arguments