cvs commit: hugs98/src static.c

[Ross Paterson]

ross        2007/02/12 02:36:16 PST

  Modified files:
    src                  static.c 
  Log:
  Clashes are top-level only (fixes bug reported by Iavor).
  
  The bug reported by Iavor:
  	head = 'a'
  	test = let head = "" in head
  was erroneously rejected.
  
  A related bug:
  	head = 'a'
  	test1 = let head = "" in ""
  	test2 = head
  was erroneously accepted.
  
  Both now fixed.  The root cause is probably that the clash list is in the
  wrong place in the data structure.
  
  Revision  Changes    Path
  1.182     +12 -8     hugs98/src/static.c