From c39750202e58899c7bb9d0cb61fb2d4cec115457 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 25 Oct 1994 23:57:52 +0000 Subject: [PATCH] Add new procedure COPY-COMMAND. --- v7/src/edwin/comman.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 ()) -- 2.25.1