Fixed typo.

This commit is contained in:
steven-jenkins 2002-02-12 15:31:36 +00:00
parent 4d8953162b
commit 0025ee598b
11 changed files with 44 additions and 33 deletions

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;

View File

@ -19,19 +19,20 @@ s48_value time_plus_ticks()
s48_value sch_tv_sec = S48_UNSPECIFIC; s48_value sch_tv_sec = S48_UNSPECIFIC;
s48_value sch_tv_usec = S48_UNSPECIFIC; s48_value sch_tv_usec = S48_UNSPECIFIC;
s48_value sch_listval = S48_UNSPECIFIC; s48_value sch_listval = S48_UNSPECIFIC;
s48_value sch_retval s48_value sch_retval = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(3); S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno); if( gettimeofday(&t, &tz) ) s48_raise_os_error (errno);
S48_GC_PROTECT_3(sch_tv_sec, sch_tv_usec, sch_listval);
sch_tv_sec = s48_enter_integer(t.tv_sec); sch_tv_sec = s48_enter_integer(t.tv_sec);
sch_tv_usec = s48_enter_integer(t.tv_usec); sch_tv_usec = s48_enter_integer(t.tv_usec);
sch_listval = s48_cons (sch_tv_usec, S48_NULL); sch_listval = s48_cons (sch_tv_usec, S48_NULL);
sch_retval = s48_cons (sch_tv_sec, sch_listval); sch_retval = s48_cons (sch_tv_sec, sch_listval);
S48_GC_UNPROTECT; S48_GC_UNPROTECT();
return sch_retval; return sch_retval;