-#define SCM_SYSERROR(_subr) \
- scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
- strerror (errno), _subr)
-
- /* equivalent to:
- scm_throw (system_error_sym, \
- scm_listify (scm_makfrom0str (strerror (errno)), \
- scm_makfrom0str (_subr), \
- SCM_UNDEFINED));
- */
-#ifdef ENOSYS
-# define SCM_SYSMISSING(_subr) \
- scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
- strerror (ENOSYS), _subr)
-#else
-# define SCM_SYSMISSING(_subr) \
- scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
- "missing function", _subr)
-#endif