Commit a3f4c42d authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

We need byte-compile-progn in the non-toplevel case apparently

parent c1980ab2
Pipeline #1957 failed with stage
in 3 seconds
......@@ -512,10 +512,11 @@ Return the compile-time value of FORM."
(eval expanded lexical-binding)
expanded)))))
(with-suppressed-warnings
. (lambda (warnings &rest body)
`(internal--with-suppressed-warnings
',warnings ,(macroexpand-all `(progn ,@body)
macroexpand-all-environment)))))
. ,(lambda (warnings &rest body)
(list #'internal--with-suppressed-warnings
(list 'quote warnings)
(macroexpand-all (cons 'progn body)
macroexpand-all-environment)))))
"The default macro-environment passed to macroexpand by the compiler.
Placing a macro here will cause a macro to have different semantics when
expanded by the compiler as when expanded by the interpreter.")
......@@ -4803,7 +4804,7 @@ binding slots have been popped."
(defun byte-compile-suppressed-warnings (form)
(let ((byte-compile-suppressed-warnings
(append (cadadr form) byte-compile-suppressed-warnings)))
(mapc 'byte-compile-file-form (cddr form))
(byte-compile-progn (cons 'progn (cddr form)))
nil))
;; Warn about misuses of make-variable-buffer-local.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment