Index: generic/predefined.h =================================================================== diff -u -r68e773f0a21300bd799c60fefc76f696fd230ca0 -r8ec36a4408ae5e7546b4f16fccfa458a2242cb81 --- generic/predefined.h (.../predefined.h) (revision 68e773f0a21300bd799c60fefc76f696fd230ca0) +++ generic/predefined.h (.../predefined.h) (revision 8ec36a4408ae5e7546b4f16fccfa458a2242cb81) @@ -1,7 +1,6 @@ static char cmd[] = "namespace eval ::xotcl {\n" "set bootstrap 1}\n" -"puts stderr HELLLO-0\n" "namespace eval xotcl2 {\n" "namespace path ::xotcl\n" "::xotcl::createobjectsystem ::xotcl2::Object ::xotcl2::Class\n" @@ -66,14 +65,11 @@ ".protected method init args {}\n" ".protected method defaultmethod {} {::xotcl::self}\n" ".protected method objectparameter {} {;}}\n" -"puts stderr HELLLO-1\n" -"::xotcl::forward Object forward -verbose ::xotcl::forward %self -per-object\n" -"::xotcl::forward Class forward -verbose ::xotcl::forward %self\n" -"puts stderr HELLLO-3\n" +"::xotcl::forward Object forward ::xotcl::forward %self -per-object\n" +"::xotcl::forward Class forward ::xotcl::forward %self\n" "Class protected object method __unknown {name} {}\n" "Object public method alias {-objscope:switch methodName cmd} {\n" -"::xotcl::alias [self] $methodName \\\n" -"-per-object \\\n" +"::xotcl::alias [self] $methodName -per-object \\\n" "{*}[expr {${objscope} ? \"-objscope\" : \"\"}] \\\n" "$cmd}\n" "Class public method alias {-objscope:switch methodName cmd} {\n" Index: generic/predefined.xotcl =================================================================== diff -u -r68e773f0a21300bd799c60fefc76f696fd230ca0 -r8ec36a4408ae5e7546b4f16fccfa458a2242cb81 --- generic/predefined.xotcl (.../predefined.xotcl) (revision 68e773f0a21300bd799c60fefc76f696fd230ca0) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 8ec36a4408ae5e7546b4f16fccfa458a2242cb81) @@ -6,8 +6,6 @@ set bootstrap 1 } -puts stderr HELLLO-0 - # # First create the ::xotcl2 object system. # @@ -137,8 +135,8 @@ } # define forward methods - ::xotcl::forward Object forward -verbose ::xotcl::forward %self -per-object - ::xotcl::forward Class forward -verbose ::xotcl::forward %self + ::xotcl::forward Object forward ::xotcl::forward %self -per-object + ::xotcl::forward Class forward ::xotcl::forward %self # The method __unknown is called in cases, where we try to resolve # an unkown class. one could define a custom resolver with this name Index: generic/xotcl.c =================================================================== diff -u -r68e773f0a21300bd799c60fefc76f696fd230ca0 -r8ec36a4408ae5e7546b4f16fccfa458a2242cb81 --- generic/xotcl.c (.../xotcl.c) (revision 68e773f0a21300bd799c60fefc76f696fd230ca0) +++ generic/xotcl.c (.../xotcl.c) (revision 8ec36a4408ae5e7546b4f16fccfa458a2242cb81) @@ -10514,8 +10514,6 @@ forwardCmdClientData *tcd; int result; - fprintf(stderr, "ForwardCmd \n"); - result = forwardProcessOptions(interp, method, withDefault, withEarlybinding, withMethodprefix, withObjscope, withOnerror, withVerbose,