1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors debugger io kernel prettyprint unix ;
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