Changeset 14849


Ignore:
Timestamp:
Jun 24, 2011, 8:02:48 PM (8 years ago)
Author:
gb
Message:

Change how user-specified toplevel-functions are handled: don't
call QUIT in cleanup code (while unwinding), do call it when the
user-specified function returns. If we don't QUIT abruptly,
don't close the streams.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/dumplisp.lisp

    r14650 r14849  
    150150                *stdin*
    151151                *stdout*
    152                  #'quit
     152                 #'false
    153153               :initial-function (lambda ()
    154154                                   (catch :toplevel
    155                                      (funcall user-toplevel-function)))
     155                                     (funcall user-toplevel-function)
     156                                     (quit)))
     157               :close-streams nil
    156158               )
    157159              (%set-toplevel #'housekeeping-loop)
Note: See TracChangeset for help on using the changeset viewer.