Changeset 8030 in project


Ignore:
Timestamp:
02/01/08 18:57:37 (12 years ago)
Author:
Kon Lovett
Message:

Fix for wrong errcod; should be C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/runtime.c

    r8029 r8030  
    57485748  if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) {
    57495749    error_location = loc;
    5750     barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, NULL, x);
     5750    barf(C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR, NULL, x);
    57515751  }
    57525752
     
    58775877
    58785878  if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG)
    5879     barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, NULL, x);
     5879    barf(C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR, NULL, x);
    58805880
    58815881  return x;
Note: See TracChangeset for help on using the changeset viewer.