diff options
Diffstat (limited to 'otherlibs/unix/getcwd.c')
| -rw-r--r-- | otherlibs/unix/getcwd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/unix/getcwd.c b/otherlibs/unix/getcwd.c index dd5194428..3f8cf7d89 100644 --- a/otherlibs/unix/getcwd.c +++ b/otherlibs/unix/getcwd.c @@ -30,7 +30,7 @@ #ifdef HAS_GETCWD -value unix_getcwd(value unit) /* ML */ +CAMLprim value unix_getcwd(value unit) { char buff[PATH_MAX]; if (getcwd(buff, sizeof(buff)) == 0) uerror("getcwd", Nothing); @@ -40,7 +40,7 @@ value unix_getcwd(value unit) /* ML */ #else #ifdef HAS_GETWD -value unix_getcwd(value unit) +CAMLprim value unix_getcwd(value unit) { char buff[PATH_MAX]; if (getwd(buff) == 0) uerror("getcwd", copy_string(buff)); @@ -49,7 +49,7 @@ value unix_getcwd(value unit) #else -value unix_getcwd(value unit) +CAMLprim value unix_getcwd(value unit) { invalid_argument("getcwd not implemented"); } #endif |