;ELC   
;;; Compiled by rushing@beast.local on Mon Mar  7 14:36:07 2011
;;; from file /Users/rushing/src/irken/irken.el
;;; in Emacs version 22.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`irken.el' was compiled for Emacs 19.29 or later"))

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


(require 'scheme)
#@49 Gaudy expressions to highlight in Scheme modes.
(defconst irken-font-lock-keywords '(("(\\(begin\\|c\\(?:a\\(?:ll\\(?:-with-current-continuation\\|/cc\\)\\|se\\)\\|ond\\)\\|d\\(?:atatype\\|ef\\(?:ine\\|macro\\)\\)\\|else\\|i\\(?:f\\|nclude\\)\\|l\\(?:ambda\\|et\\(?:\\*\\|rec\\)?\\)\\|match\\|set!\\|vcase\\|with\\)\\>" . 1) ("(let\\s-+\\(\\sw+\\)" (1 font-lock-function-name-face)) ("(define\\s-+(?\\(\\sw+\\)" (1 font-lock-function-name-face)) ("(datatype\\s-+\\(\\sw+\\)" (1 font-lock-type-face)) ("\\<\\sw*:\\sw+\\>" . font-lock-type-face) ("->" . font-lock-function-name-face)) (#$ . 584))
(byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210	\"\210\304\311\321\322#\207" [current-load-list irken-mode-abbrev-table irken-mode-hook variable-documentation put "Hook run when entering Irken mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp irken-mode-map definition-name irken-mode default-boundp set-default make-sparse-keymap irken-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent scheme-mode] 5)
#@211 Major mode for editing Irken code.

In addition to any hooks its parent mode `scheme-mode' might have run,
this mode runs the hook `irken-mode-hook', as the final step
during initialization.

\{irken-mode-map}
(defalias 'irken-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2036 \321 =\203< \322\f\323 \"\210)\324!\210\325\f!\210\311\312\326)\327\330!\203[ \330\331!\207\332\331!\207" [delay-mode-hooks major-mode mode-name irken-mode-map irken-mode-syntax-table parent make-local-variable t scheme-mode irken-mode "Irken" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table ((irken-font-lock-keywords) nil t (("+-*/.<>=!?$%_&~^:" . "w") (35 . "w 14")) beginning-of-defun (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function . scheme-font-lock-syntactic-face-function) (parse-sexp-lookup-properties . t) (font-lock-extra-managed-props syntax-table)) fboundp run-mode-hooks irken-mode-hook run-hooks irken-mode-abbrev-table local-abbrev-table font-lock-defaults] 6 (#$ . 1935) nil])
(defalias 'scheme-indent-match #[(state indent-point normal-indent) "\301u\210\301\234b\210i\302\\\207" [state 1 2] 2])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\307#\210\300\311\302\307#\210\300\312\302\303#\210\313\314\315\"\210\316\317!\207" [put vcase scheme-indent-function scheme-let-indent match scheme-indent-match datatype 1 map-range for-range let/cc add-to-list align-rules-list (irken-patterns (tab-stop) (regexp . "\\(\\s-*\\)\\->\\(\\s-*\\)") (modes quote (irken-mode))) provide irken] 4)