15.4.1095  src/lib/std/src/nj/print-hook.pkg

## print-hook.pkg

# Compiled by:
#     src/lib/std/src/standard-core.sublib

# This is a hook for the top-level print function, which allows
# it to be rebound.


#  Imported from Init/print-hook.pkg via the "print-hook" primitive. 
/* In its original state it is uninitialized because it is defined at a
 * time when the IO stack is not yet available.  That's why we do an
 * assignment here.  (The bootstrap mechanism must make sure that this
 * code actually gets executed...) */
stipulate
    my _ = print_hook::print_hook := file::print;
herein
    package print_hook = print_hook;    # print_hook    is from   src/lib/std/src/nj/print-hook.pkg
end;



## COPYRIGHT (c) 1997 AT&T Labs Research.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2012,
## released under Gnu Public Licence version 3.