Merge pull request #3827 from smoe/caterp_fixes

canterp: closing file upon close command

Author: andypugh

src/emc/canterp/canterp.cc

@@ -703,6 +703,10 @@ int Canterp::open(const char *newfilename) {
 }
 
 int Canterp::close() {
+    if (f) {
+        fclose(f);
+        f = (FILE*) nullptr;
+    }
     return INTERP_OK;
 }