diff options
Diffstat (limited to 'contrib/lisp/ob-eukleides.el')
-rw-r--r-- | contrib/lisp/ob-eukleides.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/lisp/ob-eukleides.el b/contrib/lisp/ob-eukleides.el index 67f3bf4..e4fc298 100644 --- a/contrib/lisp/ob-eukleides.el +++ b/contrib/lisp/ob-eukleides.el @@ -58,12 +58,12 @@ (defun org-babel-execute:eukleides (body params) "Execute a block of eukleides code with org-babel. This function is called by `org-babel-execute-src-block'." - (let* ((result-params (split-string (or (cdr (assoc :results params)) ""))) - (out-file (or (cdr (assoc :file params)) + (let* ((result-params (split-string (or (cdr (assq :results params)) ""))) + (out-file (or (cdr (assq :file params)) (error "Eukleides requires a \":file\" header argument"))) - (cmdline (cdr (assoc :cmdline params))) + (cmdline (cdr (assq :cmdline params))) (in-file (org-babel-temp-file "eukleides-")) - (java (or (cdr (assoc :java params)) "")) + (java (or (cdr (assq :java params)) "")) (cmd (if (not org-eukleides-path) (error "`org-eukleides-path' is not set") (concat (expand-file-name org-eukleides-path) |