;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'geiser-mode nil 'noerror) #@20 Eval Scheme symex. (defalias 'symex-eval-scheme #[0 "\300\301!\207" [geiser-eval-last-sexp nil] 2 (#$ . 123) nil]) #@36 Eval entire containing definition. (defalias 'symex-eval-definition-scheme #[0 "\300\301!\207" [geiser-eval-definition nil] 2 (#$ . 244)]) #@63 Evaluate symex and render the result in a useful string form. (defalias 'symex-eval-pretty-scheme #[0 "\300 \207" [symex-eval-scheme] 1 (#$ . 389) nil]) #@70 Evaluate symex as a 'thunk,' i.e. as a function taking no arguments. (defalias 'symex-eval-thunk-scheme #[0 "\300\301!\207" [message "eval as thunk currently not supported for Scheme"] 2 (#$ . 548) nil]) #@40 Eval symex and print result in buffer. (defalias 'symex-eval-print-scheme #[0 "\300\207" [nil] 1 (#$ . 758) nil]) #@27 Describe symbol at point. (defalias 'symex-describe-symbol-scheme #[0 "\300 \207" [geiser-doc-symbol-at-point] 1 (#$ . 878) nil]) #@13 Go to REPL. (defalias 'symex-repl-scheme #[0 "\300\301!\207" [geiser-mode-switch-to-repl nil] 2 (#$ . 1014)]) #@18 Evaluate buffer. (defalias 'symex-run-scheme #[0 "\300\301!\207" [geiser-eval-buffer nil] 2 (#$ . 1130)]) (provide 'symex-interface-scheme)