(FILECREATED " 6-Feb-87 18:39:47" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH195.;1
 1373   

      changes to:  (VARS RHTPATCH195COMS)
		   (FNS NC.SetBrowserRoots))


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RHTPATCH195COMS)

(RPAQQ RHTPATCH195COMS
 ((* * Fixes bug reported by John Tang when converting files containing 
			     browser cards with deleted root nodes.)
			  (* * Change to NCBROWSERCARD)
			  (FNS NC.SetBrowserRoots)))
(* * Fixes bug reported by John Tang when converting files containing browser cards with 
deleted root nodes.)


(* * Change to NCBROWSERCARD)


(DEFINEQ

(NC.SetBrowserRoots

  (LAMBDA (Card BrowserRoots)                                (* rht: " 6-Feb-87 18:38")


          (* * Put the roots on the Card's UID property list in the CardUID/NoteFileUID pair format.)




          (* * rht 2/6/87: Now checks that BrowserRoots are valid cards.)



    (
NC.SetBrowserRootsInfo
 Card (for
 BrowserRoot in
 BrowserRoots eachtime
 (
BLOCK
)
				      when
 (
NC.ValidCardP
 BrowserRoot)
				      collect
 (
CONS
 (fetch
 (Card UID) of
 BrowserRoot)
							(fetch
 (NoteFile UID)
							   of
 (fetch
 (Card NoteFile)
								   of
 BrowserRoot)))))))
)
(PUTPROPS RHTPATCH195 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (632 1291 (NC.SetBrowserRoots 642 . 1289)))))
STOP