瀏覽代碼

fixed bug in org-babel-execute:C

Eric Schulte 15 年之前
父節點
當前提交
9124e9055d
共有 1 個文件被更改,包括 4 次插入3 次删除
  1. 4 3
      contrib/babel/lisp/langs/org-babel-C.el

+ 4 - 3
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"))))