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;
-----------------------------------------------------------------------
|