;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:53:48 1994 ;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-sch.el ;;; emacs version 19.10 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar scheme-hook nil "\ *Inferior Scheme hook.") (defvar scheme-program nil "\ *Inferior Scheme default program.") (fset 'setup-scheme #[(buffer) " ! B !" [setup-ilisp buffer "(begin \n%s)" ilisp-block-command "(load \"%s\")" ilisp-load-command scheme-program ilisp-program scheme ilisp-dialect run-hooks scheme-hook] 2 "\ Set up for interacting with Scheme."]) (fset 'scheme #[(&optional buffer program) " # " [ilisp-start-dialect buffer "scheme" program setup-scheme ilisp-program scheme-program] 4 "\ Create an inferior Scheme. With prefix, prompt for buffer and program." (byte-code "D" [nil] 2)]) (byte-code "!\n" [lisp-add-dialect "scheme" scheme-program] 2) (defvar oaklisp-hook nil "\ *Inferior Oaklisp Scheme hook.") (defvar oaklisp-program nil "\ *Inferior Oaklisp Scheme default program.") (fset 'setup-oaklisp #[(buffer) " ! \n   B !" [setup-scheme buffer ">+ " comint-prompt-regexp "(ret 0)" comint-fix-error "*" ilisp-last-command "(describe %s)" ilisp-describe-command oaklisp-program ilisp-program oaklisp ilisp-dialect run-hooks oaklisp-hook] 2 "\ Set up for interacting with Oaklisp Scheme."]) (fset 'oaklisp #[(&optional buffer program) " # " [ilisp-start-dialect buffer "oaklisp" program setup-oaklisp ilisp-program oaklisp-program] 4 "\ Create an inferior Oaklisp Scheme. With prefix, prompt for buffer and program." (byte-code "D" [nil] 2)]) (byte-code "!!" [lisp-add-dialect "oaklisp" provide ilisp-sch] 2)