diff options
Diffstat (limited to 'pit/src/runtime/value/small.c')
| -rw-r--r-- | pit/src/runtime/value/small.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pit/src/runtime/value/small.c b/pit/src/runtime/value/small.c index f07e405..e0bdf0a 100644 --- a/pit/src/runtime/value/small.c +++ b/pit/src/runtime/value/small.c @@ -3,7 +3,7 @@ #ifndef PIT_NO_DOUBLE double pit_value_as_double(pit_runtime *rt, pit_value v) { if (pit_value_sort(v) != PIT_VALUE_SORT_DOUBLE) { - pit_error(rt, "invalid use of value as double"); + pit_error(rt, "invalid use of value %v as double", v); return 0.0; } union { double dval; u64 ival; } x; @@ -23,7 +23,7 @@ pit_value pit_value_double_new(pit_runtime *rt, double d) { i64 pit_value_as_integer(pit_runtime *rt, pit_value v) { if (pit_value_sort(v) != PIT_VALUE_SORT_INTEGER) { - pit_error(rt, "invalid use of value as integer"); + pit_error(rt, "invalid use of value %v as integer", v); return -1; } u64 lo = pit_value_data(v); @@ -44,7 +44,7 @@ pit_value pit_value_bool_new(pit_runtime *rt, bool i) { pit_symbol pit_value_as_symbol(pit_runtime *rt, pit_value v) { if (pit_value_sort(v) != PIT_VALUE_SORT_SYMBOL) { - pit_error(rt, "invalid use of value as symbol"); + pit_error(rt, "invalid use of value %v as symbol", v); return -1; } return (pit_symbol) (pit_value_data(v) & 0xffffffff); @@ -59,7 +59,7 @@ pit_value pit_value_symbol_new(pit_runtime *rt, pit_symbol s) { pit_ref pit_value_as_ref(pit_runtime *rt, pit_value v) { if (pit_value_sort(v) != PIT_VALUE_SORT_REF) { - pit_error(rt, "invalid use of value as ref"); + pit_error(rt, "invalid use of value %v as ref", v); return -1; } return (pit_ref) (pit_value_data(v) & 0xffffffff); |