Let cconv use :fun-body in special forms that need it.

[bpt/emacs.git] / lisp / emacs-lisp / byte-lexbind.el

diff --git a/lisp/emacs-lisp/byte-lexbind.el b/lisp/emacs-lisp/byte-lexbind.el
index 313c4b6..06353e2 100644 (file)
--- a/lisp/emacs-lisp/byte-lexbind.el
+++ b/lisp/emacs-lisp/byte-lexbind.el
@@ -585,6 +585,7 @@ proper scope)."
            (= nclosures byte-compile-current-num-closures))
        ;; No need to push a heap environment.
        nil
+      (error "Should have been handled by cconv")
       ;; Have to push one.  A heap environment is really just a vector, so
       ;; we emit bytecodes to create a vector.  However, the size is not
       ;; fixed yet (the vector can grow if subforms use it to store