From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Oct 1994 23:57:52 +0000 (+0000)
Subject: Add new procedure COPY-COMMAND.
X-Git-Tag: 20090517-FFI~7055
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c39750202e58899c7bb9d0cb61fb2d4cec115457;p=mit-scheme.git

Add new procedure COPY-COMMAND.
---

diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index a0fae7030..7255862fa 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comman.scm,v 1.78 1994/03/08 20:15:54 cph Exp $
+$Id: comman.scm,v 1.79 1994/10/25 23:57:52 cph Exp $
 
 Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 
@@ -108,6 +108,12 @@ of that license should have been included along with this file.
   (if (command? object)
       object
       (name->command object)))
+
+(define (copy-command new-name command)
+  (make-command new-name
+		(command-%description command)
+		(command-interactive-specification command)
+		(command-procedure command)))
 
 (define-structure (variable
 		   (constructor %make-variable ())