From 401ac0e94167c34ec9b96325973beba4ccebbd07 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Fri, 28 Aug 1992 18:46:48 +0000
Subject: [PATCH] Add command-defined? so various files can test for features
 being present or not.

---
 v7/src/edwin/macros.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/macros.scm b/v7/src/edwin/macros.scm
index 0931fa96d..a4d5c96cf 100644
--- a/v7/src/edwin/macros.scm
+++ b/v7/src/edwin/macros.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/macros.scm,v 1.54 1992/01/09 17:47:27 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/macros.scm,v 1.55 1992/08/28 18:46:48 jinx Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -129,6 +129,14 @@
     `(COMMAND-PROCEDURE
       ,(command-name->scheme-name (canonicalize-name name)))))
 
+(syntax-table-define edwin-syntax-table 'COMMAND-DEFINED?
+  (lambda (name)
+    (let ((variable-name (command-name->scheme-name (canonicalize-name name))))
+      `(let ((env (->environment '(EDWIN))))
+	 (and (environment-bound? env ',variable-name)
+	      (not (lexical-unassigned? env
+					',variable-name)))))))
+
 (define (command-name->scheme-name name)
   (symbol-append 'EDWIN-COMMAND$ name))
 
-- 
2.25.1