From 5a527d759ad736d1e8b7c4937fb8fc91c3e38408 Mon Sep 17 00:00:00 2001 From: "Ryan C. Thompson" Date: Mon, 27 Feb 2012 00:56:04 -0800 Subject: [PATCH] Fix test regression on issue 418 --- el-get-build.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/el-get-build.el b/el-get-build.el index 7a4f208c..6136291f 100644 --- a/el-get-build.el +++ b/el-get-build.el @@ -123,11 +123,12 @@ recursion. ;; This ensures that post-build-fun is always a lambda, not a ;; symbol, which simplifies the following code. (post-build-fun - (if (symbolp post-build-fun) - `(lambda (&rest args) - (apply ,(symbol-function post-build-fun) args)) - ;; Must already be a lambda - post-build-fun)) + (cond ((null post-build-fun) (lambda (&rest args) nil)) + ((symbolp post-build-fun) + `(lambda (&rest args) + (apply ,(symbol-function post-build-fun) args))) + (t (assert (functionp post-build-fun) 'show-args) + post-build-fun))) ;; Do byte-compilation after building, if needed (byte-compile-then-post-build-fun `(lambda (package)