diff --git a/src/calls.c b/src/calls.c index 896de4149f..cd30236fab 100644 --- a/src/calls.c +++ b/src/calls.c @@ -985,8 +985,7 @@ static Obj TypeFunction(Obj func) static Obj PrintOperation; -void PrintFunction ( - Obj func ) +static void PrintFunction(Obj func) { Int narg; /* number of arguments */ Int nloc; /* number of locals */ diff --git a/src/calls.h b/src/calls.h index aa8f1b01cc..365e512b11 100644 --- a/src/calls.h +++ b/src/calls.h @@ -473,14 +473,6 @@ Obj ArgStringToList(const Char * nams_c); *F * * * * * * * * * * * * * type and print function * * * * * * * * * * * * */ -/**************************************************************************** -** -*F PrintFunction( ) . . . . . . . . . . . . . . . print a function -** -** 'PrintFunction' prints the function . -*/ -void PrintFunction(Obj func); - void PrintKernelFunction(Obj func); diff --git a/src/funcs.c b/src/funcs.c index efde074745..d1807138e4 100644 --- a/src/funcs.c +++ b/src/funcs.c @@ -697,7 +697,7 @@ static void PrintFuncExpr(Expr expr) { /* get the function expression bag */ Obj fexp = GET_VALUE_FROM_CURRENT_BODY(READ_EXPR(expr, 0)); - PrintFunction( fexp ); + PrintObj( fexp ); } diff --git a/src/streams.c b/src/streams.c index 6ca218baa6..863dbcb33b 100644 --- a/src/streams.c +++ b/src/streams.c @@ -714,9 +714,6 @@ static Obj FuncPrint(Obj self, Obj args) else if ( IS_STRING_REP(arg) ) { PrintString1(arg); } - else if ( TNUM_OBJ( arg ) == T_FUNCTION ) { - PrintFunction( arg ); - } else { PrintObj( arg ); } @@ -772,9 +769,6 @@ static Obj PRINT_OR_APPEND_TO_FILE_OR_STREAM(Obj args, int append, int file) else if (IS_STRING_REP(arg)) { PrintString1(arg); } - else if (IS_FUNC(arg)) { - PrintFunction(arg); - } else { PrintObj(arg); }