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/system/smlnj/init/core.sml
ViewVC logotype

Diff of /sml/trunk/src/system/smlnj/init/core.sml

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

revision 678, Tue Jun 27 07:51:09 2000 UTC revision 679, Thu Jun 29 07:03:20 2000 UTC
# Line 263  Line 263 
263              val hook =              val hook =
264                  ref { reserve = fn (nfct: int) => 0,                  ref { reserve = fn (nfct: int) => 0,
265                        save = fn () => fn () => (),                        save = fn () => fn () => (),
266                        push = fn () => fn () => (),                        push = fn (module: int, loc: int) => fn () => (),
267                        add = fn (module: int, fct: int) => (),                        add = fn (module: int, fct: int) => (),
268                          nopush = fn (module: int, loc: int) => (),
269                        register = fn (module: int, fct: int, s: string) => (),                        register = fn (module: int, fct: int, s: string) => (),
270                        report = fn () => fn () => ([]: string list) }                        report = fn () => fn () => ([]: string list) }
271              val ! = InLine.!              val ! = InLine.!
# Line 275  Line 276 
276              fun bt_reserve () = #reserve (!hook)              fun bt_reserve () = #reserve (!hook)
277              fun bt_save () = #save (!hook)              fun bt_save () = #save (!hook)
278              fun bt_push () = #push (!hook)              fun bt_push () = #push (!hook)
279                fun bt_nopush () = #nopush (!hook)
280              fun bt_add () = #add (!hook)              fun bt_add () = #add (!hook)
281              fun bt_register () = #register (!hook)              fun bt_register () = #register (!hook)
282              fun bt_report () = #report (!hook)              fun bt_report () = #report (!hook)

Legend:
Removed from v.678  
changed lines
  Added in v.679

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