basis/unix/debugger/debugger.factor

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