mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

ob-lisp: moved progn' wrapper out of org-babel-expand-body:lisp'

Browse Source 
Thanks to Mark Cox for suggesting this patch

* lisp/ob-lisp.el (org-babel-expand-body:lisp): No longer wraps
  biddies in `progn'.
  (org-babel-execute:lisp): Wraps bodies in `progn' as they are passed
  to swank.
This commit is contained in:
Eric Schulte 2011-05-31 09:54:23 -06:00
parent 5d1674f330
commit fa31c082d3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ob-lisp.el
View File

@ -54,7 +54,7 @@
(format "(%S (quote %S))" (car var) (cdr var)))
vars "\n ")
")\n" body ")")
(format "(progn %s)" body)))))
body))))
(if (or (member "code" result-params)
(member "pp" result-params))
(format "(pprint %s)" body)
@ -73,7 +73,8 @@
(read (org-bable-lisp-vector-to-list (cadr result)))
(error (cadr result)))))
(slime-eval `(swank:eval-and-grab-output
,(buffer-substring-no-properties (point-min) (point-max)))
,(format "(progn %s)" (buffer-substring-no-properties
(point-min) (point-max))))
(cdr (assoc :package params)))))
(org-babel-pick-name (cdr (assoc :colname-names params))
(cdr (assoc :colnames params)))