Fix NAME-LAST-KBD-MACRO; it was passing a string to MAKE-COMMAND

instead of a symbol.

diff --git a/v7/src/edwin/kmacro.scm b/v7/src/edwin/kmacro.scm
index 9da91db5d2a7d4f6be5e3a1977e8ee2d66ae8b9d..82b193a0518afa095e663996f43cbad4aaab4235 100644 (file)
--- a/v7/src/edwin/kmacro.scm
+++ b/v7/src/edwin/kmacro.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/kmacro.scm,v 1.34 1991/08/06 15:40:44 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/kmacro.scm,v 1.35 1991/11/22 06:58:36 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -120,7 +120,7 @@
 
 (define (keyboard-macro-define name *macro)
   (string-table-put! named-keyboard-macros name last-keyboard-macro)
-  (make-command name
+  (make-command (intern name)
                "Command defined by keyboard macro"
                "P"
                (lambda (#!optional argument)