From 9124e9055d82df816bbf27158cb204e664a90713 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 22 Apr 2010 19:33:01 -0600 Subject: [PATCH] fixed bug in org-babel-execute:C --- contrib/babel/lisp/langs/org-babel-C.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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"))))