diff --git a/src/boot/sysobj.reb b/src/boot/sysobj.reb index d170ae5535..24d21e83e2 100644 --- a/src/boot/sysobj.reb +++ b/src/boot/sysobj.reb @@ -489,6 +489,8 @@ standard: object [ type: ; integer! or decimal! so far size: ; size per value in bits length: ; number of values + minimum: + maximum: ] date-info: construct [ diff --git a/src/core/t-vector.c b/src/core/t-vector.c index f5b7181437..4bd2d0cb87 100644 --- a/src/core/t-vector.c +++ b/src/core/t-vector.c @@ -977,6 +977,8 @@ static void reverse_vector(REBVAL *value, REBCNT len) Query_Vector_Field(vect, SYM_TYPE, OFV(obj, STD_VECTOR_INFO_TYPE)); Query_Vector_Field(vect, SYM_SIZE, OFV(obj, STD_VECTOR_INFO_SIZE)); Query_Vector_Field(vect, SYM_LENGTH, OFV(obj, STD_VECTOR_INFO_LENGTH)); + Query_Vector_Field(vect, SYM_MINIMUM, OFV(obj, STD_VECTOR_INFO_MINIMUM)); + Query_Vector_Field(vect, SYM_MAXIMUM, OFV(obj, STD_VECTOR_INFO_MAXIMUM)); SET_OBJECT(value, obj); } break; diff --git a/src/tests/units/vector-test.r3 b/src/tests/units/vector-test.r3 index 89165cbf29..912035c5eb 100644 --- a/src/tests/units/vector-test.r3 +++ b/src/tests/units/vector-test.r3 @@ -167,8 +167,10 @@ Rebol [ --assert o/type = 'integer! --assert o/size = 16 --assert o/length = 2 + --assert o/minimum = 0 + --assert o/maximum = 0 --test-- "QUERY on vector" - --assert [signed type size length] = query v none + --assert [signed type size length minimum maximum] = query v none --assert [16 integer!] = query v [:size :type] --assert block? b: query v [signed length] --assert all [not b/signed b/length = 2]