diff --git a/.makefile b/.makefile index 4cd22795eb..41c57845d5 100644 --- a/.makefile +++ b/.makefile @@ -338,7 +338,7 @@ RACKET_FOR_BOOTFILES = $(RACKET) RACKET_FOR_BUILD = $(RACKET) # This branch name changes each time the pb boot files are updated: -PB_BRANCH == circa-7.9.0.3-2 +PB_BRANCH == circa-7.9.0.4-1 PB_REPO = https://github.com/racket/pb # Alternative source for Chez Scheme boot files, normally set by diff --git a/Makefile b/Makefile index 48a86f81c8..be0f279a2b 100644 --- a/Makefile +++ b/Makefile @@ -47,7 +47,7 @@ RACKETCS_SUFFIX = RACKET = RACKET_FOR_BOOTFILES = $(RACKET) RACKET_FOR_BUILD = $(RACKET) -PB_BRANCH = circa-7.9.0.3-2 +PB_BRANCH = circa-7.9.0.4-1 PB_REPO = https://github.com/racket/pb EXTRA_REPOS_BASE = CS_CROSS_SUFFIX = @@ -306,14 +306,14 @@ maybe-fetch-pb-as-is: echo done fetch-pb-from: mkdir -p racket/src/ChezScheme/boot - if [ ! -d racket/src/ChezScheme/boot/pb ] ; then git clone -q -b circa-7.9.0.3-2 $(PB_REPO) racket/src/ChezScheme/boot/pb ; else cd racket/src/ChezScheme/boot/pb && git fetch -q origin circa-7.9.0.3-2:remotes/origin/circa-7.9.0.3-2 ; fi - cd racket/src/ChezScheme/boot/pb && git checkout -q circa-7.9.0.3-2 + if [ ! -d racket/src/ChezScheme/boot/pb ] ; then git clone -q -b circa-7.9.0.4-1 $(PB_REPO) racket/src/ChezScheme/boot/pb ; else cd racket/src/ChezScheme/boot/pb && git fetch -q origin circa-7.9.0.4-1:remotes/origin/circa-7.9.0.4-1 ; fi + cd racket/src/ChezScheme/boot/pb && git checkout -q circa-7.9.0.4-1 pb-stage: - cd racket/src/ChezScheme/boot/pb && git branch circa-7.9.0.3-2 - cd racket/src/ChezScheme/boot/pb && git checkout circa-7.9.0.3-2 + cd racket/src/ChezScheme/boot/pb && git branch circa-7.9.0.4-1 + cd racket/src/ChezScheme/boot/pb && git checkout circa-7.9.0.4-1 cd racket/src/ChezScheme/boot/pb && git add . && git commit --amend -m "new build" pb-push: - cd racket/src/ChezScheme/boot/pb && git push -u origin circa-7.9.0.3-2 + cd racket/src/ChezScheme/boot/pb && git push -u origin circa-7.9.0.4-1 win-cs-base: IF "$(RACKET_FOR_BUILD)" == "" $(MAKE) win-bc-then-cs-base SETUP_BOOT_MODE=--boot WIN32_BUILD_LEVEL=bc PLAIN_RACKET=racket\racketbc DISABLE_STATIC_LIBS="$(DISABLE_STATIC_LIBS)" EXTRA_REPOS_BASE="$(EXTRA_REPOS_BASE)" JOB_OPTIONS="$(JOB_OPTIONS)" PLT_SETUP_OPTIONS="$(PLT_SETUP_OPTIONS)" RACKETBC_SUFFIX="$(RACKETBC_SUFFIX)" RACKETCS_SUFFIX="$(RACKETCS_SUFFIX)" IF not "$(RACKET_FOR_BUILD)" == "" $(MAKE) win-just-cs-base SETUP_BOOT_MODE=--chain DISABLE_STATIC_LIBS="$(DISABLE_STATIC_LIBS)" EXTRA_REPOS_BASE="$(EXTRA_REPOS_BASE)" JOB_OPTIONS="$(JOB_OPTIONS)" PLT_SETUP_OPTIONS="$(PLT_SETUP_OPTIONS)" RACKETCS_SUFFIX="$(RACKETCS_SUFFIX)" RACKET_FOR_BUILD="$(RACKET_FOR_BUILD)" diff --git a/pkgs/base/info.rkt b/pkgs/base/info.rkt index f8f439d018..6d03efa899 100644 --- a/pkgs/base/info.rkt +++ b/pkgs/base/info.rkt @@ -12,7 +12,7 @@ (define collection 'multi) -(define version "7.9.0.3") +(define version "7.9.0.4") (define deps `("racket-lib" ["racket" #:version ,version])) diff --git a/pkgs/racket-test-core/tests/racket/basic.rktl b/pkgs/racket-test-core/tests/racket/basic.rktl index b72371e41b..2ec6244990 100644 --- a/pkgs/racket-test-core/tests/racket/basic.rktl +++ b/pkgs/racket-test-core/tests/racket/basic.rktl @@ -4,6 +4,7 @@ (Section 'basic) (require racket/flonum + racket/fixnum racket/function racket/list racket/symbol @@ -2386,6 +2387,7 @@ [a (make-a 1 (make-a 2 3))] [b (box (list 1 2 3))] [fl (flvector 1.0 +nan.0 0.0)] + [fx (fxvector 1 -2 0)] [cyclic-list (read (open-input-string "#2=(#1=(#2#) #2#)"))]) (test 0 hash-count h1) @@ -2400,7 +2402,8 @@ (hash-set! h1 (save 3/45) 'rational) (hash-set! h1 (save 3+45i) 'complex) (hash-set! h1 (save (integer->char 955)) 'char) - (hash-set! h1 (save fl) 'flvector))] + (hash-set! h1 (save fl) 'flvector) + (hash-set! h1 (save fx) 'fxvector))] [puts2 (lambda () (hash-set! h1 (save (list 5 7)) 'another-list) (hash-set! h1 (save 3+0.0i) 'izi-complex) @@ -2416,7 +2419,7 @@ (puts1)) (begin (puts1) - (test 8 hash-count h1) + (test 9 hash-count h1) (puts2)))) (when reorder? @@ -2428,7 +2431,7 @@ (loop (add1 i)) (hash-remove! h1 i)))) - (test 15 hash-count h1) + (test 16 hash-count h1) (test 'list hash-ref h1 l) (test 'list hash-ref h1 (list 1 2 3)) (test 'another-list hash-ref h1 (list 5 7)) @@ -2448,6 +2451,7 @@ (test 'box hash-ref h1 #&(1 2 3)) (test 'char hash-ref h1 (integer->char 955)) (test 'flvector hash-ref h1 (flvector 1.0 +nan.0 0.0)) + (test 'fxvector hash-ref h1 (fxvector 1 -2 0)) (test 'cyclic-list hash-ref h1 cyclic-list) (test #t andmap @@ -2468,14 +2472,15 @@ (#\u3BB . char) (#&(1 2 3) . box) (,(flvector 1.0 +nan.0 0.0) . flvector) + (,(fxvector 1 -2 0) . fxvector) (,cyclic-list . cyclic-list))) (hash-remove! h1 (list 1 2 3)) - (test 14 hash-count h1) + (test 15 hash-count h1) (test 'not-there hash-ref h1 l (lambda () 'not-there)) (let ([c 0]) (hash-for-each h1 (lambda (k v) (set! c (add1 c)))) - (test 14 'count c)) + (test 15 'count c)) ;; return the hash table: h1)) diff --git a/racket/src/ChezScheme/c/alloc.c b/racket/src/ChezScheme/c/alloc.c index 9df9226641..f068c02331 100644 --- a/racket/src/ChezScheme/c/alloc.c +++ b/racket/src/ChezScheme/c/alloc.c @@ -60,6 +60,10 @@ void S_alloc_init() { find_room(tc, space_new, 0, type_typed_object, size_fxvector(0), S_G.null_fxvector); FXVECTOR_TYPE(S_G.null_fxvector) = (0 << fxvector_length_offset) | type_fxvector; + S_protect(&S_G.null_flvector); + find_room(tc, space_new, 0, type_typed_object, size_flvector(0), S_G.null_flvector); + FXVECTOR_TYPE(S_G.null_flvector) = (0 << flvector_length_offset) | type_flvector; + S_protect(&S_G.null_bytevector); find_room(tc, space_new, 0, type_typed_object, size_bytevector(0), S_G.null_bytevector); BYTEVECTOR_TYPE(S_G.null_bytevector) = (0 << bytevector_length_offset) | type_bytevector; @@ -72,10 +76,6 @@ void S_alloc_init() { find_room(tc, space_new, 0, type_typed_object, size_vector(0), S_G.null_immutable_vector); VECTTYPE(S_G.null_immutable_vector) = (0 << vector_length_offset) | type_vector | vector_immutable_flag; - S_protect(&S_G.null_immutable_fxvector); - find_room(tc, space_new, 0, type_typed_object, size_fxvector(0), S_G.null_immutable_fxvector); - FXVECTOR_TYPE(S_G.null_immutable_fxvector) = (0 << fxvector_length_offset) | type_fxvector | fxvector_immutable_flag; - S_protect(&S_G.null_immutable_bytevector); find_room(tc, space_new, 0, type_typed_object, size_bytevector(0), S_G.null_immutable_bytevector); BYTEVECTOR_TYPE(S_G.null_immutable_bytevector) = (0 << bytevector_length_offset) | type_bytevector | bytevector_immutable_flag; @@ -695,6 +695,23 @@ ptr S_fxvector(n) iptr n; { return p; } +ptr S_flvector(n) iptr n; { + ptr tc; + ptr p; iptr d; + + if (n == 0) return S_G.null_flvector; + + if ((uptr)n > (uptr)maximum_flvector_length) + S_error("", "invalid flvector size request"); + + tc = get_thread_context(); + + d = size_flvector(n); + newspace_find_room(tc, type_typed_object, d, p); + FLVECTOR_TYPE(p) = (n << flvector_length_offset) | type_flvector; + return p; +} + ptr S_bytevector(n) iptr n; { return S_bytevector2(get_thread_context(), n, 0); } @@ -724,14 +741,6 @@ ptr S_null_immutable_vector() { return v; } -ptr S_null_immutable_fxvector() { - ptr tc = get_thread_context(); - ptr v; - find_room(tc, space_new, 0, type_typed_object, size_fxvector(0), v); - VECTTYPE(v) = (0 << fxvector_length_offset) | type_fxvector | fxvector_immutable_flag; - return v; -} - ptr S_null_immutable_bytevector() { ptr tc = get_thread_context(); ptr v; diff --git a/racket/src/ChezScheme/c/externs.h b/racket/src/ChezScheme/c/externs.h index 5d52cc11d4..ba35a6c398 100644 --- a/racket/src/ChezScheme/c/externs.h +++ b/racket/src/ChezScheme/c/externs.h @@ -86,6 +86,7 @@ extern ptr S_tlc PROTO((ptr keyval, ptr tconc, ptr next)); extern ptr S_vector_in PROTO((ptr tc, ISPC s, IGEN g, iptr n)); extern ptr S_vector PROTO((iptr n)); extern ptr S_fxvector PROTO((iptr n)); +extern ptr S_flvector PROTO((iptr n)); extern ptr S_bytevector PROTO((iptr n)); extern ptr S_bytevector2 PROTO((ptr tc, iptr n, IBOOL immobile)); extern ptr S_null_immutable_vector PROTO((void)); diff --git a/racket/src/ChezScheme/c/fasl.c b/racket/src/ChezScheme/c/fasl.c index 319a2cef55..d55df9d128 100644 --- a/racket/src/ChezScheme/c/fasl.c +++ b/racket/src/ChezScheme/c/fasl.c @@ -48,6 +48,8 @@ * * -> {fxvector}... * + * -> {flvector}... + * * -> {bytevector}... * * -> {immediate} @@ -748,14 +750,13 @@ static void faslin(ptr tc, ptr *x, ptr t, ptr *pstrbuf, faslFile f) { while (n--) faslin(tc, p++, t, pstrbuf, f); if (ty == fasl_type_immutable_vector) { if (Svector_length(*x) == 0) - *x = NULLIMMUTABLEVECTOR(tc); + *x = S_G.null_immutable_vector; else VECTTYPE(*x) |= vector_immutable_flag; } return; } - case fasl_type_fxvector: - case fasl_type_immutable_fxvector: { + case fasl_type_fxvector: { iptr n; ptr *p; n = uptrin(f); *x = S_fxvector(n); @@ -765,11 +766,19 @@ static void faslin(ptr tc, ptr *x, ptr t, ptr *pstrbuf, faslFile f) { if (!FIXRANGE(t)) toolarge(f->uf->path); *p++ = FIX(t); } - if (ty == fasl_type_immutable_fxvector) { - if (Sfxvector_length(*x) == 0) - *x = NULLIMMUTABLEFXVECTOR(tc); - else - FXVECTOR_TYPE(*x) |= fxvector_immutable_flag; + return; + } + case fasl_type_flvector: { + iptr n; double *p; + n = uptrin(f); + *x = S_flvector(n); + p = &FLVECTIT(*x, 0); + while (n--) { + ptr fl; + faslin(tc, &fl, t, pstrbuf, f); + if (!Sflonump(fl)) + S_error1("", "not a flonum in flvector ~a", f->uf->path); + *p++ = Sflonum_value(fl); } return; } @@ -781,7 +790,7 @@ static void faslin(ptr tc, ptr *x, ptr t, ptr *pstrbuf, faslFile f) { bytesin(&BVIT(*x,0), n, f); if (ty == fasl_type_immutable_bytevector) { if (Sbytevector_length(*x) == 0) - *x = NULLIMMUTABLEBYTEVECTOR(tc); + *x = S_G.null_immutable_bytevector; else BYTEVECTOR_TYPE(*x) |= bytevector_immutable_flag; } @@ -979,7 +988,7 @@ static void faslin(ptr tc, ptr *x, ptr t, ptr *pstrbuf, faslFile f) { for (i = 0; i != n; i += 1) Sstring_set(str, i, uptrin(f)); if (ty == fasl_type_immutable_string) { if (n == 0) - str = NULLIMMUTABLESTRING(tc); + str = S_G.null_immutable_string; else STRTYPE(str) |= string_immutable_flag; } diff --git a/racket/src/ChezScheme/c/gcwrapper.c b/racket/src/ChezScheme/c/gcwrapper.c index 767ff8d8da..68b280d0e8 100644 --- a/racket/src/ChezScheme/c/gcwrapper.c +++ b/racket/src/ChezScheme/c/gcwrapper.c @@ -122,6 +122,8 @@ void S_gc_init() { S_G.countof_size[countof_string] = 0; INITVECTIT(S_G.countof_names, countof_fxvector) = S_intern((const unsigned char *)"fxvector"); S_G.countof_size[countof_fxvector] = 0; + INITVECTIT(S_G.countof_names, countof_flvector) = S_intern((const unsigned char *)"flvector"); + S_G.countof_size[countof_flvector] = 0; INITVECTIT(S_G.countof_names, countof_bytevector) = S_intern((const unsigned char *)"bytevector"); S_G.countof_size[countof_bytevector] = 0; INITVECTIT(S_G.countof_names, countof_locked) = S_intern((const unsigned char *)"locked"); diff --git a/racket/src/ChezScheme/c/globals.h b/racket/src/ChezScheme/c/globals.h index ed5e52977b..a2cd9b4ccf 100644 --- a/racket/src/ChezScheme/c/globals.h +++ b/racket/src/ChezScheme/c/globals.h @@ -113,10 +113,10 @@ EXTERN struct S_G_struct { ptr null_string; ptr null_vector; ptr null_fxvector; + ptr null_flvector; ptr null_bytevector; ptr null_immutable_string; ptr null_immutable_vector; - ptr null_immutable_fxvector; ptr null_immutable_bytevector; ptr zero_length_bignum; seginfo *dirty_segments[DIRTY_SEGMENT_LISTS]; diff --git a/racket/src/ChezScheme/c/prim.c b/racket/src/ChezScheme/c/prim.c index 6c612a9e98..cb66da5efe 100644 --- a/racket/src/ChezScheme/c/prim.c +++ b/racket/src/ChezScheme/c/prim.c @@ -151,6 +151,9 @@ static void create_c_entry_vector() { S_install_c_entry(CENTRY_Scall_any_results, proc2ptr(S_call_any_results)); S_install_c_entry(CENTRY_segment_info, proc2ptr(S_segment_info)); S_install_c_entry(CENTRY_bignum_mask_test, proc2ptr(S_bignum_mask_test)); + S_install_c_entry(CENTRY_null_immutable_vector, TO_PTR(S_G.null_immutable_vector)); + S_install_c_entry(CENTRY_null_immutable_bytevector, TO_PTR(S_G.null_immutable_bytevector)); + S_install_c_entry(CENTRY_null_immutable_string, TO_PTR(S_G.null_immutable_string)); } void S_check_c_entry_vector() { diff --git a/racket/src/ChezScheme/c/scheme.c b/racket/src/ChezScheme/c/scheme.c index c7514eb06b..22579cb083 100644 --- a/racket/src/ChezScheme/c/scheme.c +++ b/racket/src/ChezScheme/c/scheme.c @@ -104,11 +104,6 @@ static void main_init() { i & 0x10 ? 4 : i & 0x20 ? 5 : i & 0x40 ? 6 : i & 0x80 ? 7 : 0); } - NULLIMMUTABLEVECTOR(tc) = S_G.null_immutable_vector; - NULLIMMUTABLEFXVECTOR(tc) = S_G.null_immutable_fxvector; - NULLIMMUTABLEBYTEVECTOR(tc) = S_G.null_immutable_bytevector; - NULLIMMUTABLESTRING(tc) = S_G.null_immutable_string; - PARAMETERS(tc) = S_G.null_vector; for (i = 0 ; i < virtual_register_count ; i += 1) { VIRTREG(tc, i) = FIX(0); diff --git a/racket/src/ChezScheme/c/types.h b/racket/src/ChezScheme/c/types.h index 1b96699c14..1b07c93579 100644 --- a/racket/src/ChezScheme/c/types.h +++ b/racket/src/ChezScheme/c/types.h @@ -268,6 +268,7 @@ typedef struct _bucket_pointer_list { #define size_closure(n) ptr_align(header_size_closure + (n)*ptr_bytes) #define size_string(n) ptr_align(header_size_string + (n)*string_char_bytes) #define size_fxvector(n) ptr_align(header_size_fxvector + (n)*ptr_bytes) +#define size_flvector(n) ptr_align(header_size_fxvector + (n)*sizeof(double)) #define size_bytevector(n) ptr_align(header_size_bytevector + (n)) #define size_bignum(n) ptr_align(header_size_bignum + (n)*bigit_bytes) #define size_code(n) ptr_align(header_size_code + (n)) diff --git a/racket/src/ChezScheme/c/vfasl.c b/racket/src/ChezScheme/c/vfasl.c index 1ccc52400b..4b0003cd39 100644 --- a/racket/src/ChezScheme/c/vfasl.c +++ b/racket/src/ChezScheme/c/vfasl.c @@ -1319,10 +1319,10 @@ static void vfasl_check_install_library_entry(vfasl_info *vfi, ptr name) static ptr *singleton_refs[] = { &S_G.null_string, &S_G.null_vector, &S_G.null_fxvector, + &S_G.null_flvector, &S_G.null_bytevector, &S_G.null_immutable_string, &S_G.null_immutable_vector, - &S_G.null_immutable_fxvector, &S_G.null_immutable_bytevector, &S_G.eqp, &S_G.eqvp, diff --git a/racket/src/ChezScheme/csug/objects.stex b/racket/src/ChezScheme/csug/objects.stex index 0e007b5c98..e96b3f3789 100644 --- a/racket/src/ChezScheme/csug/objects.stex +++ b/racket/src/ChezScheme/csug/objects.stex @@ -759,12 +759,6 @@ The storage management system also takes advantage of the fact that fxvectors contain no pointers to place them in an area of memory that does not have to be traced during collection. -\index{immutable fxvectors}\index{mutable fxvectors}% -All fxvectors are mutable by default, including constants. -A program can create immutable fxvectors via -\index{\scheme{fxvector->immutable-fxvector}}\scheme{fxvector->immutable-fxvector}. -Any attempt to modify an immutable fxvector causes an exception to be raised. - See also \scheme{vector-set-fixnum!} above. %---------------------------------------------------------------------------- @@ -857,7 +851,6 @@ the length of \var{fxvector}. \endentryheader \noindent -\var{fxvector} must be mutable. \var{n} must be a nonnegative fixnum strictly less than the length of \var{fxvector}. \scheme{fxvector-set!} changes the \var{n}th element of \var{fxvector} to \var{fixnum}. @@ -877,7 +870,6 @@ the length of \var{fxvector}. \endentryheader \noindent -\var{fxvector} must be mutable. \scheme{fxvector-fill!} replaces each element of \var{fxvector} with \var{fixnum}. \schemedisplay @@ -940,40 +932,203 @@ as \var{fxvector}. (eq? v (fxvector-copy v))) ;=> #f \endschemedisplay + + +\section{Flonum-Only Vectors\label{SECTFLVECTORS}} + +\index{flvectors}% +Flonum-only vectors, or ``flvectors,'' are like vectors but contain +only flonums. +Flvectors are written with the \scheme{#vfl} prefix in place of the +\scheme{#} prefix for vectors, e.g., \scheme{#vfl(1.0 2.0 3.0)} or +\scheme{#10vfl(2.0)}. +The flvector syntax is disabled in an input stream after \scheme{#!r6rs} +has been seen by the reader, unless \scheme{#!chezscheme} has been seen +more recently. + +The length and indices of an flvector are always fixnums. + +Updating an flvector is generally less expensive than updating a vector, +since for vectors, the system records potential assignments from older to +younger objects to support generational garbage collection. +An flvector stores a flonum's representation directly, instead of a reference to a +flonum, so flonum identity is fresh when it is extracted from an flvector. +The storage management system also takes advantage of the fact that +flvectors contain no pointers to place them in an area of memory that +does not have to be traced during collection. + %---------------------------------------------------------------------------- \entryheader -\formdef{mutable-fxvector?}{\categoryprocedure}{(mutable-fxvector? \var{obj})} -\returns \scheme{#t} if \var{obj} is a mutable fxvector, \scheme{#f} otherwise -\formdef{immutable-fxvector?}{\categoryprocedure}{(immutable-fxvector? \var{obj})} -\returns \scheme{#t} if \var{obj} is an immutable fxvector, \scheme{#f} otherwise +\formdef{flvector?}{\categoryprocedure}{(flvector? \var{obj})} +\returns \scheme{#t} if \var{obj} is an flvector, \scheme{#f} otherwise \listlibraries \endentryheader \noskip\schemedisplay -(mutable-fxvector? (fxvector 1 2 3)) ;=> #t -(mutable-fxvector? (fxvector->immutable-fxvector (fxvector 1 2 3))) ;=> #f -(immutable-fxvector? (fxvector 1 2 3)) ;=> #f -(immutable-fxvector? (fxvector->immutable-fxvector (fxvector 1 2 3))) ;=> #t -(immutable-fxvector? (cons 3 4)) ;=> #f +(flvector? #vfl()) ;=> #t +(flvector? #vfl(1.0 2.0 3.0)) ;=> #t +(flvector? (flvector 1.0 2.0 3.0)) ;=> #t +(flvector? '#(a b c)) ;=> #f +(flvector? '(a b c)) ;=> #f +(flvector? "abc") ;=> #f \endschemedisplay %---------------------------------------------------------------------------- \entryheader -\formdef{fxvector->immutable-fxvector}{\categoryprocedure}{(fxvector->immutable-fxvector \var{fxvector})} -\returns either an immutable copy of \var{fxvector} or \var{fxvector} itself +\formdef{flvector}{\categoryprocedure}{(flvector \var{flonum} \dots)} +\returns an flvector of the fixnums \scheme{\var{flonum} \dots} +\listlibraries +\endentryheader + +\noskip\schemedisplay +(flvector) ;=> #vfl() +(flvector 1.0 3.0 5.0) ;=> #vfl(1.0 3.0 5.0) +\endschemedisplay + + +%---------------------------------------------------------------------------- +\entryheader +\formdef{make-flvector}{\categoryprocedure}{(make-flvector \var{n})} +\formdef{make-flvector}{\categoryprocedure}{(make-flvector \var{n} \var{flonum})} +\returns an flvector of length \var{n} \listlibraries \endentryheader \noindent -\index{immutable fxvectors}\index{mutable fxvectors}% -The result is \var{fxvector} itself if \var{fxvector} -is immutable; otherwise, the result is an immutable fxvector with the same content as \var{fxvector}. +\var{n} must be a fixnum. +If \var{flonum} is supplied, each element of the flvector is initialized +to \var{flonum}; otherwise, the elements are unspecified. \schemedisplay -(define v (fxvector->immutable-fxvector (fxvector 1 2 3))) -(fxvector-set! v 0 0) ;=> \var{exception: not mutable} +(make-flvector 0) ;=> #vfl() +(make-flvector 0 7.0) ;=> #vfl() +(make-flvector 5 7.0) ;=> #vfl(7.0 7.0 7.0 7.0 7.0) \endschemedisplay +%---------------------------------------------------------------------------- +\entryheader +\formdef{flvector-length}{\categoryprocedure}{(flvector-length \var{flvector})} +\returns the number of elements in \var{flvector} +\listlibraries +\endentryheader + +\schemedisplay +(flvector-length #vfl()) ;=> 0 +(flvector-length #vfl(1.0 2.0 3.0)) ;=> 3 +(flvector-length #10vfl(1.0 2.0 3.0)) ;=> 10 +(flvector-length (flvector 1.0 2.0 3.0 4.0)) ;=> 4 +(flvector-length (make-flvector 300)) ;=> 300 +\endschemedisplay + + +%---------------------------------------------------------------------------- +\entryheader +\formdef{flvector-ref}{\categoryprocedure}{(flvector-ref \var{flvector} \var{n})} +\returns the \var{n}th element (zero-based) of \var{flvector} +\listlibraries +\endentryheader + +\noindent +\var{n} must be a nonnegative fixnum strictly less than +the length of \var{flvector}. + +\schemedisplay +(flvector-ref #vfl(-1.0 2.0 4.0 7.0) 0) ;=> -1.0 +(flvector-ref #vfl(-1.0 2.0 4.0 7.0) 1) ;=> 2.0 +(flvector-ref #vfl(-1.0 2.0 4.0 7.0) 3) ;=> 7.0 +\endschemedisplay + + +%---------------------------------------------------------------------------- +\entryheader +\formdef{flvector-set!}{\categoryprocedure}{(flvector-set! \var{flvector} \var{n} \var{flonum})} +\returns unspecified +\listlibraries +\endentryheader + +\noindent +\var{n} must be a nonnegative fixnum strictly less than +the length of \var{flvector}. +\scheme{flvector-set!} changes the \var{n}th element of \var{flvector} to \var{flonum}. + +\schemedisplay +(let ([v (flvector 1.0 2.0 3.0 4.0 5.0)]) + (flvector-set! v 2 (fx- (flvector-ref v 2))) + v) ;=> #vfl(1.0 2.0 -3.0 4.0 5.0) +\endschemedisplay + + +%---------------------------------------------------------------------------- +\entryheader +\formdef{flvector-fill!}{\categoryprocedure}{(flvector-fill! \var{flvector} \var{flonum})} +\returns unspecified +\listlibraries +\endentryheader + +\noindent +\scheme{flvector-fill!} replaces each element of \var{flvector} with \var{flonum}. + +\schemedisplay +(let ([v (flvector 1.0 2.0 3.0)]) + (flvector-fill! v 0.0) + v) ;=> #vfl(0.0 0.0 0.0) +\endschemedisplay + + +%---------------------------------------------------------------------------- +\entryheader +\formdef{flvector->list}{\categoryprocedure}{(flvector->list \var{flvector})} +\returns a list of the elements of \var{flvector} +\listlibraries +\endentryheader + +\schemedisplay +(flvector->list (flvector)) ;=> () +(flvector->list #vfl(7.0 5.0 2.0)) ;=> (7.0 5.0 2.0) + +(let ([v #vfl(1.0 2.0 3.0 4.0 5.0)]) + (apply fl* (flvector->list v))) ;=> 120.0 +\endschemedisplay + + +%---------------------------------------------------------------------------- +\entryheader +\formdef{list->flvector}{\categoryprocedure}{(list->flvector \var{list})} +\returns an flvector of the elements of \var{list} +\listlibraries +\endentryheader + +\noindent +\var{list} must consist entirely of flonums. + +\schemedisplay +(list->flvector '()) ;=> #vfl() +(list->flvector '(3.0 5.0 7.0)) ;=> #vfl(3.0 5.0 7.0) + +(let ([v #vfl(1.0 2.0 3.0 4.0 5.0)]) + (let ([ls (flvector->list v)]) + (list->flvector (map fx* ls ls)))) ;=> #vfl(1.0 4.0 9.0 16.0 25.0) +\endschemedisplay + +%---------------------------------------------------------------------------- +\entryheader +\formdef{flvector-copy}{\categoryprocedure}{(flvector-copy \var{flvector})} +\returns a copy of \var{flvector} +\listlibraries +\endnoskipentryheader + +\noindent +\scheme{flvector-copy} creates a new flvector with the same length and contents +as \var{flvector}. + +\schemedisplay +(flvector-copy #vfl(3.0 4.0 5.0)) ;=> #vfl(3.0 4.0 5.0) + +(let ([v #vfl(3.0 4.0 5.0)]) + (eq? v (flvector-copy v))) ;=> #f +\endschemedisplay + + \section{Bytevectors\label{SECTBYTEVECTORS}} diff --git a/racket/src/ChezScheme/makefiles/Mf-install.in b/racket/src/ChezScheme/makefiles/Mf-install.in index 2b0a799cfe..0728a6405d 100644 --- a/racket/src/ChezScheme/makefiles/Mf-install.in +++ b/racket/src/ChezScheme/makefiles/Mf-install.in @@ -62,7 +62,7 @@ InstallLZ4Target= # no changes should be needed below this point # ############################################################################### -Version=csv9.5.3.41 +Version=csv9.5.3.42 Include=boot/$m PetiteBoot=boot/$m/petite.boot SchemeBoot=boot/$m/scheme.boot diff --git a/racket/src/ChezScheme/mats/5_1.ms b/racket/src/ChezScheme/mats/5_1.ms index 064b0c3887..c5718fec63 100644 --- a/racket/src/ChezScheme/mats/5_1.ms +++ b/racket/src/ChezScheme/mats/5_1.ms @@ -814,11 +814,23 @@ (fxvector? (fxvector 1 2 3 4)) (not (fxvector? '(1 2 3))) (not (fxvector? '#(1 2 3))) + (not (fxvector? '#vfl(1.0 2.0 3.0))) (not (fxvector? '#vu8(1 2 3))) (not (fxvector? "hi there")) (not (fxvector? 234234)) ) +(mat flvector? + (flvector? #vfl(1.0 2.0 3.0)) + (flvector? (flvector 1.0 2.0 3.0 4.0)) + (not (flvector? '(1 2 3))) + (not (flvector? '#(1.0 2.0 3.0))) + (not (flvector? '#vfx(1 2 3))) + (not (flvector? '#vu8(1 2 3))) + (not (flvector? "hi there")) + (not (flvector? 234234)) + ) + (mat bytevector? (bytevector? '#vu8(1 2 3)) (bytevector? (bytevector 1 2 3 4)) diff --git a/racket/src/ChezScheme/mats/5_6.ms b/racket/src/ChezScheme/mats/5_6.ms index 0e46f14fd6..bd4afe218b 100644 --- a/racket/src/ChezScheme/mats/5_6.ms +++ b/racket/src/ChezScheme/mats/5_6.ms @@ -207,31 +207,21 @@ ) (mat $fxvector-ref-check? - (let ([fv (make-fxvector 3)] [imm-fv (fxvector->immutable-fxvector (make-fxvector 3))] [not-fv (make-vector 3)]) + (let ([fv (make-fxvector 3)] [not-fv (make-vector 3)]) (let ([i-1 -1] [i0 0] [i1 1] [i2 2] [i3 3] [ifalse #f] [ibig (+ (most-positive-fixnum) 1)]) (and (not (#%$fxvector-ref-check? not-fv i0)) (not (#%$fxvector-ref-check? fv ifalse)) (not (#%$fxvector-ref-check? fv i-1)) - (not (#%$fxvector-ref-check? imm-fv i-1)) (#%$fxvector-ref-check? fv 0) (#%$fxvector-ref-check? fv 1) (#%$fxvector-ref-check? fv 2) - (#%$fxvector-ref-check? imm-fv 0) - (#%$fxvector-ref-check? imm-fv 1) - (#%$fxvector-ref-check? imm-fv 2) (#%$fxvector-ref-check? fv i0) (#%$fxvector-ref-check? fv i1) (#%$fxvector-ref-check? fv i2) - (#%$fxvector-ref-check? imm-fv i0) - (#%$fxvector-ref-check? imm-fv i1) - (#%$fxvector-ref-check? imm-fv i2) (not (#%$fxvector-ref-check? fv 3)) (not (#%$fxvector-ref-check? fv i3)) - (not (#%$fxvector-ref-check? fv ibig)) - (not (#%$fxvector-ref-check? imm-fv 3)) - (not (#%$fxvector-ref-check? imm-fv i3)) - (not (#%$fxvector-ref-check? imm-fv ibig))))) + (not (#%$fxvector-ref-check? fv ibig))))) ) (mat fxvector-ref @@ -326,6 +316,161 @@ (error? (fxvector->list '(a b c))) ) +(mat flvector + (equal? (flvector 1.0 2.0 3.0 4.0) '#vfl(1.0 2.0 3.0 4.0)) + (eq? (flvector) '#vfl()) + (flvector? (flvector 1.0)) + (flvector? (flvector -1.0)) + (error? (flvector 1)) + (error? (flvector 'a)) + (error? (flvector 1.0 2.0 'a 4.0)) + ) + +(mat make-flvector + (eqv? (flvector-length (make-flvector 10)) 10) + (eqv? (flvector-length (make-flvector 100)) 100) + (eqv? (flvector-length (make-flvector (+ 100 17))) 117) + (eq? (make-flvector 0) '#vfl()) + (let ([x (make-flvector 10)]) + (and (= (flvector-length x) 10) + (andmap flonum? (flvector->list x)))) + (error? (make-flvector 3 'a)) + (error? (make-flvector 10 1)) + (error? (make-flvector 10 'a)) + (equal? (make-flvector 10 7.0) (flvector 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0)) + (equal? (make-flvector (- 4 2) (+ 1.0 1.0)) (flvector 2.0 2.0)) + (eqv? (make-flvector (- 4 4) (+ 1.0 1.0)) (flvector)) + ) + +(mat flvector-syntax + (eq? '#vfl() '#vfl()) + (eq? '#0vfl() #vfl()) + (equal? + '(#vfl(1.0 2.0 3.0) #3vfl(1.0 2.0 3.0) #6vfl(1.0 2.0 3.0)) + (list (flvector 1.0 2.0 3.0) (flvector 1.0 2.0 3.0) (flvector 1.0 2.0 3.0 3.0 3.0 3.0))) + (let ([x #10vfl()]) + (and (= (flvector-length x) 10) + (andmap flonum? (flvector->list x)))) + ; the following is invalid because the reader doesn't allow graph marks + ; and references within an flvector + ; (equal? '(#0=#vfl(#1=33 #2# #1# #2=44 #3#) #2# #3=55) + ; '(#vfl(33 44 33 44 55) 44 55)) +) + +(mat flvector-length + (eqv? (flvector-length '#vfl(3.0 4.0 5.0)) 3) + (eqv? (flvector-length '#100vfl(5.0 4.0 3.0)) 100) + (eqv? (flvector-length '#vfl()) 0) + (error? (flvector-length '(a b c))) + ) + +(mat $flvector-ref-check? + (let ([fv (make-flvector 3)] [not-fv (make-vector 3)]) + (let ([i-1 -1] [i0 0] [i1 1] [i2 2] [i3 3] [ifalse #f] [ibig (+ (most-positive-fixnum) 1)]) + (and + (not (#%$flvector-ref-check? not-fv i0)) + (not (#%$flvector-ref-check? fv ifalse)) + (not (#%$flvector-ref-check? fv i-1)) + (#%$flvector-ref-check? fv 0) + (#%$flvector-ref-check? fv 1) + (#%$flvector-ref-check? fv 2) + (#%$flvector-ref-check? fv i0) + (#%$flvector-ref-check? fv i1) + (#%$flvector-ref-check? fv i2) + (not (#%$flvector-ref-check? fv 3)) + (not (#%$flvector-ref-check? fv i3)) + (not (#%$flvector-ref-check? fv ibig))))) + ) + +(mat flvector-ref + (eqv? (flvector-ref '#vfl(3.0 4.0 5.0) 0) '3.0) + (eqv? (flvector-ref '#vfl(3.0 4.0 5.0) 1) '4.0) + (eqv? (flvector-ref '#vfl(3.0 4.0 5.0) 2) '5.0) + (error? (flvector-ref '#vfl(3.0 4.0 5.0) 3)) + (error? (flvector-ref '#vfl(3.0 4.0 5.0) -1)) + (error? (flvector-ref '#vfl(3.0 4.0 5.0) 'a)) + (error? (flvector-ref '#(3.0 4.0 5.0) 2)) + (error? (flvector-ref '(3.0 4.0 5.0) 2)) + ) + +(mat flvector-set! + (let ((v (flvector '3.0 '4.0 '5.0))) + (and + (begin (flvector-set! v 0 '33.0) (equal? v '#vfl(33.0 4.0 5.0))) + (begin (flvector-set! v 1 '44.0) (equal? v '#vfl(33.0 44.0 5.0))) + (begin (flvector-set! v 2 '55.0) (equal? v '#vfl(33.0 44.0 55.0))))) + (error? (flvector-set! (flvector '3.0 '4.0 '5.0) 3 'd)) + (error? (flvector-set! (flvector '3.0 '4.0 '5.0) -1 'd)) + (error? (flvector-set! (flvector '3.0 '4.0 '5.0) 'a 'd)) + (error? (flvector-set! (flvector '3.0 '4.0 '5.0) 2 'd)) + (error? (flvector-set! (list '3.0 '4.0 '5.0) 2 'd)) + (error? (flvector-set! (flvector 3.0 4.0 5.0) 1 1)) + (error? (flvector-set! (flvector 3.0 4.0 5.0) 0 'a)) + (begin + (define test-flvector-set! + (lambda (v i x) + (flvector-set! v i x))) + #t) + (equal? + (let ([v (flvector 3.0 4.0 5.0)]) + (test-flvector-set! v 0 -3.0) + (test-flvector-set! v 1 -4.0) + (test-flvector-set! v 2 17.0) + v) + #vfl(-3.0 -4.0 17.0)) + (error? (test-flvector-set! (list 3.0 4.0 5.0) 0 9.0)) + (error? (test-flvector-set! (vector 3.0 4.0) 0 9.0)) + (error? (test-flvector-set! (flvector 3.0 4.0 5.0) 3 9.0)) + (error? (test-flvector-set! (flvector 3.0 4.0 5.0) -3 9.0)) + (error? (test-flvector-set! (flvector 3.0 4.0 5.0) (+ (most-positive-fixnum) 1) 9.0)) + (error? (test-flvector-set! (flvector 3.0 4.0 5.0) (- (most-negative-fixnum) 1) 9.0)) + (error? (test-flvector-set! (flvector 3.0 4.0 5.0) 'a 9.0)) + (error? (test-flvector-set! (flvector 3.0 4.0 5.0) 2 1)) + (error? (test-flvector-set! (flvector 3.0 4.0 5.0) 2 'a)) + ) + +(mat flvector-copy + (equal? (flvector-copy '#vfl()) '#vfl()) + (equal? (flvector-copy '#vfl(3.0 4.0 5.0)) '#vfl(3.0 4.0 5.0)) + (let* ((x1 (flvector 1.0 2.0 3.0)) (x2 (flvector-copy x1))) + (and (equal? x2 x1) (not (eq? x2 x1)))) + (andmap + (lambda (n) + (let ([v (list->flvector (map (lambda (x) (random (inexact x))) (make-list n 1000)))]) + (equal? (flvector-copy v) v))) + (map random (make-list 500 2500))) + (error? (flvector-copy '(a b c))) + ) + +(mat flvector-fill! + (let ([v (flvector-copy '#5vfl(1.0 2.0 3.0 4.0 5.0))]) + (and (equal? v '#5vfl(1.0 2.0 3.0 4.0 5.0)) + (begin + (flvector-fill! v 9.0) + (equal? v '#5vfl(9.0))))) + (let ([v (flvector-copy '#5vfl(1.0 2.0 3.0 4.0 5.0))]) + (and (equal? v '#5vfl(1.0 2.0 3.0 4.0 5.0)) + (begin + (flvector-fill! v -17.0) + (equal? v '#5vfl(-17.0))))) + (error? (let ([v (flvector 1.0)]) (flvector-fill! v 'a))) + (error? (let ([v (vector 1.0)]) (flvector-fill! v 3.0))) + ) + +(mat list->flvector + (equal? (list->flvector '(1.0 2.0 3.0)) '#vfl(1.0 2.0 3.0)) + (equal? (list->flvector '()) '#vfl()) + (error? (list->flvector '#(a b c))) + (error? (list->flvector '(1.0 2.0 . 3.0))) + (error? (list->flvector (let ([ls (list 1.0 2.0 3.0)]) (set-cdr! (cddr ls) (cdr ls)) ls))) + ) + +(mat flvector->list + (equal? (flvector->list '#vfl(1.0 2.0 3.0)) '(1.0 2.0 3.0)) + (equal? (flvector->list '#vfl()) '()) + (error? (flvector->list '(a b c))) + ) + (mat vector-map (error? ; invalid number of arguments (vector-map)) @@ -1226,35 +1371,6 @@ (error? (vector-sort! < immutable-123-vector)) ) - - -(mat fxvector->immutable-fxvector - (begin - (define immutable-123-fxvector - (fxvector->immutable-fxvector (fxvector 1 2 3))) - #t) - - (immutable-fxvector? immutable-123-fxvector) - (not (mutable-fxvector? immutable-123-fxvector)) - - (equal? '#vfx(1 2 3) immutable-123-fxvector) - (eq? immutable-123-fxvector - (fxvector->immutable-fxvector immutable-123-fxvector)) - - (mutable-fxvector? (make-fxvector 5)) - (not (immutable-fxvector? (make-fxvector 5))) - - (immutable-fxvector? (fxvector->immutable-fxvector (fxvector))) - (not (mutable-fxvector? (fxvector->immutable-fxvector (fxvector)))) - (not (immutable-fxvector? (fxvector))) - (mutable-fxvector? (fxvector)) - - (not (immutable-fxvector? (fxvector-copy immutable-123-fxvector))) - - (error? (fxvector-set! immutable-123-fxvector 0 1)) - (error? (fxvector-fill! immutable-123-fxvector 0)) -) - (mat vector-cas! (begin (define vec1 (vector 1 2 3)) diff --git a/racket/src/ChezScheme/mats/6.ms b/racket/src/ChezScheme/mats/6.ms index af58d8dcff..3fcf385e99 100644 --- a/racket/src/ChezScheme/mats/6.ms +++ b/racket/src/ChezScheme/mats/6.ms @@ -782,6 +782,13 @@ (or (< i 0) (and (fx= (fxvector-ref x i) (fxvector-ref y i)) (f (1- i))))))] + [(flvector? x) + (and (flvector? y) + (= (flvector-length x) (flvector-length y)) + (let f ([i (- (flvector-length x) 1)]) + (or (< i 0) + (and (fl= (flvector-ref x i) (flvector-ref y i)) + (f (1- i))))))] [(bytevector? x) (and (bytevector? y) (bytevector=? x y))] diff --git a/racket/src/ChezScheme/mats/fl.ms b/racket/src/ChezScheme/mats/fl.ms index 17e63d9f90..8658aeeaba 100644 --- a/racket/src/ChezScheme/mats/fl.ms +++ b/racket/src/ChezScheme/mats/fl.ms @@ -1172,6 +1172,12 @@ (check-loop-allocation (lambda (v) (let ([v (fl+ v 1.0)]) (bytevector-ieee-double-native-set! bv 0 v) (fl* v 0.99))))) + (let ([flv (make-flvector 8 0.0)]) + (check-loop-allocation (lambda (v) (fl+ v (flvector-ref flv 0))))) + (let ([flv (make-flvector 8 0.0)]) + (check-loop-allocation (lambda (v) (let ([v (fl+ v 1.0)]) + (flvector-set! flv 0 v) + (fl* v 0.99))))) (or (not (enable-cp0)) (let () (define-record pseudo-random-generator diff --git a/racket/src/ChezScheme/mats/hash.ms b/racket/src/ChezScheme/mats/hash.ms index a61f7c7643..53fb0b435a 100644 --- a/racket/src/ChezScheme/mats/hash.ms +++ b/racket/src/ChezScheme/mats/hash.ms @@ -1663,6 +1663,7 @@ [(5) (open-output-string)] [(6) (fxvector 15 55)] [(7) (lambda () x)] + [(8) (flvector 15.0 55.0)] [else (box 'top)]))) (let ([ls1 (let f ([n 10000]) (if (fx= n 0) @@ -3038,6 +3039,7 @@ [(5) (open-output-string)] [(6) (fxvector 15 55)] [(7) (lambda () x)] + [(8) (flvector 15.0 55.0)] [else (box 'top)]))) (let ([ls1 (let f ([n 10000]) (if (fx= n 0) diff --git a/racket/src/ChezScheme/mats/misc.ms b/racket/src/ChezScheme/mats/misc.ms index 56849c8ac8..82b79e50c0 100644 --- a/racket/src/ChezScheme/mats/misc.ms +++ b/racket/src/ChezScheme/mats/misc.ms @@ -2011,10 +2011,9 @@ (vector 1 'two "three") (stencil-vector 30 'one 2.0 0+3i "four") (box 88) - "" '#() '#vu8() (make-fxvector 0) + "" '#() '#vu8() (make-fxvector 0) (make-flvector 0) (string->immutable-string "") (vector->immutable-vector '#()) - (bytevector->immutable-bytevector '#vu8()) - (fxvector->immutable-fxvector (make-fxvector 0)))) + (bytevector->immutable-bytevector '#vu8()))) (define (same-vfasl-content? v) (andmap (lambda (a b) (or (eqv? a b) @@ -4926,21 +4925,18 @@ (mat fasl-immutable (begin (define immutable-objs (list (vector->immutable-vector '#(1 2 3)) - (fxvector->immutable-fxvector '#vfx(1 2 3)) (string->immutable-string "abc") (bytevector->immutable-bytevector #vu8(1 2 3)) (box-immutable 1))) (define immutable-zero-objs (list (vector->immutable-vector '#()) - (fxvector->immutable-fxvector '#vfx()) (string->immutable-string "") (bytevector->immutable-bytevector #vu8()) (box-immutable 1))) (define (immutable? l) (and (immutable-vector? (list-ref l 0)) - (immutable-fxvector? (list-ref l 1)) - (immutable-string? (list-ref l 2)) - (immutable-bytevector? (list-ref l 3)) - (immutable-box? (list-ref l 4)))) + (immutable-string? (list-ref l 1)) + (immutable-bytevector? (list-ref l 2)) + (immutable-box? (list-ref l 3)))) (define (round-trip l) (let-values ([(o get) (open-bytevector-output-port)]) (fasl-write l o) @@ -4976,7 +4972,6 @@ ;; Make sure `fasl-read` didn't mark "mutable" null values ;; as immutable: (mutable-vector? '#()) - (mutable-fxvector? '#vfx()) (mutable-string? "") (mutable-bytevector? '#vu8()) diff --git a/racket/src/ChezScheme/mats/patch-compile-0-f-t-f b/racket/src/ChezScheme/mats/patch-compile-0-f-t-f index a82bd035c9..1f64bea9a6 100644 --- a/racket/src/ChezScheme/mats/patch-compile-0-f-t-f +++ b/racket/src/ChezScheme/mats/patch-compile-0-f-t-f @@ -1,7 +1,7 @@ -*** errors-compile-0-f-f-f 2020-06-03 12:04:45.000000000 -0600 ---- errors-compile-0-f-t-f 2020-06-03 11:23:43.000000000 -0600 +*** errors-compile-0-f-f-f 2020-11-07 07:25:50.000000000 -0700 +--- errors-compile-0-f-t-f 2020-11-07 06:47:03.000000000 -0700 *************** -*** 198,204 **** +*** 200,206 **** 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable c". 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable m". @@ -9,7 +9,7 @@ 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable y". 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". ---- 198,204 ---- +--- 200,206 ---- 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable c". 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable m". @@ -18,7 +18,7 @@ 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". *************** -*** 217,223 **** +*** 219,225 **** 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable b". 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable a". 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable g". @@ -26,7 +26,7 @@ 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable f". 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable c". 3.mo:Expected warning in mat cpvalid: "possible attempt to reference undefined variable x". ---- 217,223 ---- +--- 219,225 ---- 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable b". 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable a". 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable g". @@ -35,7 +35,7 @@ 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable c". 3.mo:Expected warning in mat cpvalid: "possible attempt to reference undefined variable x". *************** -*** 264,273 **** +*** 266,275 **** 3.mo:Expected error in mat mrvs: "returned three values to single value return context". 3.mo:Expected error in mat mrvs: "returned three values to single value return context". 3.mo:Expected error in mat mrvs: "returned zero values to single value return context". @@ -46,7 +46,7 @@ 3.mo:Expected error in mat mrvs: "variable $mrvs-foo is not bound". 3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17". 3.mo:Expected error in mat mrvs: "returned two values to single value return context". ---- 264,273 ---- +--- 266,275 ---- 3.mo:Expected error in mat mrvs: "returned three values to single value return context". 3.mo:Expected error in mat mrvs: "returned three values to single value return context". 3.mo:Expected error in mat mrvs: "returned zero values to single value return context". @@ -58,7 +58,7 @@ 3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17". 3.mo:Expected error in mat mrvs: "returned two values to single value return context". *************** -*** 4034,4040 **** +*** 4037,4043 **** misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar". @@ -66,7 +66,7 @@ misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a". ---- 4034,4040 ---- +--- 4037,4043 ---- misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar". @@ -75,7 +75,7 @@ misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a". *************** -*** 7612,7619 **** +*** 7666,7673 **** 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat error: "a: hit me!". 7.mo:Expected error in mat error: "f: n is 0". @@ -84,7 +84,7 @@ record.mo:Expected error in mat record2: "invalid value 3 for foreign type double-float". record.mo:Expected error in mat record2: "3 is not of type #". record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)". ---- 7612,7619 ---- +--- 7666,7673 ---- 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat error: "a: hit me!". 7.mo:Expected error in mat error: "f: n is 0". @@ -94,7 +94,7 @@ record.mo:Expected error in mat record2: "3 is not of type #". record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)". *************** -*** 7621,7635 **** +*** 7675,7689 **** record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)". record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car". record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound". @@ -110,7 +110,7 @@ record.mo:Expected error in mat record9: "record-reader: invalid input #f". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". ---- 7621,7635 ---- +--- 7675,7689 ---- record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)". record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car". record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound". @@ -127,7 +127,7 @@ record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". *************** -*** 7642,7667 **** +*** 7696,7721 **** record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". @@ -154,7 +154,7 @@ record.mo:Expected error in mat foreign-data: "foreign-alloc: 0 is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum". ---- 7642,7667 ---- +--- 7696,7721 ---- record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". @@ -182,7 +182,7 @@ record.mo:Expected error in mat foreign-data: "foreign-alloc: is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum". *************** -*** 7792,7830 **** +*** 7846,7884 **** record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #". @@ -222,7 +222,7 @@ record.mo:Expected error in mat record?: "record?: 4 is not a record type descriptor". record.mo:Expected error in mat record?: "record?: a is not a record type descriptor". record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor". ---- 7792,7830 ---- +--- 7846,7884 ---- record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #". @@ -263,7 +263,7 @@ record.mo:Expected error in mat record?: "record?: a is not a record type descriptor". record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor". *************** -*** 7839,7895 **** +*** 7893,7949 **** record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam". @@ -321,7 +321,7 @@ record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent". record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent". record.mo:Expected error in mat r6rs-records-syntactic: "cannot extend define-record-type parent fratrat". ---- 7839,7895 ---- +--- 7893,7949 ---- record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam". diff --git a/racket/src/ChezScheme/mats/patch-compile-0-t-f-f b/racket/src/ChezScheme/mats/patch-compile-0-t-f-f index adef5d4399..c28087526f 100644 --- a/racket/src/ChezScheme/mats/patch-compile-0-t-f-f +++ b/racket/src/ChezScheme/mats/patch-compile-0-t-f-f @@ -1,5 +1,5 @@ -*** errors-compile-0-f-f-f 2020-08-04 20:40:20.000000000 -0600 ---- errors-compile-0-t-f-f 2020-08-04 20:09:15.000000000 -0600 +*** errors-compile-0-f-f-f 2020-11-07 07:25:50.000000000 -0700 +--- errors-compile-0-t-f-f 2020-11-07 06:55:58.000000000 -0700 *************** *** 168,174 **** 3.mo:Expected error in mat case-lambda: "incorrect number of arguments 2 to #". @@ -3861,7 +3861,7 @@ misc.mo:Expected error in mat compiler3: "incorrect argument count in call (consumer 1 2)". misc.mo:Expected error in mat compiler3: "variable goto is not bound". *************** -*** 4059,4065 **** +*** 4060,4066 **** misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: record comparison failed while comparing testfile-fatfib1.so and testfile-fatfib3.so within fasl entry 4". @@ -3869,7 +3869,7 @@ misc.mo:Expected error in mat cost-center: "with-cost-center: foo is not a cost center". misc.mo:Expected error in mat cost-center: "with-cost-center: bar is not a procedure". misc.mo:Expected error in mat cost-center: "cost-center-instruction-count: 5 is not a cost center". ---- 4059,4065 ---- +--- 4060,4066 ---- misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: record comparison failed while comparing testfile-fatfib1.so and testfile-fatfib3.so within fasl entry 4". @@ -3878,7 +3878,7 @@ misc.mo:Expected error in mat cost-center: "with-cost-center: bar is not a procedure". misc.mo:Expected error in mat cost-center: "cost-center-instruction-count: 5 is not a cost center". *************** -*** 4113,4120 **** +*** 4114,4121 **** misc.mo:Expected error in mat apropos: "apropos: 3 is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos: (hit me) is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos-list: b is not an environment". @@ -3887,7 +3887,7 @@ misc.mo:Expected error in mat apropos: "variable $apropos-unbound1 is not bound". misc.mo:Expected error in mat apropos: "variable $apropos-unbound2 is not bound". misc.mo:Expected error in mat simplify-if: "textual-port?: a is not a port". ---- 4113,4120 ---- +--- 4114,4121 ---- misc.mo:Expected error in mat apropos: "apropos: 3 is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos: (hit me) is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos-list: b is not an environment". @@ -3897,7 +3897,7 @@ misc.mo:Expected error in mat apropos: "variable $apropos-unbound2 is not bound". misc.mo:Expected error in mat simplify-if: "textual-port?: a is not a port". *************** -*** 4129,4144 **** +*** 4130,4145 **** misc.mo:Expected error in mat pariah: "invalid syntax (pariah)". misc.mo:Expected error in mat pariah: "invalid syntax (pariah . 17)". misc.mo:Expected error in mat procedure-arity-mask: "procedure-arity-mask: 17 is not a procedure". @@ -3914,7 +3914,7 @@ misc.mo:Expected error in mat wrapper-procedure: "make-arity-wrapper-procedure: 1 is not a procedure". misc.mo:Expected error in mat wrapper-procedure: "make-arity-wrapper-procedure: not-a-procedure is not a procedure". misc.mo:Expected error in mat wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask". ---- 4129,4144 ---- +--- 4130,4145 ---- misc.mo:Expected error in mat pariah: "invalid syntax (pariah)". misc.mo:Expected error in mat pariah: "invalid syntax (pariah . 17)". misc.mo:Expected error in mat procedure-arity-mask: "procedure-arity-mask: 17 is not a procedure". @@ -3932,7 +3932,7 @@ misc.mo:Expected error in mat wrapper-procedure: "make-arity-wrapper-procedure: not-a-procedure is not a procedure". misc.mo:Expected error in mat wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask". *************** -*** 4148,4179 **** +*** 4149,4180 **** misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: 1 is not a wrapper procedure". misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: # is not a wrapper procedure". misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: # is not a wrapper procedure". @@ -3965,7 +3965,7 @@ cp0.mo:Expected error in mat cp0-regression: "attempt to reference undefined variable x". cp0.mo:Expected error in mat cp0-regression: "incorrect argument count in call (g)". cp0.mo:Expected error in mat cp0-regression: "incorrect argument count in call (cont0 (quote x))". ---- 4148,4179 ---- +--- 4149,4180 ---- misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: 1 is not a wrapper procedure". misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: # is not a wrapper procedure". misc.mo:Expected error in mat wrapper-procedure: "wrapper-procedure-data: # is not a wrapper procedure". @@ -3999,7 +3999,7 @@ cp0.mo:Expected error in mat cp0-regression: "incorrect argument count in call (g)". cp0.mo:Expected error in mat cp0-regression: "incorrect argument count in call (cont0 (quote x))". *************** -*** 4187,4195 **** +*** 4188,4196 **** cp0.mo:Expected error in mat cp0-regression: "condition: #f is not a condition". cp0.mo:Expected error in mat cp0-regression: "apply: 0 is not a proper list". cp0.mo:Expected error in mat cp0-regression: "apply: 2 is not a proper list". @@ -4009,7 +4009,7 @@ cp0.mo:Expected error in mat expand-output: "expand-output: #t is not a textual output port or #f". cp0.mo:Expected error in mat expand-output: "expand-output: # is not a textual output port or #f". cp0.mo:Expected error in mat expand/optimize-output: "expand/optimize-output: #t is not a textual output port or #f". ---- 4187,4195 ---- +--- 4188,4196 ---- cp0.mo:Expected error in mat cp0-regression: "condition: #f is not a condition". cp0.mo:Expected error in mat cp0-regression: "apply: 0 is not a proper list". cp0.mo:Expected error in mat cp0-regression: "apply: 2 is not a proper list". @@ -4020,20 +4020,20 @@ cp0.mo:Expected error in mat expand-output: "expand-output: # is not a textual output port or #f". cp0.mo:Expected error in mat expand/optimize-output: "expand/optimize-output: #t is not a textual output port or #f". *************** -*** 4253,4261 **** - 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 . 3) is not a proper list". - 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 3 2 3 2 ...) is circular". - 5_6.mo:Expected error in mat fxvector->list: "fxvector->list: (a b c) is not an fxvector". +*** 4289,4297 **** + 5_6.mo:Expected error in mat list->flvector: "list->flvector: (1.0 2.0 . 3.0) is not a proper list". + 5_6.mo:Expected error in mat list->flvector: "list->flvector: (1.0 2.0 3.0 2.0 3.0 2.0 ...) is circular". + 5_6.mo:Expected error in mat flvector->list: "flvector->list: (a b c) is not an flvector". ! 5_6.mo:Expected error in mat vector-map: "incorrect argument count in call (vector-map)". ! 5_6.mo:Expected error in mat vector-map: "incorrect argument count in call (vector-map (quote #()))". ! 5_6.mo:Expected error in mat vector-map: "incorrect argument count in call (vector-map +)". 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". ---- 4253,4261 ---- - 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 . 3) is not a proper list". - 5_6.mo:Expected error in mat list->fxvector: "list->fxvector: (1 2 3 2 3 2 ...) is circular". - 5_6.mo:Expected error in mat fxvector->list: "fxvector->list: (a b c) is not an fxvector". +--- 4289,4297 ---- + 5_6.mo:Expected error in mat list->flvector: "list->flvector: (1.0 2.0 . 3.0) is not a proper list". + 5_6.mo:Expected error in mat list->flvector: "list->flvector: (1.0 2.0 3.0 2.0 3.0 2.0 ...) is circular". + 5_6.mo:Expected error in mat flvector->list: "flvector->list: (a b c) is not an flvector". ! 5_6.mo:Expected error in mat vector-map: "incorrect number of arguments 0 to #". ! 5_6.mo:Expected error in mat vector-map: "incorrect number of arguments 1 to #". ! 5_6.mo:Expected error in mat vector-map: "incorrect number of arguments 1 to #". @@ -4041,7 +4041,7 @@ 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". 5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure". *************** -*** 4270,4278 **** +*** 4306,4314 **** 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". @@ -4051,7 +4051,7 @@ 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". ---- 4270,4278 ---- +--- 4306,4314 ---- 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-map: "vector-map: lengths of input vectors #(y) and #() differ". @@ -4062,7 +4062,7 @@ 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: #() is not a procedure". *************** -*** 4287,4304 **** +*** 4323,4340 **** 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". @@ -4081,7 +4081,7 @@ 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: 3 is not a mutable vector". 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: (1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: #(a b c) is not a procedure". ---- 4287,4304 ---- +--- 4323,4340 ---- 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #() and #(x) differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". 5_6.mo:Expected error in mat vector-for-each: "vector-for-each: lengths of input vectors #(y) and #() differ". @@ -4101,20 +4101,20 @@ 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: (1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-sort!: "vector-sort!: #(a b c) is not a procedure". *************** -*** 4309,4317 **** +*** 4343,4351 **** + 5_6.mo:Expected error in mat vector->immutable-vector: "vector-set-fixnum!: #(1 2 3) is not a mutable vector". + 5_6.mo:Expected error in mat vector->immutable-vector: "vector-fill!: #(1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat vector->immutable-vector: "vector-sort!: #(1 2 3) is not a mutable vector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-set!: #vfx(1 2 3) is not a mutable fxvector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-fill!: #vfx(1 2 3) is not a mutable fxvector". ! 5_6.mo:Expected error in mat vector-cas!: "incorrect argument count in call (vector-cas! vec1)". ! 5_6.mo:Expected error in mat vector-cas!: "incorrect argument count in call (vector-cas! vec1 1)". ! 5_6.mo:Expected error in mat vector-cas!: "incorrect argument count in call (vector-cas! vec1 1 2)". 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: 1 is not a mutable vector". 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a valid index for #(4 5 3)". ---- 4309,4317 ---- +--- 4343,4351 ---- + 5_6.mo:Expected error in mat vector->immutable-vector: "vector-set-fixnum!: #(1 2 3) is not a mutable vector". + 5_6.mo:Expected error in mat vector->immutable-vector: "vector-fill!: #(1 2 3) is not a mutable vector". 5_6.mo:Expected error in mat vector->immutable-vector: "vector-sort!: #(1 2 3) is not a mutable vector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-set!: #vfx(1 2 3) is not a mutable fxvector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-fill!: #vfx(1 2 3) is not a mutable fxvector". ! 5_6.mo:Expected error in mat vector-cas!: "incorrect number of arguments 1 to #". ! 5_6.mo:Expected error in mat vector-cas!: "incorrect number of arguments 2 to #". ! 5_6.mo:Expected error in mat vector-cas!: "incorrect number of arguments 3 to #". @@ -4122,7 +4122,7 @@ 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a mutable vector". 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a valid index for #(4 5 3)". *************** -*** 4368,4375 **** +*** 4402,4409 **** 5_7.mo:Expected error in mat putprop-getprop: "getprop: 3 is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "putprop: "hi" is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "property-list: (a b c) is not a symbol". @@ -4131,7 +4131,7 @@ 5_8.mo:Expected error in mat box-cas!: "box-cas!: 1 is not a mutable box". 5_8.mo:Expected error in mat box-cas!: "box-cas!: #&1 is not a mutable box". 6.mo:Expected error in mat port-operations: "open-input-file: failed for nonexistent file: no such file or directory". ---- 4368,4375 ---- +--- 4402,4409 ---- 5_7.mo:Expected error in mat putprop-getprop: "getprop: 3 is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "putprop: "hi" is not a symbol". 5_7.mo:Expected error in mat putprop-getprop: "property-list: (a b c) is not a symbol". @@ -4141,7 +4141,7 @@ 5_8.mo:Expected error in mat box-cas!: "box-cas!: #&1 is not a mutable box". 6.mo:Expected error in mat port-operations: "open-input-file: failed for nonexistent file: no such file or directory". *************** -*** 4407,4428 **** +*** 4441,4462 **** 6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #". 6.mo:Expected error in mat port-operations: "current-output-port: a is not a textual output port". 6.mo:Expected error in mat port-operations: "current-input-port: a is not a textual input port". @@ -4164,7 +4164,7 @@ 6.mo:Expected error in mat port-operations1: "open-input-output-file: furball is not a string". 6.mo:Expected error in mat port-operations1: "open-input-output-file: failed for /probably/not/a/good/path: no such file or directory". 6.mo:Expected error in mat port-operations1: "open-input-output-file: invalid option compressed". ---- 4407,4428 ---- +--- 4441,4462 ---- 6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #". 6.mo:Expected error in mat port-operations: "current-output-port: a is not a textual output port". 6.mo:Expected error in mat port-operations: "current-input-port: a is not a textual input port". @@ -4188,7 +4188,7 @@ 6.mo:Expected error in mat port-operations1: "open-input-output-file: failed for /probably/not/a/good/path: no such file or directory". 6.mo:Expected error in mat port-operations1: "open-input-output-file: invalid option compressed". *************** -*** 4431,4437 **** +*** 4465,4471 **** 6.mo:Expected error in mat port-operations1: "truncate-file: all-the-way is not a valid length". 6.mo:Expected error in mat port-operations1: "truncate-file: # is not an output port". 6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port". @@ -4196,7 +4196,7 @@ 6.mo:Expected error in mat port-operations1: "truncate-file: not permitted on closed port #". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". ---- 4431,4437 ---- +--- 4465,4471 ---- 6.mo:Expected error in mat port-operations1: "truncate-file: all-the-way is not a valid length". 6.mo:Expected error in mat port-operations1: "truncate-file: # is not an output port". 6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port". @@ -4205,7 +4205,7 @@ 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". *************** -*** 4448,4455 **** +*** 4482,4489 **** 6.mo:Expected error in mat string-port-file-position: "file-position: -1 is not a valid position". 6.mo:Expected error in mat fresh-line: "fresh-line: 3 is not a textual output port". 6.mo:Expected error in mat fresh-line: "fresh-line: # is not a textual output port". @@ -4214,7 +4214,7 @@ 6.mo:Expected error in mat pretty-print: "pretty-format: 3 is not a symbol". 6.mo:Expected error in mat pretty-print: "pretty-format: invalid format (bad 0 ... ... 0 format)". 6.mo:Expected error in mat fasl: "separate-eval: Warning in fasl-write: fasl file content is compressed internally; compressing the file (#) is redundant and can slow fasl writing and reading significantly ---- 4448,4455 ---- +--- 4482,4489 ---- 6.mo:Expected error in mat string-port-file-position: "file-position: -1 is not a valid position". 6.mo:Expected error in mat fresh-line: "fresh-line: 3 is not a textual output port". 6.mo:Expected error in mat fresh-line: "fresh-line: # is not a textual output port". @@ -4224,7 +4224,7 @@ 6.mo:Expected error in mat pretty-print: "pretty-format: invalid format (bad 0 ... ... 0 format)". 6.mo:Expected error in mat fasl: "separate-eval: Warning in fasl-write: fasl file content is compressed internally; compressing the file (#) is redundant and can slow fasl writing and reading significantly *************** -*** 6939,6970 **** +*** 6973,7004 **** io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #". io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #". io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #". @@ -4257,7 +4257,7 @@ io.mo:Expected error in mat port-operations1: "open-file-input/output-port: failed for /probably/not/a/good/path: no such file or directory". io.mo:Expected error in mat port-operations1: "invalid file option uncompressed". io.mo:Expected error in mat port-operations1: "invalid file option truncate". ---- 6939,6970 ---- +--- 6973,7004 ---- io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #". io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #". io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #". @@ -4291,7 +4291,7 @@ io.mo:Expected error in mat port-operations1: "invalid file option uncompressed". io.mo:Expected error in mat port-operations1: "invalid file option truncate". *************** -*** 6975,6981 **** +*** 7009,7015 **** io.mo:Expected error in mat port-operations1: "set-port-length!: all-the-way is not a valid length". io.mo:Expected error in mat port-operations1: "truncate-port: # is not an output port". io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port". @@ -4299,7 +4299,7 @@ io.mo:Expected error in mat port-operations1: "truncate-port: not permitted on closed port #". io.mo:Expected error in mat port-operations3: "file-port?: "not a port" is not a port". io.mo:Expected error in mat port-operations3: "port-file-descriptor: oops is not a port". ---- 6975,6981 ---- +--- 7009,7015 ---- io.mo:Expected error in mat port-operations1: "set-port-length!: all-the-way is not a valid length". io.mo:Expected error in mat port-operations1: "truncate-port: # is not an output port". io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port". @@ -4308,7 +4308,7 @@ io.mo:Expected error in mat port-operations3: "file-port?: "not a port" is not a port". io.mo:Expected error in mat port-operations3: "port-file-descriptor: oops is not a port". *************** -*** 7158,7170 **** +*** 7192,7204 **** io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: #vu8(1 2 3) is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #". @@ -4322,7 +4322,7 @@ io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: shoe is not a positive fixnum". io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: 0 is not a positive fixnum". io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: -15 is not a positive fixnum". ---- 7158,7170 ---- +--- 7192,7204 ---- io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: #vu8(1 2 3) is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #". @@ -4337,7 +4337,7 @@ io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: 0 is not a positive fixnum". io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: -15 is not a positive fixnum". *************** -*** 7190,7205 **** +*** 7224,7239 **** io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". io.mo:Expected error in mat compression: "port-file-compressed!: # is not a file port". io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". @@ -4354,7 +4354,7 @@ io.mo:Expected error in mat custom-binary-ports: "unget-u8: cannot unget 255 on #". io.mo:Expected error in mat custom-binary-ports: "put-u8: # is not a binary output port". io.mo:Expected error in mat custom-binary-ports: "port-length: # does not support operation". ---- 7190,7205 ---- +--- 7224,7239 ---- io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". io.mo:Expected error in mat compression: "port-file-compressed!: # is not a file port". io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". @@ -4372,7 +4372,7 @@ io.mo:Expected error in mat custom-binary-ports: "put-u8: # is not a binary output port". io.mo:Expected error in mat custom-binary-ports: "port-length: # does not support operation". *************** -*** 7271,7286 **** +*** 7305,7320 **** io.mo:Expected error in mat current-ports: "console-output-port: # is not a textual output port". io.mo:Expected error in mat current-ports: "console-error-port: # is not a textual output port". io.mo:Expected error in mat current-transcoder: "current-transcoder: # is not a transcoder". @@ -4389,7 +4389,7 @@ io.mo:Expected error in mat utf-16-codec: "utf-16-codec: invalid endianness #f". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 0 of #". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #". ---- 7271,7286 ---- +--- 7305,7320 ---- io.mo:Expected error in mat current-ports: "console-output-port: # is not a textual output port". io.mo:Expected error in mat current-ports: "console-error-port: # is not a textual output port". io.mo:Expected error in mat current-transcoder: "current-transcoder: # is not a transcoder". @@ -4407,7 +4407,7 @@ io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 0 of #". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #". *************** -*** 7452,7458 **** +*** 7486,7492 **** 7.mo:Expected error in mat eval-when: "invalid syntax visit-x". 7.mo:Expected error in mat eval-when: "invalid syntax revisit-x". 7.mo:Expected error in mat compile-whole-program: "compile-whole-program: failed for nosuchfile.wpo: no such file or directory". @@ -4415,7 +4415,7 @@ 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in environment: attempt to import invisible library (testfile-wpo-lib) 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-a4) not found 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-c4) not found ---- 7452,7458 ---- +--- 7486,7492 ---- 7.mo:Expected error in mat eval-when: "invalid syntax visit-x". 7.mo:Expected error in mat eval-when: "invalid syntax revisit-x". 7.mo:Expected error in mat compile-whole-program: "compile-whole-program: failed for nosuchfile.wpo: no such file or directory". @@ -4424,7 +4424,7 @@ 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-a4) not found 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-c4) not found *************** -*** 7518,7544 **** +*** 7552,7578 **** 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1A) 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1B) 7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: "hello" is not a symbol". @@ -4452,7 +4452,7 @@ 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: hello is not an environment". 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: # is not a symbol". 7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound". ---- 7518,7544 ---- +--- 7552,7578 ---- 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1A) 7.mo:Expected error in mat concatenate-object-files: "separate-eval: Exception in verify-loadability: cannot find object file for library (testfile-cof1B) 7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: "hello" is not a symbol". @@ -4481,7 +4481,7 @@ 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: # is not a symbol". 7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound". *************** -*** 7853,7859 **** +*** 7899,7905 **** record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 1 to #". record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 1 to #". record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 3 to #". @@ -4489,7 +4489,7 @@ record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 4 to #". record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: record constructor descriptor # is not for parent of record type #". record.mo:Expected error in mat r6rs-records-procedural: "make-record-type-descriptor: cannot extend sealed record type #". ---- 7853,7859 ---- +--- 7899,7905 ---- record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 1 to #". record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 1 to #". record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 3 to #". @@ -4498,7 +4498,7 @@ record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: record constructor descriptor # is not for parent of record type #". record.mo:Expected error in mat r6rs-records-procedural: "make-record-type-descriptor: cannot extend sealed record type #". *************** -*** 7943,8057 **** +*** 7989,8103 **** hash.mo:Expected error in mat old-hash-table: "hash-table-for-each: ((a . b)) is not an eq hashtable". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments 2 to #". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments 2 to #". @@ -4614,7 +4614,7 @@ hash.mo:Expected error in mat hashtable-arguments: "hashtable-ephemeron?: (hash . table) is not a hashtable". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value 3.5 for any". ---- 7943,8057 ---- +--- 7989,8103 ---- hash.mo:Expected error in mat old-hash-table: "hash-table-for-each: ((a . b)) is not an eq hashtable". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments 2 to #". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments 2 to #". @@ -4731,7 +4731,7 @@ hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value 3.5 for any". *************** -*** 8074,8196 **** +*** 8120,8242 **** hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 3.5 for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 1+2i for any". @@ -4855,7 +4855,7 @@ hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument -1". hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #t". hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #f". ---- 8074,8196 ---- +--- 8120,8242 ---- hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 3.5 for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 1+2i for any". @@ -4980,7 +4980,7 @@ hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #t". hash.mo:Expected error in mat eqv-hashtable-arguments: "make-ephemeron-eqv-hashtable: invalid size argument #f". *************** -*** 8198,8213 **** +*** 8244,8259 **** hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". @@ -4997,7 +4997,7 @@ hash.mo:Expected error in mat hash-functions: "string-ci-hash: hello is not a string". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". ---- 8198,8213 ---- +--- 8244,8259 ---- hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". @@ -5015,7 +5015,7 @@ hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". *************** -*** 8323,8330 **** +*** 8369,8376 **** 8.mo:Expected error in mat with-syntax: "invalid syntax a". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". @@ -5024,7 +5024,7 @@ 8.mo:Expected error in mat generate-temporaries: "generate-temporaries: improper list structure (a b . c)". 8.mo:Expected error in mat generate-temporaries: "generate-temporaries: cyclic list structure (a b c b c b ...)". 8.mo:Expected error in mat syntax->list: "syntax->list: invalid argument #". ---- 8323,8330 ---- +--- 8369,8376 ---- 8.mo:Expected error in mat with-syntax: "invalid syntax a". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". 8.mo:Expected error in mat with-syntax: "duplicate pattern variable x in (x x)". @@ -5034,7 +5034,7 @@ 8.mo:Expected error in mat generate-temporaries: "generate-temporaries: cyclic list structure (a b c b c b ...)". 8.mo:Expected error in mat syntax->list: "syntax->list: invalid argument #". *************** -*** 8941,8956 **** +*** 8987,9002 **** 8.mo:Expected error in mat rnrs-eval: "attempt to assign unbound identifier foo". 8.mo:Expected error in mat rnrs-eval: "invalid definition in immutable environment (define cons (quote #))". 8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol". @@ -5051,7 +5051,7 @@ 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: hello is not an environment". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: # is not a symbol". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #". ---- 8941,8956 ---- +--- 8987,9002 ---- 8.mo:Expected error in mat rnrs-eval: "attempt to assign unbound identifier foo". 8.mo:Expected error in mat rnrs-eval: "invalid definition in immutable environment (define cons (quote #))". 8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol". @@ -5069,7 +5069,7 @@ 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: # is not a symbol". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #". *************** -*** 9047,9069 **** +*** 9093,9115 **** fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum". @@ -5093,7 +5093,7 @@ fx.mo:Expected error in mat $fxu<: "incorrect number of arguments 1 to #". fx.mo:Expected error in mat $fxu<: "incorrect number of arguments 3 to #". fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum". ---- 9047,9069 ---- +--- 9093,9115 ---- fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum". @@ -5118,7 +5118,7 @@ fx.mo:Expected error in mat $fxu<: "incorrect number of arguments 3 to #". fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum". *************** -*** 9095,9107 **** +*** 9141,9153 **** fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -5132,7 +5132,7 @@ fx.mo:Expected error in mat r6rs:fx*: "fx*: is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum". ---- 9095,9107 ---- +--- 9141,9153 ---- fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -5147,7 +5147,7 @@ fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum". *************** -*** 9151,9163 **** +*** 9197,9209 **** fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum". @@ -5161,7 +5161,7 @@ fx.mo:Expected error in mat fxmax: "fxmax: a is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum". ---- 9151,9163 ---- +--- 9197,9209 ---- fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum". @@ -5176,7 +5176,7 @@ fx.mo:Expected error in mat fxmax: "fxmax: is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum". *************** -*** 9255,9264 **** +*** 9301,9310 **** fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments and 10". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and ". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1". @@ -5187,7 +5187,7 @@ fx.mo:Expected error in mat fxbit-field: "fxbit-field: 35.0 is not a fixnum". fx.mo:Expected error in mat fxbit-field: "fxbit-field: 5.0 is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: 8.0 is not a valid end index". ---- 9255,9264 ---- +--- 9301,9310 ---- fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments and 10". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and ". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1". @@ -5199,7 +5199,7 @@ fx.mo:Expected error in mat fxbit-field: "fxbit-field: 5.0 is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: 8.0 is not a valid end index". *************** -*** 9272,9305 **** +*** 9318,9351 **** fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". @@ -5234,7 +5234,7 @@ fx.mo:Expected error in mat fxif: "fxif: a is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: 3.4 is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: (a) is not a fixnum". ---- 9272,9305 ---- +--- 9318,9351 ---- fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". @@ -5270,7 +5270,7 @@ fx.mo:Expected error in mat fxif: "fxif: 3.4 is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: (a) is not a fixnum". *************** -*** 9309,9352 **** +*** 9355,9398 **** fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". @@ -5315,7 +5315,7 @@ fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: 3.4 is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: is not a fixnum". ---- 9309,9352 ---- +--- 9355,9398 ---- fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". fx.mo:Expected error in mat fxif: "fxif: <-int> is not a fixnum". @@ -5361,7 +5361,7 @@ fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: is not a fixnum". *************** -*** 9355,9365 **** +*** 9401,9411 **** fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index -1". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". @@ -5373,7 +5373,7 @@ fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3.4 is not a valid start index". fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3/4 is not a valid end index". ---- 9355,9365 ---- +--- 9401,9411 ---- fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index -1". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". @@ -5386,7 +5386,7 @@ fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3.4 is not a valid start index". fx.mo:Expected error in mat fxcopy-bit-field: "fxcopy-bit-field: 3/4 is not a valid end index". *************** -*** 9419,9428 **** +*** 9465,9474 **** fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: (a) is not a fixnum". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". @@ -5397,7 +5397,7 @@ fx.mo:Expected error in mat fx+/carry: "fx+/carry: 1.0 is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: 3.0 is not a fixnum". ---- 9419,9428 ---- +--- 9465,9474 ---- fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: (a) is not a fixnum". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". fx.mo:Expected error in mat fxdiv0-and-mod0: "fxmod0: undefined for 0". @@ -5409,7 +5409,7 @@ fx.mo:Expected error in mat fx+/carry: "fx+/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: 3.0 is not a fixnum". *************** -*** 9438,9447 **** +*** 9484,9493 **** fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". @@ -5420,7 +5420,7 @@ fx.mo:Expected error in mat fx-/carry: "fx-/carry: 1.0 is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: 3.0 is not a fixnum". ---- 9438,9447 ---- +--- 9484,9493 ---- fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx+/carry: "fx+/carry: <-int> is not a fixnum". @@ -5432,7 +5432,7 @@ fx.mo:Expected error in mat fx-/carry: "fx-/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: 3.0 is not a fixnum". *************** -*** 9457,9466 **** +*** 9503,9512 **** fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". @@ -5443,7 +5443,7 @@ fx.mo:Expected error in mat fx*/carry: "fx*/carry: 1.0 is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: 3.0 is not a fixnum". ---- 9457,9466 ---- +--- 9503,9512 ---- fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/carry: "fx-/carry: <-int> is not a fixnum". @@ -5455,7 +5455,7 @@ fx.mo:Expected error in mat fx*/carry: "fx*/carry: 2.0 is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: 3.0 is not a fixnum". *************** -*** 9476,9486 **** +*** 9522,9532 **** fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". @@ -5467,7 +5467,7 @@ fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: a is not a fixnum". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index 2.0". ---- 9476,9486 ---- +--- 9522,9532 ---- fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". fx.mo:Expected error in mat fx*/carry: "fx*/carry: <-int> is not a fixnum". @@ -5480,7 +5480,7 @@ fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index 2.0". *************** -*** 9503,9512 **** +*** 9549,9558 **** fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: count 1 is greater than difference between end index 5 and start index 5". @@ -5491,7 +5491,7 @@ fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: a is not a fixnum". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index 2.0". ---- 9503,9512 ---- +--- 9549,9558 ---- fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: count 1 is greater than difference between end index 5 and start index 5". @@ -5503,7 +5503,7 @@ fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid start index 0.0". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index 2.0". *************** -*** 9522,9539 **** +*** 9568,9585 **** fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index ". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index <-int>". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: start index 7 is greater than end index 5". @@ -5522,7 +5522,7 @@ fl.mo:Expected error in mat fl=: "fl=: (a) is not a flonum". fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". ---- 9522,9539 ---- +--- 9568,9585 ---- fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index ". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index <-int>". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: start index 7 is greater than end index 5". @@ -5542,7 +5542,7 @@ fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". fl.mo:Expected error in mat fl=: "fl=: a is not a flonum". *************** -*** 9541,9547 **** +*** 9587,9593 **** fl.mo:Expected error in mat fl=: "fl=: 3 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". @@ -5550,7 +5550,7 @@ fl.mo:Expected error in mat fl<: "fl<: (a) is not a flonum". fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". ---- 9541,9547 ---- +--- 9587,9593 ---- fl.mo:Expected error in mat fl=: "fl=: 3 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". fl.mo:Expected error in mat fl=: "fl=: 7/2 is not a flonum". @@ -5559,7 +5559,7 @@ fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". fl.mo:Expected error in mat fl<: "fl<: a is not a flonum". *************** -*** 9549,9555 **** +*** 9595,9601 **** fl.mo:Expected error in mat fl<: "fl<: 3 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". @@ -5567,7 +5567,7 @@ fl.mo:Expected error in mat fl>: "fl>: (a) is not a flonum". fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". ---- 9549,9555 ---- +--- 9595,9601 ---- fl.mo:Expected error in mat fl<: "fl<: 3 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". fl.mo:Expected error in mat fl<: "fl<: 7/2 is not a flonum". @@ -5576,7 +5576,7 @@ fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". fl.mo:Expected error in mat fl>: "fl>: a is not a flonum". *************** -*** 9557,9563 **** +*** 9603,9609 **** fl.mo:Expected error in mat fl>: "fl>: 3 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". @@ -5584,7 +5584,7 @@ fl.mo:Expected error in mat fl<=: "fl<=: (a) is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". ---- 9557,9563 ---- +--- 9603,9609 ---- fl.mo:Expected error in mat fl>: "fl>: 3 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". fl.mo:Expected error in mat fl>: "fl>: 7/2 is not a flonum". @@ -5593,7 +5593,7 @@ fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: a is not a flonum". *************** -*** 9565,9571 **** +*** 9611,9617 **** fl.mo:Expected error in mat fl<=: "fl<=: 3 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". @@ -5601,7 +5601,7 @@ fl.mo:Expected error in mat fl>=: "fl>=: (a) is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". ---- 9565,9571 ---- +--- 9611,9617 ---- fl.mo:Expected error in mat fl<=: "fl<=: 3 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". fl.mo:Expected error in mat fl<=: "fl<=: 7/2 is not a flonum". @@ -5610,7 +5610,7 @@ fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: a is not a flonum". *************** -*** 9573,9612 **** +*** 9619,9658 **** fl.mo:Expected error in mat fl>=: "fl>=: 3 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". @@ -5651,7 +5651,7 @@ fl.mo:Expected error in mat fl>=?: "fl>=?: a is not a flonum". fl.mo:Expected error in mat fl>=?: "fl>=?: a is not a flonum". fl.mo:Expected error in mat fl>=?: "fl>=?: 3 is not a flonum". ---- 9573,9612 ---- +--- 9619,9658 ---- fl.mo:Expected error in mat fl>=: "fl>=: 3 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". fl.mo:Expected error in mat fl>=: "fl>=: 7/2 is not a flonum". @@ -5693,7 +5693,7 @@ fl.mo:Expected error in mat fl>=?: "fl>=?: a is not a flonum". fl.mo:Expected error in mat fl>=?: "fl>=?: 3 is not a flonum". *************** -*** 9616,9622 **** +*** 9662,9668 **** fl.mo:Expected error in mat fl+: "fl+: (a . b) is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 1 is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 2/3 is not a flonum". @@ -5701,7 +5701,7 @@ fl.mo:Expected error in mat fl-: "fl-: (a . b) is not a flonum". fl.mo:Expected error in mat fl-: "fl-: 1 is not a flonum". fl.mo:Expected error in mat fl-: "fl-: a is not a flonum". ---- 9616,9622 ---- +--- 9662,9668 ---- fl.mo:Expected error in mat fl+: "fl+: (a . b) is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 1 is not a flonum". fl.mo:Expected error in mat fl+: "fl+: 2/3 is not a flonum". @@ -5710,7 +5710,7 @@ fl.mo:Expected error in mat fl-: "fl-: 1 is not a flonum". fl.mo:Expected error in mat fl-: "fl-: a is not a flonum". *************** -*** 9626,9715 **** +*** 9672,9761 **** fl.mo:Expected error in mat fl*: "fl*: (a . b) is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 1 is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 2/3 is not a flonum". @@ -5801,7 +5801,7 @@ fl.mo:Expected error in mat flsingle: "flsingle: a is not a flonum". fl.mo:Expected error in mat flsingle: "flsingle: 3 is not a flonum". fl.mo:Expected error in mat flsingle: "flsingle: 2.0+1.0i is not a flonum". ---- 9626,9715 ---- +--- 9672,9761 ---- fl.mo:Expected error in mat fl*: "fl*: (a . b) is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 1 is not a flonum". fl.mo:Expected error in mat fl*: "fl*: 2/3 is not a flonum". @@ -5893,7 +5893,7 @@ fl.mo:Expected error in mat flsingle: "flsingle: 3 is not a flonum". fl.mo:Expected error in mat flsingle: "flsingle: 2.0+1.0i is not a flonum". *************** -*** 9728,9763 **** +*** 9774,9809 **** fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3/4 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: hi is not a flonum". @@ -5930,7 +5930,7 @@ fl.mo:Expected error in mat fleven?: "fleven?: a is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3 is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3.2 is not an integer". ---- 9728,9763 ---- +--- 9774,9809 ---- fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: 3/4 is not a flonum". fl.mo:Expected error in mat flinfinite?: "flinfinite?: hi is not a flonum". @@ -5968,7 +5968,7 @@ fl.mo:Expected error in mat fleven?: "fleven?: 3 is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3.2 is not an integer". *************** -*** 9765,9772 **** +*** 9811,9818 **** fl.mo:Expected error in mat fleven?: "fleven?: 1+1i is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: +inf.0 is not an integer". fl.mo:Expected error in mat fleven?: "fleven?: +nan.0 is not an integer". @@ -5977,7 +5977,7 @@ fl.mo:Expected error in mat flodd?: "flodd?: a is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3 is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3.2 is not an integer". ---- 9765,9772 ---- +--- 9811,9818 ---- fl.mo:Expected error in mat fleven?: "fleven?: 1+1i is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: +inf.0 is not an integer". fl.mo:Expected error in mat fleven?: "fleven?: +nan.0 is not an integer". @@ -5987,7 +5987,7 @@ fl.mo:Expected error in mat flodd?: "flodd?: 3 is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3.2 is not an integer". *************** -*** 9774,9780 **** +*** 9820,9826 **** fl.mo:Expected error in mat flodd?: "flodd?: 3+1i is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: +inf.0 is not an integer". fl.mo:Expected error in mat flodd?: "flodd?: +nan.0 is not an integer". @@ -5995,7 +5995,7 @@ fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". ---- 9774,9780 ---- +--- 9820,9826 ---- fl.mo:Expected error in mat flodd?: "flodd?: 3+1i is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: +inf.0 is not an integer". fl.mo:Expected error in mat flodd?: "flodd?: +nan.0 is not an integer". @@ -6004,7 +6004,7 @@ fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". *************** -*** 9782,9788 **** +*** 9828,9834 **** fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0+1i is not a flonum". @@ -6012,7 +6012,7 @@ fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 3 is not a flonum". ---- 9782,9788 ---- +--- 9828,9834 ---- fl.mo:Expected error in mat flmin: "flmin: a is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmin: "flmin: 0+1i is not a flonum". @@ -6021,7 +6021,7 @@ fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 3 is not a flonum". *************** -*** 9790,9803 **** +*** 9836,9849 **** fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0+1i is not a flonum". @@ -6036,7 +6036,7 @@ fl.mo:Expected error in mat fldenominator: "fldenominator: a is not a flonum". fl.mo:Expected error in mat fldenominator: "fldenominator: 3 is not a flonum". fl.mo:Expected error in mat fldenominator: "fldenominator: 0+1i is not a flonum". ---- 9790,9803 ---- +--- 9836,9849 ---- fl.mo:Expected error in mat flmax: "flmax: a is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0.0+1.0i is not a flonum". fl.mo:Expected error in mat flmax: "flmax: 0+1i is not a flonum". @@ -6052,7 +6052,7 @@ fl.mo:Expected error in mat fldenominator: "fldenominator: 3 is not a flonum". fl.mo:Expected error in mat fldenominator: "fldenominator: 0+1i is not a flonum". *************** -*** 9843,9849 **** +*** 9889,9895 **** cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". @@ -6060,7 +6060,7 @@ cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". ---- 9843,9849 ---- +--- 9889,9895 ---- cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". @@ -6069,7 +6069,7 @@ cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". cfl.mo:Expected error in mat cfl-: "cfl-: a is not a cflonum". *************** -*** 9853,9866 **** +*** 9899,9912 **** cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". @@ -6084,7 +6084,7 @@ foreign.mo:Expected error in mat load-shared-object: "load-shared-object: invalid path 3". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". ---- 9853,9866 ---- +--- 9899,9912 ---- cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". cfl.mo:Expected error in mat cfl/: "cfl/: a is not a cflonum". @@ -6100,7 +6100,7 @@ foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: no entry for "i do not exist"". *************** -*** 9895,9902 **** +*** 9941,9948 **** foreign.mo:Expected error in mat foreign-procedure: "id: invalid foreign-procedure argument foo". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle abcde". foreign.mo:Expected error in mat foreign-procedure: "float_id: invalid foreign-procedure argument 0". @@ -6109,7 +6109,7 @@ foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier i-am-not-a-type". foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier 1". foreign.mo:Expected error in mat foreign-bytevectors: "u8*->u8*: invalid foreign-procedure argument "hello"". ---- 9895,9902 ---- +--- 9941,9948 ---- foreign.mo:Expected error in mat foreign-procedure: "id: invalid foreign-procedure argument foo". foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle abcde". foreign.mo:Expected error in mat foreign-procedure: "float_id: invalid foreign-procedure argument 0". @@ -6119,7 +6119,7 @@ foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier 1". foreign.mo:Expected error in mat foreign-bytevectors: "u8*->u8*: invalid foreign-procedure argument "hello"". *************** -*** 10395,10407 **** +*** 10441,10453 **** unix.mo:Expected error in mat file-operations: "file-access-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-change-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-modification-time: failed for "testlink": no such file or directory". @@ -6133,7 +6133,7 @@ windows.mo:Expected error in mat registry: "get-registry: pooh is not a string". windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". ---- 10395,10407 ---- +--- 10441,10453 ---- unix.mo:Expected error in mat file-operations: "file-access-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-change-time: failed for "testlink": no such file or directory". unix.mo:Expected error in mat file-operations: "file-modification-time: failed for "testlink": no such file or directory". @@ -6148,7 +6148,7 @@ windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". windows.mo:Expected error in mat registry: "put-registry!: 3 is not a string". *************** -*** 10429,10500 **** +*** 10475,10546 **** ieee.mo:Expected error in mat flonum->fixnum: "flonum->fixnum: result for -inf.0 would be outside of fixnum range". ieee.mo:Expected error in mat flonum->fixnum: "flonum->fixnum: result for +nan.0 would be outside of fixnum range". ieee.mo:Expected error in mat fllp: "fllp: 3 is not a flonum". @@ -6221,7 +6221,7 @@ date.mo:Expected error in mat time: "time>=?: 3 is not a time record". date.mo:Expected error in mat time: "time>=?: # is not a time record". date.mo:Expected error in mat time: "time>=?: types of