Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-sch.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; -*- Mode: Emacs-Lisp -*-
2
3 ;;; ilisp-sch.el --
4
5 ;;; This file is part of ILISP.
6 ;;; Version: 5.7
7 ;;;
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
9 ;;; 1993, 1994 Ivan Vasquez
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker
11 ;;;
12 ;;; Other authors' names for which this Copyright notice also holds
13 ;;; may appear later in this file.
14 ;;;
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
17 ;;; mailing list were bugs and improvements are discussed.
18 ;;;
19 ;;; ILISP is freely redistributable under the terms found in the file
20 ;;; COPYING.
21
22
23
24 ;;; Scheme
25
26 (defdialect scheme "Scheme" ilisp
27 (setq ilisp-block-command "(begin \n%s)")
28 (setq ilisp-load-command "(load \"%s\")")
29 )
30
31 (if (not scheme-program) (setq scheme-program "scheme"))
32
33 ;;;Cscheme
34 ;;; This has a problem since interrupts cause things to crash
35 ;(defdialect cscheme "C Scheme"
36 ; scheme
37 ; (setq comint-prompt-regexp
38 ; "^[0-9]+ \\([\\]=]=>\\|Error->\\|Bkpt->\\|Debug->\\|Where->\\) ")
39 ; (setq ilisp-program "cscheme")
40 ; (setq ilisp-binary-extension "bin")
41 ; )
42
43
44 ;;; Oaklisp
45
46 (defdialect oaklisp "Oaklisp Scheme"
47 scheme
48 (setq comint-prompt-regexp ">+ ")
49 (setq comint-fix-error "(ret 0)")
50 (setq ilisp-last-command "*")
51 (setq ilisp-describe-command "(describe %s)"))
52
53
54 ;;; end of file -- ilisp-sch.el --