From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 30 Jan 1992 23:29:01 +0000 (+0000)
Subject: Eliminate bogus fossil.
X-Git-Tag: 20090517-FFI~9912
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=471796bf09d758f92459e16e288858d7c2a63c66;p=mit-scheme.git

Eliminate bogus fossil.
---

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)