Fix package.el urls

This commit is contained in:
Ivan Malison 2016-04-05 12:19:59 -07:00
parent fca7049c33
commit 82aaaaf4a1

View File

@ -224,7 +224,8 @@
"Builds funcalls of FUNCS applied to the arg." "Builds funcalls of FUNCS applied to the arg."
(if (equal (length funcs) 0) (if (equal (length funcs) 0)
(quote args) (quote args)
`(apply ,(car funcs) (imalison:make-list (imalison:compose-helper ,(cdr funcs)))))) `(apply ,(car funcs)
(imalison:make-list (imalison:compose-helper ,(cdr funcs))))))
(defun random-choice (choices) (defun random-choice (choices)
(nth (random (length choices)) choices)) (nth (random (length choices)) choices))