HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/org/ob-scheme.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


(byte-code "\300\301!\210\300\302\303\304#\210\300\305\303\304#\210\306\307\310\311\312DD\313\314\315\316\317\320\321\322\323&\207" [require ob geiser nil t geiser-impl custom-declare-variable org-babel-scheme-null-to funcall function #[0 "\300\207" [hline] 1] "Replace `null' and empty lists in scheme tables with this before returning." :group org-babel :version "26.1" :package-version (Org . "9.1") :type symbol] 12)
#@50 Default header arguments for scheme code blocks.
(defvar org-babel-default-header-args:scheme nil (#$ . 830))
#@78 Expand BODY according to PARAMS, return the expanded body.

(fn BODY PARAMS)
(defalias 'org-babel-expand-body:scheme #[514 "\300!\301\236A\211\205\211\302P\204\202!\303\304\305\306\307##P\207" [org-babel--get-vars :prologue "\n" format "(let (%s)\n%s\n)" mapconcat #[257 "\300\301\302@\303ADD!\"\207" [format "%S" print quote] 7 "\n\n(fn VAR)"] "\n      "] 11 (#$ . 946)])
#@42 Map of scheme sessions to session names.
(defvar org-babel-scheme-repl-map (make-hash-table :test 'equal) (#$ . 1340))
#@40 Remove dead buffers from the REPL map.
(defalias 'org-babel-scheme-cleanse-repl-map #[0 "\301\302\"\207" [org-babel-scheme-repl-map maphash #[514 "\301!?\205\302\"\207" [org-babel-scheme-repl-map buffer-name remhash] 5 "\n\n(fn X Y)"]] 3 (#$ . 1465)])
#@93 Look up the scheme buffer for a session; return nil if it doesn't exist.

(fn SESSION-NAME)
(defalias 'org-babel-scheme-get-session-buffer #[257 "\301 \210\302\"\207" [org-babel-scheme-repl-map org-babel-scheme-cleanse-repl-map gethash] 4 (#$ . 1729)])
#@78 Record the scheme buffer used for a given session.

(fn SESSION-NAME BUFFER)
(defalias 'org-babel-scheme-set-session-buffer #[514 "\301#\207" [org-babel-scheme-repl-map puthash] 6 (#$ . 1990)])
#@83 Returns the scheme implementation geiser associates with the buffer.

(fn BUFFER)
(defalias 'org-babel-scheme-get-buffer-impl #[257 "r\211qq\210)\207" [geiser-impl--implementation] 2 (#$ . 2193)])
#@75 Switch to a scheme REPL, creating it if it doesn't exist:

(fn IMPL NAME)
(defalias 'org-babel-scheme-get-repl #[514 "\300!\211\206\301!\210\203\302\303\"\210\304p\"\210p\207" [org-babel-scheme-get-session-buffer run-geiser rename-buffer t org-babel-scheme-set-session-buffer] 6 (#$ . 2397)])
#@307 Generate a name for the session buffer.

For a named session, the buffer name will be the session name.

If the session is unnamed (nil), generate a name.

If the session is `none', use nil for the session name, and
org-babel-scheme-execute-with-geiser will use a temporary session.

(fn BUFFER NAME IMPL)
(defalias 'org-babel-scheme-make-session-name #[771 "\204\f\300\301!\302R\207\303\230\203\304\207\207" [" " symbol-name " REPL" "none" nil] 7 (#$ . 2706)])
#@86 Capture current message in both interactive and noninteractive mode

(fn &rest BODY)
(defalias 'org-babel-scheme-capture-current-message '(macro . #[128 "\300\301\302\303\304\305\306\307\310\"BB\311BBE\305\307\312\"BF\207" [if noninteractive let ((original-message (symbol-function 'message)) (current-message nil)) unwind-protect progn (defun message (&rest args) (setq current-message (apply original-message args))) append (current-message) ((fset 'message original-message)) ((current-message))] 11 (#$ . 3182)]))
#@246 Execute code in specified REPL. If the REPL doesn't exist, create it
using the given scheme implementation.

Returns the output of executing the code if the output parameter
is true; otherwise returns the last value.

(fn CODE OUTPUT IMPL REPL)
(defalias 'org-babel-scheme-execute-with-geiser #[1028 "\306\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320\321\"c\210\322 \210c\210\323 \210\306\211r\324\")\325p!=\204D\326\327\2119\325p!\325p!9%\210\211\306\211\306\330ed\"\203[\331!\202_\332\333\"\262\210*\204zr\211q\210\334 \210)\335\336!\306\"\210\337!\210\210,\210\211\207" [geiser-repl-use-other-window geiser-repl-window-allow-split geiser-repl--repl geiser-impl--implementation geiser-debug-show-debug-p geiser-debug-jump-to-debug-p nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 format ";; -*- geiser-scheme-implementation: %s -*-" newline geiser-mode org-babel-scheme-get-repl org-babel-scheme-get-buffer-impl message "Implementation mismatch: %s (%s) %s (%s)" geiser-eval-region geiser-eval--retort-output geiser-eval--retort-result-str "" geiser-repl-exit set-process-query-on-exit-flag get-buffer-process kill-buffer] 15 (#$ . 3710)])
#@192 Convert RESULTS into an appropriate elisp value.
If the results look like a list or tuple, then convert them into an
Emacs-lisp table, otherwise return the results as a string.

(fn RESULTS)
(defalias 'org-babel-scheme--table-or-string #[257 "\300!\211<\203\301\302\"\202\211\207" [org-babel-script-escape mapcar #[257 "\211\203\n\211\301=\203\f\207\207" [org-babel-scheme-null-to null] 3 "\n\n(fn EL)"]] 5 (#$ . 4977)])
#@123 Execute a block of Scheme code with org-babel.
This function is called by `org-babel-execute-src-block'

(fn BODY PARAMS)
(defalias 'org-babel-execute:scheme #[514 "p\302\303\304\305!#\212\306\236A\307\236A\203\310\307\236A!\206#\206#	@\311\312\236A#\313\"\314\315\230\316\230?\205@$\317\320\321\236A\322\f\236A\"\320\323\f\236A\324
\236A\"#\325!\262\266\205)\207" [geiser-default-implementation geiser-active-implementations replace-regexp-in-string "^ ?\\*\\([^*]+\\)\\*" "\\1" buffer-name :result-type :scheme intern org-babel-scheme-make-session-name :session org-babel-expand-body:scheme org-babel-scheme-execute-with-geiser "output" "none" org-babel-reassemble-table org-babel-pick-name :colname-names :colnames :rowname-names :rownames org-babel-scheme--table-or-string] 16 (#$ . 5414)])
(provide 'ob-scheme)