Remove extraneous OK printouts

2024-09-29 16:55:22 +00:00 · 2019-12-17 10:59:06 -08:00 · 2019-12-17 10:59:06 -08:00 · 1afb559849
commit 1afb559849
parent 3ce76f7308
3 changed files with 3 additions and 9 deletions
--- a/src/toolsrc/ed.pla
+++ b/src/toolsrc/ed.pla
@ -1662,10 +1662,8 @@ def cmdmode#0
        if perr
            puts("ERROR: $")
            putb(perr)
-        else
-            puts("OK")
+	    putln
        fin
-        putln
    loop
 end
 //
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@ -1366,10 +1366,8 @@ def docmds#0
            if perr
                prstr("ERR:$")
                prbyte(perr)
-            else
-                prstr("OK")
+		crout()
            fin
-            crout()
        fin
        prstr(pfxop(@prefix, GET_PFX))
        rdstr($BA)
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@ -1443,10 +1443,8 @@ def docmds#0
            if perr
                prstr("ERR:$")
                prbyte(perr)
-            else
-                prstr("OK")
+		crout()
            fin
-            crout()
        fin
        prstr(pfxop(@prefix, GET_PFX))
        rdstr($BA)