diff --git a/c/intern.c b/c/intern.c index 5e0d2958c..2030f3cd5 100644 --- a/c/intern.c +++ b/c/intern.c @@ -1,12 +1,12 @@ /* intern.c * Copyright 1984-2017 Cisco Systems, Inc. - * + * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at - * + * * http://www.apache.org/licenses/LICENSE-2.0 - * + * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. @@ -165,7 +165,7 @@ ptr S_intern(const unsigned char *s) { while (b != NULL) { sym = b->sym; if (!GENSYMP(sym)) { - ptr str = SYMNAME(sym); + ptr str = SYMNAME(sym); if (Sstring_length(str) == n) { iptr i; for (i = 0; ; i += 1) { @@ -269,7 +269,7 @@ ptr S_intern3(const string_char *pname, iptr plen, const string_char *uname, ipt } void S_intern_gensym(ptr sym, ptr sym_name) { - ptr uname_str = Scar(sym_name); + ptr uname_str = (Spairp(sym_name) ? Scar(sym_name) : sym_name); const string_char *uname = &STRIT(uname_str, 0); iptr ulen = Sstring_length(uname_str); iptr hc = hash_uname(uname, ulen); diff --git a/c/prim5.c b/c/prim5.c index e164e9694..59dc5a483 100644 --- a/c/prim5.c +++ b/c/prim5.c @@ -1152,7 +1152,7 @@ ptr S_uninterned(ptr x) { if (!(STRTYPE(x) & string_immutable_flag)) x = S_mkstring(&STRIT(x, 0), Sstring_length(x)); - sym = S_symbol(Scons(x, Sfalse)); + sym = S_symbol(Scons(Sfalse, x)); /* Wraparound on `hc++` is ok. It's technically illegal with threads, since multiple thread might increment `hc` at the same diff --git a/csug/objects.stex b/csug/objects.stex index 02b98850c..819871862 100644 --- a/csug/objects.stex +++ b/csug/objects.stex @@ -1,11 +1,11 @@ % Copyright 2005-2017 Cisco Systems, Inc. -% +% % Licensed under the Apache License, Version 2.0 (the "License"); % you may not use this file except in compliance with the License. % You may obtain a copy of the License at -% +% % http://www.apache.org/licenses/LICENSE-2.0 -% +% % Unless required by applicable law or agreed to in writing, software % distributed under the License is distributed on an "AS IS" BASIS, % WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. @@ -71,7 +71,7 @@ This predicate is not defined by the Revised$^6$ Report, but should be. \var{n} must be an exact nonnegative integer less than or equal to the length of \var{list}. -\scheme{list-head} and the standard Scheme procedure \scheme{list-tail} +\scheme{list-head} and the standard Scheme procedure \scheme{list-tail} may be used together to split a list into two separate lists. While \scheme{list-tail} performs no allocation but instead returns a sublist of the original list, \scheme{list-head} always returns a copy @@ -581,10 +581,10 @@ source before the operation began. (string-copy! s1 3 s2 1 3) s2 ;=> "-bol------" - + (string-copy! s1 7 s2 4 2) s2 ;=> "-bolly----" - + (string-copy! s2 2 s2 5 4) s2 ;=> "-bollolly-" \endschemedisplay @@ -943,7 +943,7 @@ In the case of \scheme{immutable-vector-copy}, \scheme{immutable-vector-append}, \formdef{self-evaluating-vectors}{\categorythreadparameter}{self-evaluating-vectors} \listlibraries \endentryheader - + \noindent The default value of this parameter is \scheme{#f}, meaning that vector literals must be quoted, as required by the Revised$^6$ Report. @@ -1154,7 +1154,7 @@ as \var{fxvector}. \endschemedisplay - + \section{Flonum-Only Vectors\label{SECTFLVECTORS}} \index{flvectors}% @@ -1352,7 +1352,7 @@ as \var{flvector}. \endschemedisplay - + \section{Bytevectors\label{SECTBYTEVECTORS}} As with vectors, {\ChezScheme} extends the syntax of bytevectors to allow @@ -1403,7 +1403,7 @@ A negative fill value is treated as its two's complement equivalent. The values in the returned list are exact eight-bit signed integers, i.e., values in the range -128 to 127 inclusive. -\scheme{bytevector->s8-list} is similar to the Revised$^6$ Report +\scheme{bytevector->s8-list} is similar to the Revised$^6$ Report \scheme{bytevector->u8-list} except the values in the returned list are signed rather than unsigned. @@ -1424,7 +1424,7 @@ are signed rather than unsigned. \var{list} must consist entirely of exact eight-bit signed integers, i.e., values in the range -128 to 127 inclusive. -\scheme{s8-list->bytevector} is similar to the Revised$^6$ Report +\scheme{s8-list->bytevector} is similar to the Revised$^6$ Report procedure \scheme{u8-list->bytevector}, except the elements of the input list are signed rather than unsigned. @@ -1464,21 +1464,21 @@ bv ;=> #vu8(19 19 19) %---------------------------------------------------------------------------- \entryheader \formdef{bytevector-u24-ref}{\categoryprocedure}{(bytevector-u24-ref \var{bytevector} \var{n} \var{eness})} -\returns the 24-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 24-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} \formdef{bytevector-s24-ref}{\categoryprocedure}{(bytevector-s24-ref \var{bytevector} \var{n} \var{eness})} -\returns the 24-bit signed integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 24-bit signed integer at index \var{n} (zero-based) of \var{bytevector} \formdef{bytevector-u40-ref}{\categoryprocedure}{(bytevector-u40-ref \var{bytevector} \var{n} \var{eness})} -\returns the 40-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 40-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} \formdef{bytevector-s40-ref}{\categoryprocedure}{(bytevector-s40-ref \var{bytevector} \var{n} \var{eness})} -\returns the 40-bit signed integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 40-bit signed integer at index \var{n} (zero-based) of \var{bytevector} \formdef{bytevector-u48-ref}{\categoryprocedure}{(bytevector-u48-ref \var{bytevector} \var{n} \var{eness})} -\returns the 48-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 48-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} \formdef{bytevector-s48-ref}{\categoryprocedure}{(bytevector-s48-ref \var{bytevector} \var{n} \var{eness})} -\returns the 48-bit signed integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 48-bit signed integer at index \var{n} (zero-based) of \var{bytevector} \formdef{bytevector-u56-ref}{\categoryprocedure}{(bytevector-u56-ref \var{bytevector} \var{n} \var{eness})} -\returns the 56-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 56-bit unsigned integer at index \var{n} (zero-based) of \var{bytevector} \formdef{bytevector-s56-ref}{\categoryprocedure}{(bytevector-s56-ref \var{bytevector} \var{n} \var{eness})} -\returns the 56-bit signed integer at index \var{n} (zero-based) of \var{bytevector} +\returns the 56-bit signed integer at index \var{n} (zero-based) of \var{bytevector} \listlibraries \endentryheader @@ -1988,7 +1988,7 @@ Symbol names may begin with \scheme{@}, but \scheme{,@abc} is parsed as \scheme{(unquote-splicing abc)}; to produce \scheme{(unquote @abc)} one can type \scheme{, @abc}, \scheme{\x40;abc}, or \scheme{,|@abc|}. -\item +\item The single-character sequences \scheme{\schlbrace} and \scheme{\schrbrace} are read as symbols. @@ -2025,7 +2025,6 @@ These extensions are disabled in an input stream after \scheme{#!r6rs} has been seen by the reader, unless \scheme{#!chezscheme} has been seen more recently. - %---------------------------------------------------------------------------- \entryheader\label{desc:gensym} \formdef{gensym}{\categoryprocedure}{(gensym)} @@ -2167,7 +2166,7 @@ These parameters are not consulted until that time; setting them when \endschemedisplay -%---------------------------------------------------------------------------- +% ---------------------------------------------------------------------------- \entryheader \formdef{gensym->unique-string}{\categoryprocedure}{(gensym->unique-string \var{gensym})} \returns the unique name of \var{gensym} @@ -2196,7 +2195,38 @@ These parameters are not consulted until that time; setting them when \endschemedisplay -%---------------------------------------------------------------------------- +% ---------------------------------------------------------------------------- +\entryheader +\formdef{generate-symbol}{\categoryprocedure}{(generate-symbol)} +\formdef{generate-symbol}{\categoryprocedure}{(generate-symbol \var{pretty-name})} +\returns an unguessable standard symbol +\listlibraries +\endentryheader + +\noindent +\index{generated symbols}Each call to \scheme{generate-symbol} returns +a symbol that is not identical to any existing or potentially existing +symbol. Contrary to the gensyms returned by \scheme{gensym}, the +symbols returned by \scheme{generate-symbol} are standard Revised$^6$ +Report symbols, two of which are identical if and only if their names +are spelled the same. + +As with gensyms, the symbol's name is generated lazily. If, as in the +second form above, a pretty name is given as a string, it is used as a +prefix for the generated name. Otherwise, the single character string +\scheme{"g"} is used. + +\schemedisplay +(generate-symbol) ;=> g-jj13vro48lgrjzoe5yun7fp9k +(generate-symbol "hello") ;=> hello-clo1em9up7ajy9ihclroexrfk +(let ([s (generate-symbol)]) + (symbol=? s (string->symbol (symbol->string s)))) ;=> #t +(gensym? (generate-symbol)) ;=> #f +(uninterned-symbol? (generate-symbol)) ;=> #f +\endschemedisplay + + +% ---------------------------------------------------------------------------- \entryheader \formdef{string->uninterned-symbol}{\categoryprocedure}{(string->uninterned-symbol \var{str})} \returns a fresh uninterned symbol @@ -2287,14 +2317,14 @@ the \var{default} argument is not supplied. \schemedisplay (putprop 'fred 'species 'snurd) -(putprop 'fred 'age 4) +(putprop 'fred 'age 4) (putprop 'fred 'colors '(black white)) (getprop 'fred 'species) ;=> snurd (getprop 'fred 'colors) ;=> (black white) (getprop 'fred 'nonkey) ;=> #f (getprop 'fred 'nonkey 'unknown) ;=> unknown - + (putprop 'fred 'species #f) (getprop 'fred 'species 'unknown) ;=> #f \endschemedisplay @@ -2630,7 +2660,7 @@ may return different subsets of \var{hashtable}'s entries. (hashtable-set! ht 'a "one") (hashtable-set! ht 'b "two") (hashtable-entries ht) ;=> #(a b) #("one" "two") \var{or the other permutation} -(hashtable-entries ht 1) ;=> #(a) #("one") \var{or} #(b) #("two") +(hashtable-entries ht 1) ;=> #(a) #("one") \var{or} #(b) #("two") \endschemedisplay %---------------------------------------------------------------------------- @@ -3575,7 +3605,7 @@ and \scheme{y}, and defines the following procedures: The names of these procedures follow a regular naming convention by default, but the programmer can override the defaults if desired. \scheme{define-record} allows the programmer to control which fields -are arguments to the generated constructor procedure and which +are arguments to the generated constructor procedure and which are explicitly initialized by the constructor procedure. Fields are mutable by default, but may be declared immutable. Fields can generally contain any Scheme value, but the internal @@ -3723,9 +3753,9 @@ where \var{name} is the ``pretty'' name of the record (not the full gensym) or the reader name first assigned to the record type. -%%% need more define-record examples +%%% need more define-record examples %%% - show use of field types other than ptr -%%% - show non-top-level use +%%% - show non-top-level use %%% make-record-type and company %%% - (scan primvars for record-related primitives) @@ -3769,7 +3799,7 @@ If the \scheme{immutable} class specifier is present, the field is immutable; otherwise, the field is mutable. \var{type}, if present, specifies how the field is represented, as described below. - + \begin{tabular}{ll}\label{record-field-types} \scheme{ptr} & any Scheme object\\ \scheme{scheme-object} & same as \scheme{ptr}\\ @@ -4159,7 +4189,7 @@ When passed only one argument, \scheme{record-writer} returns the record writer associated with \var{rtd}, which is initially the default record writer for all records. The default print method prints all records in a uniform syntax that -includes the generated name for the record +includes the generated name for the record and the values of each of the fields, as described in the introduction to this section. diff --git a/csug/syntax.stex b/csug/syntax.stex index 0e27fc5bc..73aa0113d 100644 --- a/csug/syntax.stex +++ b/csug/syntax.stex @@ -533,6 +533,17 @@ This procedure is identical to the Revised$^6$ Report \scheme{free-identifier=?}, and is provided for backward compatibility only. +%---------------------------------------------------------------------------- +\entryheader\label{generate-temporaries} +\formdef{generate-temporaries}{\categoryprocedure}{(generate-temporaries \var{list})} +\returns a list of distinct generated identifiers +\listlibraries +\endentryheader + +This procedure is identical to the Revised$^6$ Report +\scheme{generate-temporaries} except that the symbolic names of the +generated identifiers are gensyms and not standard Revised$^6$ Report symbols. + \section{Compile-time Values and Properties\label{SECTSYNTAXCTVS}} When defining sets of dependent macros, it is often convenient to attach diff --git a/mats/5_7.ms b/mats/5_7.ms index 58c0c31ae..d4cf415a5 100644 --- a/mats/5_7.ms +++ b/mats/5_7.ms @@ -1,12 +1,12 @@ ;;; 5-7.ms ;;; Copyright 1984-2017 Cisco Systems, Inc. -;;; +;;; ;;; Licensed under the Apache License, Version 2.0 (the "License"); ;;; you may not use this file except in compliance with the License. ;;; You may obtain a copy of the License at -;;; +;;; ;;; http://www.apache.org/licenses/LICENSE-2.0 -;;; +;;; ;;; Unless required by applicable law or agreed to in writing, software ;;; distributed under the License is distributed on an "AS IS" BASIS, ;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. @@ -139,6 +139,10 @@ (uninterned-symbol? (string->uninterned-symbol "hello")) (not (gensym? (string->uninterned-symbol "hello"))) + (let ([s (string->uninterned-symbol "hello")]) + (and (fixnum? (symbol-hash s)) + (eq? (symbol-hash s) (symbol-hash s)))) + (equal? "hello" (symbol->string (string->uninterned-symbol "hello"))) (immutable-string? (symbol->string (string->uninterned-symbol "hello"))) @@ -153,3 +157,51 @@ (equal? "hello" (symbol->string (car r))))))) ) + +(mat generate-symbol + (begin + (define ($force-intern! s) + (keep-live (symbol->string s))) + #t) + (symbol? (generate-symbol)) + (symbol? (generate-symbol "pretty")) + (let ([s (generate-symbol)]) + (and (fixnum? (symbol-hash s)) + (eq? (symbol-hash s) (symbol-hash s)))) + (let ([s (generate-symbol "pretty")]) + (and (fixnum? (symbol-hash s)) + (eq? (symbol-hash s) (symbol-hash s)))) + (symbol? (let ([x (generate-symbol)]) + ($force-intern! x) + x)) + (symbol? (let ([x (generate-symbol "pretty")]) + ($force-intern! x) + x)) + (not (uninterned-symbol? (generate-symbol))) + (not (uninterned-symbol? (generate-symbol "beautiful"))) + (not (uninterned-symbol? (let ([x (generate-symbol)]) + ($force-intern! x) + x))) + (not (uninterned-symbol? (let ([x (generate-symbol "beautiful")]) + ($force-intern! x) + x))) + (not (gensym? (generate-symbol))) + (not (gensym? (generate-symbol "handsome"))) + (not (gensym? (let ([x (generate-symbol)]) + ($force-intern! x) + x))) + (not (gensym? (let ([x (generate-symbol "handsome")]) + ($force-intern! x) + x))) + (let ([s (generate-symbol)]) + (symbol=? s s)) + (let ([s1 (generate-symbol)] [s2 (generate-symbol)]) + (not (symbol=? s1 s2))) + (let ([s1 (generate-symbol "g1")] [s2 (generate-symbol "g1")]) + (not (symbol=? s1 s2))) + (let ([s1 (generate-symbol "g1")] [s2 'g1]) + (not (symbol=? s1 s2))) + (let ([s (generate-symbol "g1")]) + (not (string=? (symbol->string s) "g1"))) + (let ([s (generate-symbol)]) + (symbol=? (string->symbol (symbol->string s)) s))) diff --git a/mats/8.ms b/mats/8.ms index 5ff89eef0..cacc0ea89 100644 --- a/mats/8.ms +++ b/mats/8.ms @@ -792,6 +792,40 @@ (equal? $gt-x '(53 -10 . 17)) ) +(mat r6rs:generate-temporaries + (error? (r6rs:generate-temporaries)) + (error? (r6rs:generate-temporaries '(a b c) '(d e f))) + (error? (r6rs:generate-temporaries '(a b . c))) + (error? (r6rs:generate-temporaries (let ([x (list 'a 'b 'c)]) (set-cdr! (cddr x) (cdr x)) x))) + (andmap identifier? (r6rs:generate-temporaries '(a b c))) + (= (length (r6rs:generate-temporaries '(a b c))) 3) + (andmap identifier? (r6rs:generate-temporaries #'(a b c))) + (= (length (r6rs:generate-temporaries #'(a b c))) 3) + (andmap identifier? (r6rs:generate-temporaries (cons 'q #'(1 2 3)))) + (= (length (r6rs:generate-temporaries (cons 'q #'(1 2 3)))) 4) + (andmap (lambda (x) (not (gensym? (syntax->datum x)))) (r6rs:generate-temporaries '(a b c))) + ; make sure r6rs:generate-temporaries isn't confused by annotations + (begin + (let ((op (open-output-file "testfile.ss" 'replace))) + (pretty-print + '(begin + (define-syntax $gt-a + (lambda (x) + (syntax-case x () + [(_ x) + (with-syntax ([(t1 t2 t3) (r6rs:generate-temporaries #'(1 1 1))]) + #'(define x (let ([t1 17] [t2 53] [t3 -10]) (cons* t2 t3 t1))))]))) + ($gt-a $gt-x)) + op) + (close-output-port op) + (compile-file "testfile.ss")) + #t) + (begin + (load "testfile.so") + #t) + (equal? $gt-x '(53 -10 . 17)) +) + (mat syntax->list (error? (syntax->list #'a)) (error? (syntax->list #'(a b . e))) diff --git a/mats/patch-compile-0-f-f-t b/mats/patch-compile-0-f-f-t index 0525a020f..b40f90c6e 100644 --- a/mats/patch-compile-0-f-f-t +++ b/mats/patch-compile-0-f-f-t @@ -1,7 +1,7 @@ -*** output-compile-0-f-f-f-experr/errors-compile-0-f-f-f Fri Feb 24 19:33:45 2023 ---- output-compile-0-f-f-t-experr/errors-compile-0-f-f-t Fri Feb 24 19:33:41 2023 +*** output-compile-0-f-f-f-experr/errors-compile-0-f-f-f 2025-01-31 10:14:10.594298664 +0100 +--- output-compile-0-f-f-t-experr/errors-compile-0-f-f-t 2025-01-31 10:14:02.370971352 +0100 *************** -*** 4052,4058 **** +*** 4057,4063 **** misc.mo:Expected error in mat compute-composition: "compute-composition: invalid generation -1". misc.mo:Expected error in mat compute-composition: "compute-composition: invalid generation "static"". misc.mo:Expected error in mat make-object-finder: "make-object-finder: 17 is not a procedure". @@ -9,7 +9,7 @@ misc.mo:Expected error in mat make-object-finder: "make-object-finder: invalid generation oldgen". misc.mo:Expected error in mat make-object-finder: "make-object-finder: invalid generation -1". misc.mo:Expected error in mat make-object-finder: "incorrect number of arguments 1 to #". ---- 4052,4058 ---- +--- 4057,4063 ---- misc.mo:Expected error in mat compute-composition: "compute-composition: invalid generation -1". misc.mo:Expected error in mat compute-composition: "compute-composition: invalid generation "static"". misc.mo:Expected error in mat make-object-finder: "make-object-finder: 17 is not a procedure". @@ -18,7 +18,7 @@ misc.mo:Expected error in mat make-object-finder: "make-object-finder: invalid generation -1". misc.mo:Expected error in mat make-object-finder: "incorrect number of arguments 1 to #". *************** -*** 7881,7891 **** +*** 7953,7963 **** 7.mo:Expected error in mat sstats: "set-sstats-gc-bytes!: twelve is not an exact integer". 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid generation yuk". 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid generation -1". @@ -30,7 +30,7 @@ 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". ---- 7881,7891 ---- +--- 7953,7963 ---- 7.mo:Expected error in mat sstats: "set-sstats-gc-bytes!: twelve is not an exact integer". 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid generation yuk". 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid generation -1". @@ -43,7 +43,7 @@ 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". *************** -*** 9412,9424 **** +*** 9490,9502 **** fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -57,7 +57,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". ---- 9412,9424 ---- +--- 9490,9502 ---- fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". diff --git a/mats/patch-compile-0-f-t-f b/mats/patch-compile-0-f-t-f index a8cb993c9..122e2f8dc 100644 --- a/mats/patch-compile-0-f-t-f +++ b/mats/patch-compile-0-f-t-f @@ -1,7 +1,7 @@ -*** output-compile-0-f-f-f-experr/errors-compile-0-f-f-f Fri Feb 24 19:33:45 2023 ---- output-compile-0-f-t-f-experr/errors-compile-0-f-t-f Fri Feb 24 19:33:42 2023 +*** output-compile-0-f-f-f-experr/errors-compile-0-f-f-f 2025-01-31 10:14:10.594298664 +0100 +--- output-compile-0-f-t-f-experr/errors-compile-0-f-t-f 2025-01-31 10:18:40.839547447 +0100 *************** -*** 207,213 **** +*** 212,218 **** 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". ---- 207,213 ---- +--- 212,218 ---- 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,26 +18,24 @@ 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". *************** -*** 226,233 **** +*** 231,237 **** 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". +! 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 f". -- 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". - 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable x". ---- 226,233 ---- +--- 231,237 ---- 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". -+ 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable g". +! 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable g". 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". - 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable x". *************** -*** 273,282 **** +*** 278,287 **** 3.mo:Expected error in mat mrvs: "returned 3 values to single value return context". 3.mo:Expected error in mat mrvs: "returned 3 values to single value return context". 3.mo:Expected error in mat mrvs: "returned 0 values to single value return context". @@ -48,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 2 values to single value return context". ---- 273,282 ---- +--- 278,287 ---- 3.mo:Expected error in mat mrvs: "returned 3 values to single value return context". 3.mo:Expected error in mat mrvs: "returned 3 values to single value return context". 3.mo:Expected error in mat mrvs: "returned 0 values to single value return context". @@ -60,7 +58,7 @@ 3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17". 3.mo:Expected error in mat mrvs: "returned 2 values to single value return context". *************** -*** 4094,4100 **** +*** 4101,4107 **** 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". @@ -68,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". ---- 4094,4100 ---- +--- 4101,4107 ---- 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". @@ -77,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". *************** -*** 7891,7898 **** +*** 7963,7970 **** 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". @@ -86,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)". ---- 7891,7898 ---- +--- 7963,7970 ---- 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". @@ -96,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)". *************** -*** 7900,7914 **** +*** 7972,7986 **** 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". @@ -112,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". ---- 7900,7914 ---- +--- 7972,7986 ---- 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". @@ -129,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". *************** -*** 7921,7946 **** +*** 7993,8018 **** 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 #". @@ -156,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". ---- 7921,7946 ---- +--- 7993,8018 ---- 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 #". @@ -184,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". *************** -*** 8075,8113 **** +*** 8147,8185 **** 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 # as bar". @@ -224,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". ---- 8075,8113 ---- +--- 8147,8185 ---- 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 # as bar". @@ -265,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". *************** -*** 8124,8181 **** +*** 8196,8253 **** 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". @@ -324,7 +322,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". ---- 8124,8181 ---- +--- 8196,8253 ---- 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/mats/patch-compile-0-f-t-t b/mats/patch-compile-0-f-t-t index f235c878c..69ab48956 100644 --- a/mats/patch-compile-0-f-t-t +++ b/mats/patch-compile-0-f-t-t @@ -1,7 +1,7 @@ -*** output-compile-0-f-t-f-experr/errors-compile-0-f-t-f Fri Feb 24 19:33:42 2023 ---- output-compile-0-f-t-t-experr/errors-compile-0-f-t-t Fri Feb 24 19:33:36 2023 +*** output-compile-0-f-t-f-experr/errors-compile-0-f-t-f 2025-01-31 10:18:40.839547447 +0100 +--- output-compile-0-f-t-t-experr/errors-compile-0-f-t-t 2025-01-31 10:18:43.348271940 +0100 *************** -*** 9412,9424 **** +*** 9490,9502 **** fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -15,7 +15,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". ---- 9412,9424 ---- +--- 9490,9502 ---- fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". diff --git a/mats/patch-compile-0-t-f-f b/mats/patch-compile-0-t-f-f index 846559535..df03b3359 100644 --- a/mats/patch-compile-0-t-f-f +++ b/mats/patch-compile-0-t-f-f @@ -1,5 +1,5 @@ -*** output-compile-0-f-f-f-experr/errors-compile-0-f-f-f Sat Oct 26 11:30:13 2024 ---- output-compile-0-t-f-f-experr/errors-compile-0-t-f-f Sat Oct 26 11:34:11 2024 +*** output-compile-0-f-f-f-experr/errors-compile-0-f-f-f 2025-01-31 10:14:10.594298664 +0100 +--- output-compile-0-t-f-f-experr/errors-compile-0-t-f-f 2025-01-31 10:20:19.547355131 +0100 *************** *** 180,186 **** 3.mo:Expected error in mat case-lambda: "incorrect number of arguments 2 to #". @@ -4634,24 +4634,22 @@ 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". *************** -*** 8202,8209 **** +*** 8202,8208 **** 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 #". -- record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 3 to #". +! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 3 to #". 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 # as foo". - record.mo:Expected error in mat r6rs-records-syntactic: "invalid syntax point". ---- 8202,8209 ---- +--- 8202,8208 ---- 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 #". +! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 4 to #". record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments 4 to #". -+ 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 # as foo". - record.mo:Expected error in mat r6rs-records-syntactic: "invalid syntax point". *************** *** 8293,8412 **** hash.mo:Expected error in mat old-hash-table: "hash-table-for-each: ((a . b)) is not an eq hashtable". @@ -5224,7 +5222,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 #". *************** -*** 8702,8709 **** +*** 8702,8713 **** 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)". @@ -5232,8 +5230,12 @@ ! 8.mo:Expected error in mat generate-temporaries: "incorrect argument count in call (generate-temporaries (quote (a b c)) (quote (d e f)))". 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 r6rs:generate-temporaries: "incorrect argument count in call (generate-temporaries)". +! 8.mo:Expected error in mat r6rs:generate-temporaries: "incorrect argument count in call (generate-temporaries (quote (a b c)) (quote (d e f)))". + 8.mo:Expected error in mat r6rs:generate-temporaries: "generate-temporaries: improper list structure (a b . c)". + 8.mo:Expected error in mat r6rs: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 #". ---- 8702,8709 ---- +--- 8702,8713 ---- 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)". @@ -5241,9 +5243,13 @@ ! 8.mo:Expected error in mat generate-temporaries: "incorrect number of arguments 2 to #". 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 r6rs:generate-temporaries: "incorrect number of arguments 0 to #". +! 8.mo:Expected error in mat r6rs:generate-temporaries: "incorrect number of arguments 2 to #". + 8.mo:Expected error in mat r6rs:generate-temporaries: "generate-temporaries: improper list structure (a b . c)". + 8.mo:Expected error in mat r6rs: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 #". *************** -*** 9320,9335 **** +*** 9324,9339 **** 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". @@ -5260,7 +5266,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 #". ---- 9320,9335 ---- +--- 9324,9339 ---- 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". @@ -5278,7 +5284,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 #". *************** -*** 9428,9450 **** +*** 9432,9454 **** 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". @@ -5302,7 +5308,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". ---- 9428,9450 ---- +--- 9432,9454 ---- 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". @@ -5327,7 +5333,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". *************** -*** 9486,9498 **** +*** 9490,9502 **** fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -5341,7 +5347,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". ---- 9486,9498 ---- +--- 9490,9502 ---- fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx-/wraparound: "fx-: <-int> is not a fixnum". fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum". @@ -5356,7 +5362,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". *************** -*** 9547,9559 **** +*** 9551,9563 **** 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". @@ -5370,7 +5376,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". ---- 9547,9559 ---- +--- 9551,9563 ---- 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". @@ -5385,7 +5391,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". *************** -*** 9659,9668 **** +*** 9663,9672 **** 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". @@ -5396,7 +5402,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". ---- 9659,9668 ---- +--- 9663,9672 ---- 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". @@ -5408,7 +5414,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". *************** -*** 9676,9709 **** +*** 9680,9713 **** 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". @@ -5443,7 +5449,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". ---- 9676,9709 ---- +--- 9680,9713 ---- 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". @@ -5479,7 +5485,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". *************** -*** 9713,9756 **** +*** 9717,9760 **** 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". @@ -5524,7 +5530,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". ---- 9713,9756 ---- +--- 9717,9760 ---- 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". @@ -5570,7 +5576,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". *************** -*** 9759,9769 **** +*** 9763,9773 **** 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 ". @@ -5582,7 +5588,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". ---- 9759,9769 ---- +--- 9763,9773 ---- 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 ". @@ -5595,7 +5601,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". *************** -*** 9823,9832 **** +*** 9827,9836 **** 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". @@ -5606,7 +5612,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". ---- 9823,9832 ---- +--- 9827,9836 ---- 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". @@ -5618,7 +5624,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". *************** -*** 9842,9851 **** +*** 9846,9855 **** 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". @@ -5629,7 +5635,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". ---- 9842,9851 ---- +--- 9846,9855 ---- 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". @@ -5641,7 +5647,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". *************** -*** 9861,9870 **** +*** 9865,9874 **** 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". @@ -5652,7 +5658,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". ---- 9861,9870 ---- +--- 9865,9874 ---- 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". @@ -5664,7 +5670,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". *************** -*** 9880,9890 **** +*** 9884,9894 **** 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". @@ -5676,7 +5682,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". ---- 9880,9890 ---- +--- 9884,9894 ---- 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". @@ -5689,7 +5695,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". *************** -*** 9907,9916 **** +*** 9911,9920 **** 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". @@ -5700,7 +5706,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". ---- 9907,9916 ---- +--- 9911,9920 ---- 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". @@ -5712,7 +5718,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". *************** -*** 9926,9943 **** +*** 9930,9947 **** 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". @@ -5731,7 +5737,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". ---- 9926,9943 ---- +--- 9930,9947 ---- 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". @@ -5751,7 +5757,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". *************** -*** 9945,9951 **** +*** 9949,9955 **** 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". @@ -5759,7 +5765,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". ---- 9945,9951 ---- +--- 9949,9955 ---- 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". @@ -5768,7 +5774,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". *************** -*** 9953,9959 **** +*** 9957,9963 **** 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". @@ -5776,7 +5782,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". ---- 9953,9959 ---- +--- 9957,9963 ---- 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". @@ -5785,7 +5791,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". *************** -*** 9961,9967 **** +*** 9965,9971 **** 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". @@ -5793,7 +5799,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". ---- 9961,9967 ---- +--- 9965,9971 ---- 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". @@ -5802,7 +5808,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". *************** -*** 9969,9975 **** +*** 9973,9979 **** 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". @@ -5810,7 +5816,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". ---- 9969,9975 ---- +--- 9973,9979 ---- 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". @@ -5819,7 +5825,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". *************** -*** 9977,10016 **** +*** 9981,10020 **** 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". @@ -5860,7 +5866,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". ---- 9977,10016 ---- +--- 9981,10020 ---- 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". @@ -5902,7 +5908,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". *************** -*** 10020,10026 **** +*** 10024,10030 **** 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". @@ -5910,7 +5916,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". ---- 10020,10026 ---- +--- 10024,10030 ---- 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". @@ -5919,7 +5925,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". *************** -*** 10030,10119 **** +*** 10034,10123 **** 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". @@ -6010,7 +6016,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". ---- 10030,10119 ---- +--- 10034,10123 ---- 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". @@ -6102,7 +6108,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". *************** -*** 10132,10167 **** +*** 10136,10171 **** 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". @@ -6139,7 +6145,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". ---- 10132,10167 ---- +--- 10136,10171 ---- 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". @@ -6177,7 +6183,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". *************** -*** 10169,10176 **** +*** 10173,10180 **** 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". @@ -6186,7 +6192,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". ---- 10169,10176 ---- +--- 10173,10180 ---- 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". @@ -6196,7 +6202,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". *************** -*** 10178,10184 **** +*** 10182,10188 **** 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". @@ -6204,7 +6210,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". ---- 10178,10184 ---- +--- 10182,10188 ---- 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". @@ -6213,7 +6219,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". *************** -*** 10186,10192 **** +*** 10190,10196 **** 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". @@ -6221,7 +6227,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". ---- 10186,10192 ---- +--- 10190,10196 ---- 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". @@ -6230,7 +6236,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". *************** -*** 10194,10207 **** +*** 10198,10211 **** 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". @@ -6245,7 +6251,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". ---- 10194,10207 ---- +--- 10198,10211 ---- 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". @@ -6261,7 +6267,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". *************** -*** 10230,10238 **** +*** 10234,10242 **** fl.mo:Expected error in mat fldiv0-and-mod0: "flmod0: 17 is not a flonum". fl.mo:Expected error in mat fldiv0-and-mod0: "flmod0: a is not a flonum". fl.mo:Expected error in mat fldiv0-and-mod0: "flmod0: (a) is not a flonum". @@ -6271,7 +6277,7 @@ fl.mo:Expected error in mat flbit-field: "flbit-field: 0 is not a flonum". fl.mo:Expected error in mat flbit-field: "flbit-field: invalid start index -1". fl.mo:Expected error in mat flbit-field: "flbit-field: invalid end index 1". ---- 10230,10238 ---- +--- 10234,10242 ---- fl.mo:Expected error in mat fldiv0-and-mod0: "flmod0: 17 is not a flonum". fl.mo:Expected error in mat fldiv0-and-mod0: "flmod0: a is not a flonum". fl.mo:Expected error in mat fldiv0-and-mod0: "flmod0: (a) is not a flonum". @@ -6282,7 +6288,7 @@ fl.mo:Expected error in mat flbit-field: "flbit-field: invalid start index -1". fl.mo:Expected error in mat flbit-field: "flbit-field: invalid end index 1". *************** -*** 10258,10264 **** +*** 10262,10268 **** 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". @@ -6290,7 +6296,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". ---- 10258,10264 ---- +--- 10262,10268 ---- 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". @@ -6299,7 +6305,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". *************** -*** 10268,10281 **** +*** 10272,10285 **** 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". @@ -6314,7 +6320,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"". ---- 10268,10281 ---- +--- 10272,10285 ---- 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". @@ -6330,7 +6336,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"". *************** -*** 10310,10317 **** +*** 10314,10321 **** 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". @@ -6339,7 +6345,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"". ---- 10310,10317 ---- +--- 10314,10321 ---- 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". @@ -6349,7 +6355,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"". *************** -*** 10831,10843 **** +*** 10843,10855 **** 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". @@ -6363,7 +6369,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". ---- 10831,10843 ---- +--- 10843,10855 ---- 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". @@ -6378,7 +6384,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". *************** -*** 10865,10936 **** +*** 10877,10948 **** 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". @@ -6451,7 +6457,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