From 471796bf09d758f92459e16e288858d7c2a63c66 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 30 Jan 1992 23:29:01 +0000
Subject: [PATCH] Eliminate bogus fossil.

---
 v7/src/runtime/starbase.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/starbase.scm b/v7/src/runtime/starbase.scm
index b705a5ac4..05b014cbe 100644
--- a/v7/src/runtime/starbase.scm
+++ b/v7/src/runtime/starbase.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/starbase.scm,v 1.7 1992/01/30 01:10:03 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/starbase.scm,v 1.8 1992/01/30 23:29:01 jinx Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -126,9 +126,7 @@ MIT in each case. |#
 		      (,(symbol-append
 			 'set-starbase-graphics-descriptor/ name '!)
 		       (graphics-device/descriptor device)
-		       value)))))
-	     (define-settor
-	       (macro (name))))
+		       value))))))
   (define-accessors-and-mutators x-left)
   (define-accessors-and-mutators y-bottom)
   (define-accessors-and-mutators x-right)
-- 
2.25.1