(FILECREATED " 4-Sep-86 19:37:14" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH109.;3
 1494   

      changes to:  (VARS FGHPATCH109COMS)
		   (FNS NC.ReportError)

      previous date: " 4-Sep-86 19:32:36" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH109.;1)


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

(PRETTYCOMPRINT FGHPATCH109COMS)

(RPAQQ FGHPATCH109COMS
 ((* * Implements a global var \NC.NoBreakInReportError that prevents 
			     NC.ReportError from breaking)
			  (GLOBALVARS \NC.NoBreakInReportError)
			  (VARS (\NC.NoBreakInReportError))
			  (FNS NC.ReportError)))
(* * Implements a global var \NC.NoBreakInReportError that prevents NC.ReportError from 
breaking)


(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS \NC.NoBreakInReportError)
)

(RPAQQ \NC.NoBreakInReportError
 NIL)
(DEFINEQ

(NC.ReportError

  (LAMBDA (FromFunction Msg)                                 (* fgh: " 4-Sep-86 19:34")


          (* * fgh 9/4/86 If \NC.NoBreakInReportError is non-NIL just prints msg in prompt window and cause ERROR!.)



    (DECLARE
 (
GLOBALVARS
 \NC.NoBreakInReportError))
    (if
 \NC.NoBreakInReportError
	then
 (
FLASHW
 PROMPTWINDOW)
	       (
CLRPROMPT
)
	       (
PROMPTPRINT
 "NoteCards Error")
	       (
PROMPTPRINT
 Msg)
	       (
ERROR!
)
      else
 (
APPLY*
 (
FUNCTION
 BREAK1)
		       T T FromFunction NIL NIL (
LIST
 Msg)))))
)
(PUTPROPS FGHPATCH109 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (811 1412 (NC.ReportError 821 . 1410)))))
STOP