;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\304\305!\210\304\306!\210\304\307!\210\304\310!\210\304\311!\210\312\300\313\314\315DD\316\317\320\317\305\321\322\323\324&\210\325\326BC\327\330#\210\331\332\333\"\330\"\266\334\326\330\335!\336\204Y	\211\262\204Y\n\262\205W\337\"\262
\203\204\211\204\204\303N\203s\337\303N\"\211\262\204Y\211\340N\206}\211\341N\262
\262\202Y\266\203\342\343#\210\334\326\330\300#\207" [semantic-default-scheme-path mode-local-active-mode major-mode mode-local-symbol-table require semantic semantic/bovine semantic/bovine/scm-by semantic/format semantic/dep custom-declare-variable funcall function #[0 "\300\207" [("/usr/share/guile/")] 1 ""] "Default set of include paths for scheme (guile) code.\nThis should probably do some sort of search to see what is\nactually on the local machine." :group scheme :type (repeat (directory :tag "Directory")) :set #[514 "\300\"\210\211\301\302BC\303\304#\210\305\306\307\"\304\"\266\310\311!\205\"\305\311\304\"\207" [set-default mode-local-bind semantic-dependency-system-include-path #1=(mode-variable-flag t) scheme-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 semantic-dependency-system-include-path make-local-variable] 2] fboundp semantic-decoration-unparsed-include-do-reset] 7 "\n\n(fn SYM VAL)"] mode-local-bind semantic-dependency-system-include-path #1# scheme-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 semantic-dependency-system-include-path make-local-variable] 2] put symbol-name nil intern-soft mode-local-parent derived-mode-parent variable-documentation "System path to search for include files."] 12)
#@156 Return a prototype for the Emacs Lisp nonterminal TAG.
Override `semantic-format-tag-prototype' in `scheme-mode' buffers.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-prototype-scheme-mode #[769 "\211A@\262
\300!
\301=\203\211@\262
\302\303\304\305#\306R\207\307#\207" [semantic-tag-components function " (" mapconcat #[257 "\207" [] 2 "\n\n(fn A)"] " " ")" semantic-format-tag-prototype-default] 11 (#$ . 1757)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-prototype-scheme-mode definition-name semantic-format-tag-prototype mode-local-bind ((semantic-format-tag-prototype . semantic-format-tag-prototype-scheme-mode)) (override-flag t) scheme-mode] 4)
#@176 Return the documentation string for TAG.
Optional argument NOSNARF is ignored.
Override `semantic-documentation-for-tag' in `scheme-mode' buffers.

