[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Jun 9 15:35:15 1993 
Subject:re-defining lib to suppress messages. 
From:"A.Sloman" 
Volume-ID:930609.07 

For people stuck with V14.1, try this
-----------------------------------------------------------------------
section;

global vars procedure libwarning = erase;
;;; if necessary you can later redefine libwarning to print a message.

define global syntax lib;
	;;; Read the library name, and then plant
	;;; code to call libwarning, and then call loadlib.
	lvars file;
	dlocal popnewline = true;
	rdstringto([; ^termin ^newline]) -> file;
	sysPUSHQ(file);
	sysCALL("libwarning");
	sysPUSHQ(file);
	sysCALL("loadlib");
	";" :: proglist -> proglist
enddefine;

endsection;
-----------------------------------------------------------------------