Commits

Anonymous committed 1a1d23f

Removed unused member [this_] from [scanner] class object.

  • Participants
  • Parent commits 0a85c0a

Comments (0)

Files changed (2)

cf/cf_scan_parser.ml

 
 class virtual ['i] scanner z =
     object(self)
-        val mutable this_: 'i Cf_seq.t = z
         val mutable next_: 'i Cf_seq.t = z
 
         method private virtual get: char
             | Cf_seq.Z ->
                 raise End_of_file
             | Cf_seq.P (hd, tl) ->
-    			this_ <- next_;
                 next_ <- tl;
                 hd
     end
             | Cf_seq.Z ->
                 raise End_of_file
             | Cf_seq.P ((ch, _), tl) ->
-    			this_ <- next_;
                 next_ <- tl;
                 ch
     end

cf/cf_scan_parser.mli

 class virtual ['i] scanner:
     'i Cf_seq.t ->      (** The input sequence *)
     object
-        val mutable this_: 'i Cf_seq.t  (** The current input symbol *)
         val mutable next_: 'i Cf_seq.t  (** The next unmatched input symbol *)
 
         (** Get the next character for the scanning buffer *)