src/Tools/isac/Frontend/states.sml
changeset 55432 1780e9905d80
parent 38031 460c24a6a6ba
child 55445 33b0f6db720c
     1.1 --- a/src/Tools/isac/Frontend/states.sml	Thu Jun 05 18:10:46 2014 +0200
     1.2 +++ b/src/Tools/isac/Frontend/states.sml	Fri Jun 06 06:50:02 2014 +0200
     1.3 @@ -141,14 +141,6 @@
     1.4  type iterID = int;
     1.5  type calcID = int;
     1.6  
     1.7 -(*FIXME.WN.9.03: ev. resdesign calcstate + pos for CalcIterator
     1.8 -type state = 
     1.9 -     (*pos' *          set by the CalcIterator ---> for each user*)
    1.10 -     calcstate;       (*to which ev.included 'preview' tac_s could be applied*)
    1.11 -val e_state = (e_pos', e_calcstate):state;
    1.12 -val states = Unsynchronized.ref ([]:(iterID * (calcID * state) list) list);
    1.13 -*)
    1.14 -
    1.15  val states = Unsynchronized.ref
    1.16          ([]:(calcID * 
    1.17  	     (calcstate *