[q-lang-cvs] qcalc qcalc.q,1.56,1.57

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

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

Modified Files:
	qcalc.q 
Log Message:
disable debugging code

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** qcalc.q	1 Nov 2007 13:36:49 -0000	1.56
--- qcalc.q	1 Nov 2007 13:50:51 -0000	1.57
***************
*** 1531,1539 ****
  mark_save	= LAST_SAVE := #get UNDO_LIST;
  
! mark_undo L	= printf "*** mark undo: %s\n" (str L) ||
  		  LAST_SAVE := 1 || UNDO_LIST := [L] || REDO_LIST := []
  		    where L = zip (map (flip (flip sub 0) 1) L) (map (!2) L);
  
! save_undo L	= printf "*** save undo: %s\n" (str L) ||
  		  if #get UNDO_LIST < get LAST_SAVE then LAST_SAVE := 0 ||
  		  UNDO_LIST := [L|get UNDO_LIST] || REDO_LIST := []
--- 1531,1539 ----
  mark_save	= LAST_SAVE := #get UNDO_LIST;
  
! mark_undo L	= //printf "*** mark undo: %s\n" (str L) ||
  		  LAST_SAVE := 1 || UNDO_LIST := [L] || REDO_LIST := []
  		    where L = zip (map (flip (flip sub 0) 1) L) (map (!2) L);
  
! save_undo L	= //printf "*** save undo: %s\n" (str L) ||
  		  if #get UNDO_LIST < get LAST_SAVE then LAST_SAVE := 0 ||
  		  UNDO_LIST := [L|get UNDO_LIST] || REDO_LIST := []
***************
*** 2145,2149 ****
  /* Some nice fontification for compiler error and warning messages. */
  
! format S	= printf "-> '%s'\n" S || fail;
  format S
  if eq () (sscanf S "! File"):
--- 2145,2149 ----
  /* Some nice fontification for compiler error and warning messages. */
  
! //format S	= printf "-> '%s'\n" S || fail;
  format S
  if eq () (sscanf S "! File"):