basis/unix/debugger/debugger.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: debugger prettyprint accessors unix kernel ;
   4 FROM: io => write print nl ;
   5 IN: unix.debugger
   6
   7 M: unix-error error.
   8     "Unix system call failed:" print
   9     nl
  10     dup message>> write " (" write errno>> pprint ")" print ;
  11
  12 M: unix-system-call-error error.
  13     "Unix system call “" write dup word>> pprint "” failed:" print
  14     nl
  15     dup message>> write " (" write dup errno>> pprint ")" print
  16     nl
  17     "It was called with the following arguments:" print
  18     nl
  19     args>> stack. ;