瀏覽代碼

babel: scheme: Fix bug in obtaining variable references

	* ob-scheme.el (org-babel-expand-body:scheme): Fix bug in
	obtaining variable references
Dan Davison 14 年之前
父節點
當前提交
bdbc4961c8
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/ob-scheme.el

+ 1 - 1
lisp/ob-scheme.el

@@ -61,7 +61,7 @@
 
 (defun org-babel-expand-body:scheme (body params)
   "Expand BODY according to PARAMS, return the expanded body."
-  (let ((vars (org-babel-get-header params :var)))
+  (let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
     (if (> (length vars) 0)
         (concat "(let ("
                 (mapconcat