;;; -*-Scheme-*-
;;;
-;;; $Id: abbrev.scm,v 1.5 2000/07/28 15:15:29 cph Exp $
+;;; $Id: abbrev.scm,v 1.6 2001/03/21 19:25:10 cph Exp $
;;;
-;;; Copyright (c) 2000 Massachusetts Institute of Technology
+;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; Abbrev Mode
(let ((abbrev
(string-downcase
(cond ((string? abbrev) abbrev)
- ((symbol? abbrev) (symbol->string abbrev))
+ ((symbol? abbrev) (symbol-name abbrev))
(else
(error:wrong-type-argument abbrev "string"
'ABBREV-EXPANSION))))))
(lambda (name)
(let ((table (get-named-abbrev-table name)))
(insert-string "(" mark)
- (insert-string (symbol->string name) mark)
+ (insert-string (symbol-name name) mark)
(insert-string ")\n\n" mark)
(hash-table/for-each table
(lambda (abbrev entry)
;;; -*-Scheme-*-
;;;
-;;;$Id: autold.scm,v 1.56 2000/04/30 22:16:58 cph Exp $
+;;;$Id: autold.scm,v 1.57 2001/03/21 19:25:13 cph Exp $
;;;
-;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; Autoloads for Edwin
(list
(prompt-for-alist-value "Load library"
(map (lambda (library)
- (cons (symbol->string (car library))
+ (cons (symbol-name (car library))
(car library)))
known-libraries))
(command-argument)))
#| -*-Scheme-*-
-$Id: comman.scm,v 1.84 2000/06/15 00:43:40 cph Exp $
+$Id: comman.scm,v 1.85 2001/03/21 19:25:16 cph Exp $
-Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
+Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.
|#
;;;; Commands and Variables
(let ((desc (command-%description command)))
(if (description? desc)
desc
- (let ((new
- (->doc-string (symbol->string (command-name command)) desc)))
+ (let ((new (->doc-string (symbol-name (command-name command)) desc)))
(if new
(set-command-%description! command new))
new))))
(define (command-name-string command)
- (editor-name/internal->external (symbol->string (command-name command))))
+ (editor-name/internal->external (symbol-name (command-name command))))
(define (editor-name/internal->external string)
string)
string)
(define (make-command name description specification procedure)
- (let* ((sname (symbol->string name))
+ (let* ((sname (symbol-name name))
(command
(or (string-table-get editor-commands sname)
(let ((command (%make-command)))
(define (name->command name #!optional if-undefined)
(let ((name (canonicalize-name name)))
- (or (string-table-get editor-commands (symbol->string name))
+ (or (string-table-get editor-commands (symbol-name name))
(case (if (default-object? if-undefined) 'INTERN if-undefined)
((#F) #f)
((ERROR) (error "Undefined command:" name))
(let ((desc (variable-%description variable)))
(if (description? desc)
desc
- (let ((new
- (->doc-string (symbol->string (variable-name variable)) desc)))
+ (let ((new (->doc-string (symbol-name (variable-name variable)) desc)))
(if new
(set-variable-%description! variable new))
new))))
set-variable-value-validity-test!)
(define (variable-name-string variable)
- (editor-name/internal->external (symbol->string (variable-name variable))))
+ (editor-name/internal->external (symbol-name (variable-name variable))))
(define (make-variable name description value buffer-local?)
- (let* ((sname (symbol->string name))
+ (let* ((sname (symbol-name name))
(variable
(or (string-table-get editor-variables sname)
(let ((variable (%make-variable)))
(define (name->variable name #!optional if-undefined)
(let ((name (canonicalize-name name)))
- (or (string-table-get editor-variables (symbol->string name))
+ (or (string-table-get editor-variables (symbol-name name))
(case (if (default-object? if-undefined) 'INTERN if-undefined)
((#F) #f)
((ERROR) (error "Undefined variable:" name))
;;; -*-Scheme-*-
;;;
-;;; $Id: comtab.scm,v 1.71 2001/01/06 05:45:42 cph Exp $
+;;; $Id: comtab.scm,v 1.72 2001/03/21 19:25:19 cph Exp $
;;;
;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
;;;
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; Command Tables
(define (mode-name? object)
(and (symbol? object)
- (string-table-get editor-modes (symbol->string object))))
+ (string-table-get editor-modes (symbol-name object))))
(define (list-of-comtabs? object)
(and (not (null? object))
;;; -*-Scheme-*-
;;;
-;;; $Id: debug.scm,v 1.55 2000/12/01 06:18:32 cph Exp $
+;;; $Id: debug.scm,v 1.56 2001/03/21 19:25:22 cph Exp $
;;;
-;;; Copyright (c) 1992-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1992-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; Browser-style Debug and Where
;;; Package: (edwin debugger)
#t)))))))
(else
(write-string " BINDINGS:" port)
- (finish
- (if package
- (sort names
- (lambda (x y)
- (string<? (symbol->string x)
- (symbol->string y))))
- names)))))
+ (finish (if package (sort names symbol<?) names)))))
(debugger-newline port)
(debugger-newline port)
(write-string
(if (null? l)
l
(cons (car l) (loop (delete (car l) l))))))
- (names4 (sort names3
- (lambda (x y)
- (string<? (symbol->string x)
- (symbol->string y))))))
+ (names4 (sort names3 symbol<?)))
names4))
\f
(define (show-environment-bindings-with-ind environment ind port)
;;; -*-Scheme-*-
;;;
-;;; $Id: modes.scm,v 1.33 2000/06/15 00:43:51 cph Exp $
+;;; $Id: modes.scm,v 1.34 2001/03/21 19:25:25 cph Exp $
;;;
-;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; Modes
(if (not (or (not super-mode)
(and major? (major-mode? super-mode))))
(error:wrong-type-argument super-mode "major mode" 'MAKE-MODE))
- (let ((sname (symbol->string name))
+ (let ((sname (symbol-name name))
(major? (if major? #t #f))
(super-comtabs (if super-mode (mode-comtabs super-mode) '())))
(let ((mode (string-table-get editor-modes sname))
(define (name->mode object #!optional if-undefined)
(let ((name (canonicalize-name object)))
- (let ((sname (symbol->string name)))
+ (let ((sname (symbol-name name)))
(or (string-table-get editor-modes sname)
(case (if (default-object? if-undefined) 'INTERN if-undefined)
((#F) #f)
(let ((desc (mode-%description mode)))
(if (description? desc)
desc
- (let ((new (->doc-string (symbol->string (mode-name mode)) desc)))
+ (let ((new (->doc-string (symbol-name (mode-name mode)) desc)))
(if new
(set-mode-%description! mode new))
new))))
;;; -*-Scheme-*-
;;;
-;;; $Id: modlin.scm,v 1.22 2000/03/23 03:19:14 cph Exp $
+;;; $Id: modlin.scm,v 1.23 2001/03/21 19:25:27 cph Exp $
;;;
-;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1989-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; Modeline Format
;;; package: (edwin mode-line-format)
((#\s)
(let ((process (get-buffer-process buffer)))
(if process
- (symbol->string (process-status process))
+ (symbol-name (process-status process))
"no process")))
((#\p)
(let ((group (buffer-group buffer)))
;;; -*-Scheme-*-
;;;
-;;; $Id: process.scm,v 1.58 2000/10/26 02:28:19 cph Exp $
+;;; $Id: process.scm,v 1.59 2001/03/21 19:25:30 cph Exp $
;;;
-;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; Subprocess Support
;; package: (edwin process)
(let ((process (car processes)))
(write-line (or (process-name process) "")
(let ((status (process-status process)))
- (let ((name (symbol->string status)))
+ (let ((name (symbol-name status)))
(if (or (eq? 'EXIT status)
(eq? 'SIGNAL status))
(let ((reason (process-exit-reason process)))
;;; -*-Scheme-*-
;;;
-;;; $Id: rmail.scm,v 1.71 2000/06/08 17:58:26 cph Exp $
+;;; $Id: rmail.scm,v 1.72 2001/03/21 19:25:34 cph Exp $
;;;
-;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; RMAIL Mail Reader
(number->string (msg-memo/number (msg-memo/last memo)))
(append-map!
(lambda (label) (list "," label))
- (append! (map symbol->string (msg-memo/attributes memo))
+ (append! (map symbol-name (msg-memo/attributes memo))
(parse-labels (msg-memo/start memo))))))))
\f
;;;; Message deletion
rmail-last-label
(alist->string-table
(map list
- (append! (map symbol->string attributes)
+ (append! (map symbol-name attributes)
(buffer-keywords (current-buffer)))))
'REQUIRE-MATCH? require-match?)))
(set! rmail-last-label label)
(update-mode-line! (mark-buffer start))))))))
(define (attribute->string attribute)
- (string-append " " (string-downcase (symbol->string attribute)) ","))
+ (string-append " " (string-downcase (symbol-name attribute)) ","))
(define (label->attribute label)
(let ((s (intern-soft label)))
;;; -*-Scheme-*-
;;;
-;;; $Id: schmod.scm,v 1.48 2001/03/15 21:14:58 cph Exp $
+;;; $Id: schmod.scm,v 1.49 2001/03/21 19:25:37 cph Exp $
;;;
;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
;;;
(cond ((pair? argl)
(insert-char #\space point)
(insert-string (if (symbol? (car argl))
- (symbol->string (car argl))
+ (symbol-name (car argl))
(write-to-string (car argl)))
point)
(loop (cdr argl)))
((symbol? argl)
(insert-string " . " point)
- (insert-string (symbol->string argl) point)))))
+ (insert-string (symbol-name argl) point)))))
(fluid-let ((*unparse-uninterned-symbols-by-name?* #t))
(message argl))))
(editor-error "Expression does not evaluate to a procedure: "
;;; -*-Scheme-*-
;;;
-;;; $Id: sendmail.scm,v 1.74 2001/03/16 21:54:27 cph Exp $
+;;; $Id: sendmail.scm,v 1.75 2001/03/21 19:25:40 cph Exp $
;;;
;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
;;;
(subtype (mime-attachment-subtype attachment)))
(write-message-header-field
"Content-Type"
- (string-append (symbol->string type)
+ (string-append (symbol-name type)
"/"
- (symbol->string subtype)
+ (symbol-name subtype)
(mime-parameters->string
(mime-attachment-parameters attachment)))
port)
(decorated-string-append
"; " "" ""
(map (lambda (parameter)
- (string-append (symbol->string (car parameter))
+ (string-append (symbol-name (car parameter))
"=\""
(cadr parameter)
"\""))
parameters)))
(define (mime-disposition->string disposition)
- (string-append (symbol->string (car disposition))
+ (string-append (symbol-name (car disposition))
(mime-parameters->string (cdr disposition))))
(define (guarantee-mime-compliant-headers h-start h-end)
(let ((start (mark-right-inserting-copy mark))
(type (mime-attachment-type attachment))
(subtype (mime-attachment-subtype attachment)))
- (insert-string-pad-right (string-append (symbol->string type)
+ (insert-string-pad-right (string-append (symbol-name type)
"/"
- (symbol->string subtype))
+ (symbol-name subtype))
30 #\space mark)
(if (not (and (eq? type 'MESSAGE) (eq? subtype 'RFC822)))
(begin
;;; -*-Scheme-*-
;;;
-;;; $Id: xterm.scm,v 1.65 2000/12/01 06:16:53 cph Exp $
+;;; $Id: xterm.scm,v 1.66 2001/03/21 19:25:42 cph Exp $
;;;
-;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1989-2001 Massachusetts Institute of Technology
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
;;;; X Terminal
;;; Package: (edwin x-screen)
(or (hash-table/get table name #f)
(let ((atom
(x-intern-atom display
- (string-upcase (symbol->string name))
+ (string-upcase (symbol-name name))
soft?)))
(if (not (= atom 0))
(hash-table/put! table name atom))
projects / mit-scheme.git / commitdiff