r7061: initial property settings

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index cd4f69bd657cc3cd2907173be2356c1a66429c95..d22f6232a9fc0acb2c7ea20dfa36bc52d3a416e8 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.61 2003/07/14 04:10:02 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -687,7 +687,7 @@
       (aif (slot-value obj (name-slot subobj))
           (view-hyperobject
            it (get-view-id (car (mklist it)) vid)
-           vid strm (1+ indent) filter subobjects refvars
+           strm vid (1+ indent) filter subobjects refvars
            link-printer)))))
 
          
@@ -712,7 +712,7 @@
          (fmt-obj-end obj view strm indent)
          (when subobjects 
            (fmt-subobj-start obj view strm indent)
-           (view-subobjects obj vid strm indent filter subobjects
+           (view-subobjects obj strm vid indent filter subobjects
                             refvars link-printer)
            (fmt-subobj-end obj view strm indent))))
       (fmt-list-end (car objlist) view strm indent nobjs)))