(fn TAG &optional NOSNARF)
(defalias 'semantic-documentation-for-tag-scheme-mode #[513 "\300!\211\203\211G\301V\203\211\301H\302U\203\211\303\304O\207\207" [semantic-tag-docstring 0 42 1 nil] 6 (#$ . 2483)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-documentation-for-tag-scheme-mode definition-name semantic-documentation-for-tag mode-local-bind ((semantic-documentation-for-tag . semantic-documentation-for-tag-scheme-mode)) (override-flag t) scheme-mode] 4)
#@172 Insert TAG from TAGFILE at point.
Attempts a simple prototype for calling or using TAG.
Override `semantic-insert-foreign-tag' in `scheme-mode' buffers.

(fn TAG TAGFILE)
(defalias 'semantic-insert-foreign-tag-scheme-mode #[514 "
\211A@\262
\300=\203\301\211@\262
\302\261\210\303u\207
\211@\262
c\207" [function "(" " )" -1] 5 (#$ . 3134)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-insert-foreign-tag-scheme-mode definition-name semantic-insert-foreign-tag mode-local-bind ((semantic-insert-foreign-tag . semantic-insert-foreign-tag-scheme-mode)) (override-flag t) scheme-mode] 4)
#@46 Detect and create symbol and keyword tokens.
(defconst semantic-lex-scheme-symbol '((looking-at "\\(\\sw\\|\\s_\\)+") (semantic-lex-push-token (semantic-lex-token (or (semantic-lex-keyword-p (match-string 0)) 'symbol) (match-beginning 0) (match-end 0)))) (#$ . 3755))
#@46 Detect and create symbol and keyword tokens.
(defalias 'semantic-lex-scheme-symbol #[0 "\306``dB\307\310\311!\203Z\312\307!\211\313!\205'\211;\205'\314
\"\262
\211\262\2051\211J\262
\2067\315\307\224\307\225BB
B\211@\211\211A@\247\204R\211AA\262
\202V\211A\262
A\262

-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at "\\(\\sw\\|\\s_\\)+" match-string obarrayp intern-soft symbol semantic-flex-keywords-obarray] 6 (#$ . 4029)])
#@237 A simple lexical analyzer that handles simple buffers.
This lexer ignores comments and whitespace, and will return
syntax as specified by the syntax table.
See `semantic-lex' for more information.

(fn START END &optional DEPTH LENGTH)
(defalias 'semantic-scheme-lexer #[1026 "\306\307\310#\210`\306\211\211\311\206
=B>\306?dV\203.\312\313d#\210\314 p\315\316#\216\317@!\210b\210`W\203\370\203R	GX\203\370\320\321!\203^\311\225\202\234\320\322!\203j\311\225\202\234\320\323!\203\273\324\311!\211\325A!\205\205\211;\205\205\326
A\"\262
\211\262\205\217\211J\262
\206\225\327\311\224\311\225BB	B\211@\211\211A@\247\204\260\211AA\262
\202\264\211A\262
A\262
\202\234\320\330!\203\350\331\311\224\311\225BB	B\211@\211\211A@\247\204\335\211AA\262
\202\341\211A\262
A\262
\202\234\320\332!\203}
=\203\372\f=W\203$
\fT\333\311\224\311\225BB	B\211@\211\211A@\247\204
\211AA\262
\202
\211A\262
A\262
\202\234\334\311\224\212B\203:
C\203:
\335\336!\210`\202Z
\3371G
\335\336!\210`0\202Z
\210\334D
>@>A#b\210`\211\262
)BB	B\211@\211\211A@\247\204r
\211AA\262
\202v
\211A\262
A\262
\202\234\320\340!\203\255
\fS\341\311\224\311\225BB	B\211@\211\211A@\247\204\242
\211AA\262
\202\246
\211A\262
A\262
\202\234\320\342!\203\343`\212B\203\310
C\203\310
\344\336!\210`\202\350
\3451\325
\344\336!\210`0\202\350
\210\343D
>@>A#b\210`\211\262
)BB	B\211@\211\211A@\247\204\211AA\262
\202\211A\262
A\262
\202\234\320E!\203=`\346\336!\210`
=\203&\347\350\351 \"\210\202-n\203-\352u\210`
=\2037\312\353!\210`\210\202\234\320\354!\203j\355\311\224\311\225BB	B\211@\211\211A@\247\204_\211AA\262
\202c\211A\262
A\262
\202\234\320F!\203\230\356\311\224\311\225BB	B\211@\211\211A@\247\204\215\211AA\262
\202\221\211A\262
A\262
\202\234\312\357!\210=\203\251\312\360	@#\210\262b\210G\203\321\361 \204\313r\362H!q\210\212Hb\210\363 *\203\321\364G\365\"\210	@I\205\363\306C\315\366\"\216
\203\351\211\367!\240\210\370\371\372\f#!)\262
\266\202@)\266\n\203/\n\211A\242\211\211\203\373\374@A@#\210\n\211A\242\262
\202
@D
>@>A#b\210`\211\266
b\210	\237.\207" [semantic-lex-block-streams semantic-lex-token-stream semantic-lex-block-stack semantic-lex-end-point semantic-lex-current-depth semantic-lex-depth nil run-hook-with-args semantic-lex-reset-functions 0 error "semantic-scheme-lexer: end (%d) > point-max (%d)" syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table looking-at "\\s-+" "\\s-*\\(\n\\|\\s>\\)" "\\(\\sw\\|\\s_\\)+" match-string obarrayp intern-soft symbol "\\s\\+" charquote "\\s(" open-paren semantic-list forward-list 1 (error) "\\s)" close-paren "\\s\"" string forward-sexp (error) forward-comment skip-syntax-forward "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "\\(\\s.\\|\\s$\\|\\s'\\)" punctuation number "Unmatched Text during Lexical Analysis" "semantic-scheme-lexer: endless loop at %d, after %S" input-pending-p marker-buffer accept-process-output throw lex #[0 "\300\242\205	\301\300\242!\207" [V0 delete-overlay] 2] semantic-lex-highlight-token read-event format "%S :: Depth: %d :: SPC - continue" message "semantic-scheme-lexer: `%s' block from %S is unterminated" semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties semantic-lex-syntax-table semantic-flex-keywords-obarray debug-on-error semantic-lex-debug-analyzers semantic-lex-unterminated-syntax-end-function semantic-lex-comment-regex semantic-lex-number-expression semantic-current-input-throw-symbol semantic--on-input-start-marker semantic-lex-debug] 16 (#$ . 4610)])
#@56 Setup hook function for Emacs Lisp files and Semantic.
(defalias 'semantic-default-scheme-setup #[0 "\303 \210\304\305\306\211\207" [semantic-symbol->name-assoc-list imenu-create-index-function semantic-lex-analyzer semantic-scm-by--install-parser ((variable . "Variables") (function . "Functions") (include . "Loads") (package . "DefineModule")) semantic-create-imenu-index semantic-scheme-lexer] 2 (#$ . 8307)])
(provide 'semantic/bovine/scm)