diff --git a/scheme/last-revision b/scheme/last-revision index 6c19a26..505c5cc 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1683 +1684 diff --git a/src/ikarus-io.c b/src/ikarus-io.c index 898f0d4..86f7084 100644 --- a/src/ikarus-io.c +++ b/src/ikarus-io.c @@ -313,7 +313,7 @@ ikrt_file_ctime2(ikptr filename, ikpcb* pcb){ struct timespec ts; ts.tv_sec = s.st_ctime; ts.tv_nsec = 0; - return timespec_bytevector(&st, pcb); + return timespec_bytevector(&ts, pcb); #endif } @@ -332,7 +332,7 @@ ikrt_file_mtime2(ikptr filename, ikpcb* pcb){ struct timespec ts; ts.tv_sec = s.st_mtime; ts.tv_nsec = 0; - return timespec_bytevector(&st, pcb); + return timespec_bytevector(&ts, pcb); #endif }