i1 : code Thing#{Standard,Print}
o1 = /usr/share/Macaulay2/Core/robust.m2:134:28-150:19: --source code:
Thing#{Standard,Print} = x -> (
oprompt := concatenate(interpreterDepth:"o", toString lineNumber, " = ");
save := printWidth;
if printWidth != 0 then printWidth = printWidth - #oprompt;
z := robustNet x;
wrapper := lookup(global Wrap,class x);
if wrapper =!= null then (
fun := () -> z = wrapper z;
try timelimit(printingTimeLimit, fun)
else (
alarm 0;
global debugError <- fun;
stderr << "--error or time limit reached in applying Wrap method to output; type 'debugError()' to see it" << endl << endl);
);
<< endl << oprompt << z << endl;
printWidth = save;
)
|