;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303#\210\300\304!\207" [require geiser-eval nil t lispy-inline] 4) #@36 Eval STR as Scheme code. (fn STR) (defalias 'lispy--eval-scheme #[257 "\301 \204!\302 \303\304\"\216\203\305!\210\202\306\305!\210\307\310!\210)\210\311\312\"\2033\313\310\"\314\315#\266\202r\316!q\210\317\320DD\321!\322!\323\236A\324\236A@\203e\314\325\326\211\327\330\"\"\266\203\"\266\205\202{\331\232\204x\332\333\334#\335Q\266\205\202{\211\266\205)\207" [geiser-impl--implementation geiser-repl--connection* current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] run-geiser call-interactively geiser-mode 1 string-match "(\\(?:define\\|set!\\|struct\\)[ (]+\\(\\(?:\\w\\|\\s_\\)+\\)" match-string format "(begin %s %s)" geiser-repl--buffer-name :eval :scm geiser-eval--send/wait geiser-eval--retort-error output result "Error: %s" nil string-trim-left string-trim-right "" propertize face font-lock-string-face "\n"] 15 (#$ . 179)]) #@15 (fn SYMBOL) (defalias 'lispy-goto-symbol-scheme #[257 "\300\301!!\207" [geiser-edit-symbol make-symbol] 4 (#$ . 1095)]) (provide 'le-scheme)