# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1251298043 0
# Node ID dbe0b4c419f576f19170aa22974fc8490bb1d86d
# Parent  90578b9cc2d2f44a8f13ac12688eba322ca05ef3
(byte-compile-lapcode): Fix up last change.

diff -r 90578b9cc2d2 -r dbe0b4c419f5 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Aug 26 08:28:23 2009 +0000
+++ b/lisp/ChangeLog	Wed Aug 26 14:47:23 2009 +0000
@@ -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 -r 90578b9cc2d2 -r dbe0b4c419f5 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Aug 26 08:28:23 2009 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Aug 26 14:47:23 2009 +0000
@@ -856,7 +856,7 @@
 	       (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))))