1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;; -*- Mode: Emacs-Lisp -*-
;;; ilisp-sch.el --
;;; This file is part of ILISP.
;;; Version: 5.8
;;;
;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
;;; 1993, 1994 Ivan Vasquez
;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
;;; 1996 Marco Antoniotti and Rick Campbell
;;;
;;; Other authors' names for which this Copyright notice also holds
;;; may appear later in this file.
;;;
;;; Send mail to 'ilisp-request@naggum.no' to be included in the
;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
;;; mailing list were bugs and improvements are discussed.
;;;
;;; ILISP is freely redistributable under the terms found in the file
;;; COPYING.
;;; Scheme
(defdialect scheme "Scheme" ilisp
(setq ilisp-block-command "(begin \n%s)")
(setq ilisp-load-command "(load \"%s\")")
)
(if (not scheme-program) (setq scheme-program "scheme"))
;;;Cscheme
;;; This has a problem since interrupts cause things to crash
;(defdialect cscheme "C Scheme"
; scheme
; (setq comint-prompt-regexp
; "^[0-9]+ \\([\\]=]=>\\|Error->\\|Bkpt->\\|Debug->\\|Where->\\) ")
; (setq ilisp-program "cscheme")
; (setq ilisp-binary-extension "bin")
; )
;;; Oaklisp
(defdialect oaklisp "Oaklisp Scheme"
scheme
(setq comint-prompt-regexp ">+ ")
(setq comint-fix-error "(ret 0)")
(setq ilisp-last-command "*")
(setq ilisp-describe-command "(describe %s)"))
;;; end of file -- ilisp-sch.el --
|
