X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;ds=sidebyside;f=tclmain.c;h=214ce9abc5beb51bc804c97f5faf7e05ba1b1db1;hb=b7bac2322e7a6855f60d167509108eff3d21bd65;hp=4277b1aed58af07fd541cd75fa3acf3c73e49211;hpb=84667651230fe801a73274c5f95e9f7c8bf0813a;p=ir-tcl-moved-to-github.git

diff --git a/tclmain.c b/tclmain.c
index 4277b1a..214ce9a 100644
--- a/tclmain.c
+++ b/tclmain.c
@@ -5,7 +5,13 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: tclmain.c,v $
- * Revision 1.9  1995-06-26 10:20:20  adam
+ * Revision 1.10  1995-06-30 12:39:28  adam
+ * Bug fix: loadFile didn't set record type.
+ * The MARC routines are a little less strict in the interpretation.
+ * Script display.tcl replaces the old marc.tcl.
+ * New interactive script: shell.tcl.
+ *
+ * Revision 1.9  1995/06/26  10:20:20  adam
  * ir-tk works like wish.
  *
  * Revision 1.8  1995/06/21  15:16:44  adam
@@ -207,8 +213,8 @@ void tcl_mainloop (Tcl_Interp *interp, int interactive)
                 Tcl_DStringFree (&command);
                 if (code)
                     printf ("Error: %s\n", interp->result);
-                else
-                    printf ("%s", interp->result);
+                else if (*interp->result)
+                    printf ("%s\n", interp->result);
                 printf ("%% "); fflush (stdout);
             }
         }