X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=pctb%2Fyppsc-ocr-resolver;h=88c5a41b05e4f59116e174f62ea53c9b058f1524;hp=016a95e58bfc90557e370ca7c36728dca32a0531;hb=aac1ada93b1c972e964f53c47dccd0fe4f8aff3a;hpb=89dfaeec1540f73ba85dbd25dd5332416f98778e

diff --git a/pctb/yppsc-ocr-resolver b/pctb/yppsc-ocr-resolver
index 016a95e..88c5a41 100755
--- a/pctb/yppsc-ocr-resolver
+++ b/pctb/yppsc-ocr-resolver
@@ -490,7 +490,10 @@ proc RETURN_RESULT {how what} {
 
 #---------- main progrm ----------
 
-proc main/test {} {
+proc main/default {} {
+    puts stderr "Do not run this program directly."
+    exit 12
+    
     global glyphsdone unk_l unk_r unk_contexts
 
     set glyphsdone {
@@ -511,7 +514,7 @@ proc main/test {} {
     draw_glyphsdone
     startup_cursor
 }
-proc done/test {} {
+proc done/default {} {
 }
 
 proc required {} {
@@ -547,7 +550,7 @@ proc done/automatic {} {
 
 proc debug {m} { }
 
-set mainkind test
+set mainkind default
 foreach arg $argv {
     switch -exact -- $arg {
 	{--debug}        { proc debug {m} { puts stderr "SHOW-THING $m" } }