finish #214, add needed ambiguity checks if 0 is the final character

src/prolog/toplevel.pl

@@ -28,9 +28,8 @@
 '$$compile_batch' :- '$compile_batch'.
 
 '$instruction_match'([Item], []) :-
-    (  atom(Item) ->
+    (  atom(Item) -> !,
        (  Item == user ->
-	  !,
 	  catch('$$compile_batch', E, '$print_exception_with_check'(E))
        ;  consult(Item)
        )