Some small changes

diff --git a/lang/basic/src/bem.h b/lang/basic/src/bem.h
index 653b765..973b612 100644 (file)
--- a/lang/basic/src/bem.h
+++ b/lang/basic/src/bem.h
@@ -6,6 +6,7 @@
 #include <ctype.h>
 #include <signal.h>
 #include <system.h>
+#include <print.h>
 #include <em.h>
 #include <em_mes.h>
 

diff --git a/lang/basic/src/compile.c b/lang/basic/src/compile.c
index f008dff..71dd006 100644 (file)
--- a/lang/basic/src/compile.c
+++ b/lang/basic/src/compile.c
@@ -26,5 +26,5 @@ compileprogram()
        while( basicline = 0, getline())
                (void) LLparse();
        epilogcode();   
-       (void) sys_close(yyin);
+       sys_close(yyin);
 }

diff --git a/lang/basic/src/parsepar.c b/lang/basic/src/parsepar.c
index f27fb9f..4882ce1 100644 (file)
--- a/lang/basic/src/parsepar.c
+++ b/lang/basic/src/parsepar.c
@@ -42,7 +42,7 @@ char **argv;
                                case 't': traceflag++; 
                                          break;        /* line tracing */
                                case 'h': /* split EM file */
-                                         (void) fprint(STDERR,
+                                         fprint(STDERR,
                                                  "h option not implemented\n");
                                          break;
                                case 'd': debug++; 

diff --git a/lang/basic/src/symbols.c b/lang/basic/src/symbols.c
index ff19f0f..af54ecc 100644 (file)
--- a/lang/basic/src/symbols.c
+++ b/lang/basic/src/symbols.c
@@ -256,7 +256,7 @@ heading( )
 {
        char procname[50];
 
-       sprint(procname,"_%s",fcn->symname);
+       (void) sprint(procname,"_%s",fcn->symname);
         C_pro_narg(procname);
        if ( fcn->symtype== DEFAULTTYPE)
                fcn->symtype= DOUBLETYPE;

diff --git a/lang/basic/src/util.c b/lang/basic/src/util.c
index 05254da..774ce85 100644 (file)
--- a/lang/basic/src/util.c
+++ b/lang/basic/src/util.c
@@ -73,7 +73,7 @@ int i;
 {
        static char buf[30];
 
-       (void) sprint(buf,"%d",i);
+       sprint(buf,"%d",i);
        return(buf);
 }