[q-lang-cvs] qcalc qcalc.q,1.156,1.157

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv6257

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.156
retrieving revision 1.157
diff -C2 -d -r1.156 -r1.157
*** qcalc.q	16 Nov 2007 10:57:14 -0000	1.156
--- qcalc.q	16 Nov 2007 11:44:15 -0000	1.157
***************
*** 759,764 ****
  "Compile finished with errors. Please check the log!" || show_editor;
  digest "+++ Done."	= STATE := 3 ||
! 			  statusmsg "Compile finished, starting interpreter";
! digest "+++ Ready."	= STATE := 4 || statusmsg "Ready";
  digest "+++ Exiting."	= STATE := 0;
  
--- 759,768 ----
  "Compile finished with errors. Please check the log!" || show_editor;
  digest "+++ Done."	= STATE := 3 ||
! 			  statusmsg "Compile finished, starting interpreter"
! 			    if get STATE < 3;
! 			= () otherwise;
! digest "+++ Ready."	= STATE := 4 || statusmsg "Ready"
! 			    if get STATE < 4;
! 			= () otherwise;
  digest "+++ Exiting."	= STATE := 0;