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 /smlnj-lib/trunk/Util/queue.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/Util/queue.sml

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

revision 2448, Tue Apr 24 15:10:06 2007 UTC revision 2449, Tue Apr 24 15:10:24 2007 UTC
# Line 25  Line 25 
25              x              x
26            end            end
27    
28        fun next q = (case Fifo.next (!q)
29               of SOME(x, newq) => (q := newq; SOME x)
30                | NONE => NONE
31              (* end case *))
32    
33      fun delete (q, pred) = (q := Fifo.delete (!q, pred))      fun delete (q, pred) = (q := Fifo.delete (!q, pred))
34      fun head q = Fifo.head (!q)      fun head q = Fifo.head (!q)
35      fun peek q = Fifo.peek (!q)      fun peek q = Fifo.peek (!q)

Legend:
Removed from v.2448  
changed lines
  Added in v.2449

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