Mercurial > emacs

diff lisp/emacs-lisp/bytecomp.el @ 104620:dbe0b4c419f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-lapcode): Fix up last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 26 Aug 2009 14:47:23 +0000
parents 850f9373a88a
children 73bff1db57b6
line wrap: on
line diff
--- 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))))