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/compiler/TopLevel/batch/binfile.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/batch/binfile.sml

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

revision 568, Tue Mar 7 03:59:09 2000 UTC revision 569, Tue Mar 7 04:01:07 2000 UTC
# Line 325  Line 325 
325          end          end
326    
327          fun checkMagic s =          fun checkMagic s =
328              if (bytesIn (s, magicBytes)) = MAGIC then ()              if bytesIn (s, magicBytes) = MAGIC then ()
329              else error "bad magic number"              else error "bad magic number"
330    
331          fun readHeader s = let          fun readHeader s = let

Legend:
Removed from v.568  
changed lines
  Added in v.569

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