Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/ml-burg/burg-gram.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-burg/burg-gram.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 514, Thu Dec 16 08:32:57 1999 UTC revision 515, Sun Jan 9 09:59:14 2000 UTC
# Line 210  Line 210 
210  structure EC=  structure EC=
211  struct  struct
212  open LrTable  open LrTable
213    infix 5 $$
214    fun x $$ y = y::x
215  val is_keyword =  val is_keyword =
216  fn _ => false  fn _ => false
217  val preferred_change =  val preferred_change : (term list * term list) list =
218  nil  nil
219  val noShift =  val noShift =
220  fn _ => false  fn _ => false
# Line 239  Line 241 
241  val errtermvalue=  val errtermvalue=
242  fn _ => MlyValue.VOID  fn _ => MlyValue.VOID
243  end  end
244  val terms = (T 0) :: (T 1) :: (T 2) :: (T 3) :: (T 4) :: (T 5) :: (T 6  val terms : term list = nil
245  ) :: (T 7) :: (T 8) :: (T 9) :: (T 10) :: (T 11) :: (T 12) :: nil   $$ (T 12) $$ (T 11) $$ (T 10) $$ (T 9) $$ (T 8) $$ (T 7) $$ (T 6) $$
246  end  (T 5) $$ (T 4) $$ (T 3) $$ (T 2) $$ (T 1) $$ (T 0)end
247  structure Actions =  structure Actions =
248  struct  struct
249  exception mlyAction of int  exception mlyAction of int

Legend:
Removed from v.514  
changed lines
  Added in v.515

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0