(byte-compile-lapcode): Fix up last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b30443e8378a79cab9fefc9acc62118997ea06c..acca989388caad3e5ab27cec9cfdc67be5d65c65 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-08-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix up last change.
+
 2009-08-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-git.el (vc-git-register): Use "git add" for directories.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index f1561c0b279fad2a830f33fb9a3425606082a5e9..01d1e270f366ef4aee7db925285fddea8e682688 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -856,7 +856,7 @@ otherwise pop it")
               (setcar (cdr bytes) (logand pc 255))
               (setcar bytes (lsh pc -8))
                ;; FIXME: Replace this by some workaround.
-               (if (> (car bytes) 255) (error "Bytecode overflow"))))))
+               (if (> (car bytes) 255) (error "Bytecode overflow"))))
        (setq patchlist (cdr patchlist))))
     (apply 'unibyte-string (nreverse bytes))))