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

## print-hook.pkg
#
# This is a hook for the top-level print function, which allows
# it to be rebound.  It is imported from
#
#     src/lib/core/init/print-hook-guts.pkg
#
# via the "print-hook" primitive.  In its original state it is
# a dummy because it is defined at a time when the IO stack
# is not yet available -- that is why we do an assignment here.
#
# (The bootstrap mechanism must make sure that this code actually gets executed.)

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

stipulate
    package fil = file__premicrothread;                                 # file__premicrothread          is from   src/lib/std/src/posix/file--premicrothread.pkg
                                                        my _ =          # "my _ = "                     because only declarations are syntactically legal here.
    print_hook_guts::print_hook :=  fil::print;
herein                                                                  # winix_text_file_for_posix__premicrothread     is from   src/lib/std/src/posix/winix-text-file-for-posix--premicrothread.pkg
    package print_hook
        =
        print_hook_guts;                                                # print_hook_guts               is from   src/lib/core/init/print-hook-guts.pkg
end;



## COPYRIGHT (c) 1997 AT&T Labs Research.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.