Skip to content

Commit

Permalink
.
Browse files Browse the repository at this point in the history
  • Loading branch information
@akkartik
akkartik committed Jul 14, 2012
1 parent c422ed1 commit e2e3d93
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion arc.arc
View file
Expand Up @@ -1066,7 +1066,7 @@
; `(with (,a ,x ,b ,y) (if (> ,a ,b) ,a ,b)))) ; `(with (,a ,x ,b ,y) (if (> ,a ,b) ,a ,b))))


(def most (f seq) (def most (f seq)
(unless (no seq) (if seq
(withs (wins (car seq) topscore (f wins)) (withs (wins (car seq) topscore (f wins))
(each elt (cdr seq) (each elt (cdr seq)
(let score (f elt) (let score (f elt)
Expand Down

0 comments on commit e2e3d93

Please sign in to comment.