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"):
|
