diff --git a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
index 672ca76000539e89f455d36274e56d4db660599b..b5d4ec95769d797b5321f8efd3230b811f15b4c1 100644 (file)
ELSIF p = "-no-hints" THEN
EXCL(opts, hint)
ELSIF p = "-trap" THEN
+ Kernel.intTrap := TRUE;
INCL(opts, errorTrap)
ELSIF p = "-no-trap" THEN
EXCL(opts, errorTrap)
END Init;
BEGIN
+ Kernel.intTrap := FALSE;
Kernel.Start(Init)
END DswCompilerCPfrontMain.