Duh; DEFINE-STRUCTURE has one distinguished expression, not two.

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index d1f297e53a603c4607cba3f364fa4d08a6c24a97..ef68a66426bef1c4045f72962ef0c125cf45b3d9 100644 (file)
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: schmod.scm,v 1.51 2001/07/12 21:05:20 cph Exp $
+;;; $Id: schmod.scm,v 1.52 2001/07/12 21:57:06 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -162,7 +162,7 @@ The following commands evaluate Scheme expressions:
 
            ;; Remainder are MIT Scheme specific.
 
-           (DEFINE-STRUCTURE . 2)
+           (DEFINE-STRUCTURE . 1)
            (FLUID-LET . 1)
            (IN-PACKAGE . 1)
            (LET-SYNTAX . 1)