diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-26 14:47:23 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-26 14:47:23 +0000 |
| commit | 636a36a0708e8d6dd4849d5265a762a1c64ef3fa (patch) | |
| tree | b5e1bc933b157173dbc8790fb0da7477aba1d88d /lisp/emacs-lisp | |
| parent | 878bde492768ea1e0dca48391d1612766f552730 (diff) | |
| download | emacs-636a36a0708e8d6dd4849d5265a762a1c64ef3fa.tar.gz emacs-636a36a0708e8d6dd4849d5265a762a1c64ef3fa.tar.bz2 emacs-636a36a0708e8d6dd4849d5265a762a1c64ef3fa.zip | |
(byte-compile-lapcode): Fix up last change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index f1561c0b279..01d1e270f36 100644 --- 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)))) |