Permalink
Browse files

Tidy up attempt to use copy-seq to keep function side-effect free

  • Loading branch information...
1 parent c013231 commit 589ea7238493d89ef6f15cfd94a4b9316df94cb1 @purcell purcell committed Feb 9, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 package-build.el
View
@@ -261,11 +261,11 @@ The file is written to `package-build-working-dir'."
(defun package-build-merge-package-info (pkg-info name version)
"Return a version of PKG-INFO updated with NAME and VERSION.
If PKG-INFO is nil, an empty one is created."
- (let ((merged
- (or pkg-info (vector name nil "No description available." version))))
+ (let ((merged (or (copy-seq pkg-info)
+ (vector name nil "No description available." version))))
(aset merged 3 version)
(aset merged 0 (downcase name))
- (copy-seq merged)))
+ merged))
(defun package-build-archive (file-name)
"Build a package archive for package FILE-NAME."

0 comments on commit 589ea72

Please sign in to comment.