1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: debugger prettyprint accessors unix io kernel ;
7 "Unix system call failed:" print
9 dup message>> write " (" write errno>> pprint ")" print ;
11 M: unix-system-call-error error.
12 "Unix system call ``" write dup word>> pprint "'' failed:" print
14 dup message>> write " (" write dup errno>> pprint ")" print
16 "It was called with the following arguments:" print