;ELC   
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ob)
#@48 Default header arguments for shen code blocks.
(defvar org-babel-default-header-args:shen nil (#$ . 424))
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:shen #[(body params) "\303\304\305\306\"\"\211G\307V\203 \310\311\312	\313#\n\314R\202 \n)\207" [params vars body mapcar cdr org-babel-get-header :var 0 "(let " mapconcat #[(var) "\301\302@\303A!#\207" [var format "%s %s" org-babel-shen-var-to-shen] 5] " " ")"] 6 (#$ . 536)])
#@35 Convert VAR into a shen variable.
(defalias 'org-babel-shen-var-to-shen #[(var) "<\203 \301\302\303\304#\305Q\207\306\307\"\207" [var "[" mapconcat org-babel-ruby-var-to-ruby " " "]" format "%S"] 5 (#$ . 917)])
#@103 Execute a block of Shen code with org-babel.
This function is called by `org-babel-execute-src-block'
(defalias 'org-babel-execute:shen #[(body params) "\306\307!\210\310\311\"A\310\312\"A\313\"\314\315!rq\210\316\216\fc\210\317\320!+ \n!\321!\235?\205\211 \322!\235\204\200 \323!\235\204\200 \324!\235\204\200 \325!\235\204\200 \326!\235\204\200 \327!\235\204\200 \330!\235\204y \331!\235\204y \332!\235\204y \333!\235\203\205 \334!\235\204\205  \202\211 \335\336\337\217-\207" [params result-type result-params body full-body #1=#:temp-buffer require inf-shen assoc :result-type :result-params org-babel-expand-body:shen generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-interactively shen-eval-defun "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" nil (org-babel-script-escape results) ((error results)) results #2=#:--params] 3 (#$ . 1139)])
(provide 'ob-shen)