diff --git a/contrib/babel/lisp/langs/org-babel-C.el b/contrib/babel/lisp/langs/org-babel-C.el index 0bddc69fd..8e94812a4 100644 --- a/contrib/babel/lisp/langs/org-babel-C.el +++ b/contrib/babel/lisp/langs/org-babel-C.el @@ -61,7 +61,7 @@ called by `org-babel-execute-src-block'." (defun org-babel-expand-body:c++ (body params &optional processed-params) "Expand a block of C++ code with org-babel according to it's header arguments (calls `org-babel-C-expand')." - (let ((c-variant 'cpp)) (org-babel-C-expand body params))) + (let ((c-variant 'cpp)) (org-babel-C-expand body params processed-params))) (defun org-babel-execute:C (body params) "Execute a block of C code with org-babel. This function is @@ -71,13 +71,14 @@ called by `org-babel-execute-src-block'." (defun org-babel-expand-body:c (body params &optional processed-params) "Expand a block of C code with org-babel according to it's header arguments (calls `org-babel-C-expand')." - (let ((c-variant 'c)) (org-babel-C-expand body params))) + (let ((c-variant 'c)) (org-babel-C-expand body params processed-params))) (defun org-babel-C-execute (body params) "This should only be called by `org-babel-execute:C' or `org-babel-execute:c++'." (message "executing C source code block") - (let* ((tmp-src-file (make-temp-file "org-babel-C-src" nil + (let* ((processed-params (org-babel-process-params params)) + (tmp-src-file (make-temp-file "org-babel-C-src" nil (case c-variant ('c ".c") ('cpp ".cpp"))))