* lisp/descr-text.el (describe-char-unicode-data): Fix copy/paste errors.

[gnu-emacs] / lisp / cmuscheme.el

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 7c5819d2126b0276e4e9236b642ffa7310384edd..f61e7207b09e05dd2dc6b278a9cfc12efe23be63 100644 (file)
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -1,6 +1,6 @@
 ;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
 
-;; Copyright (C) 1988, 1994, 1997, 2001-2015 Free Software Foundation,
+;; Copyright (C) 1988, 1994, 1997, 2001-2016 Free Software Foundation,
 ;; Inc.
 
 ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
@@ -430,7 +430,7 @@ in the next one.")
                                       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(load \""
                                            file-name
-                                           "\"\)\n")))
+                                           "\")\n")))
 
 (defun scheme-compile-file (file-name)
   "Compile a Scheme file FILE-NAME in the inferior Scheme process."
@@ -444,7 +444,7 @@ in the next one.")
                                       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(compile-file \""
                                            file-name
-                                           "\"\)\n")))
+                                           "\")\n")))
 
 \f
 (defvar scheme-buffer nil "The current scheme process buffer.