add make-arity-wrapper-procedure
A program can use `make-arity-wrapper-procedure` to synthesize a function that reports a given arity mask (without calling `compile`). In addition, `set-arity-wrapper-procedure!` suports modifying the implementation of a synthesized procedure. Although similar functionality could be achieved with `(lambda args (apply (unbox proc) args))`, an arity wrapper procedure can dispatch to another procedure without allocating a list for the arguments. The interpreter now uses an internal variant of arity wrappers to cooperate with `procedure-arity-mask`. original commit: 295255a326afbf3f120f95c2ccc6e95b74fdd5e2
This commit is contained in:
Matthew Flatt
parent
db1ce365fc
commit
4c2528653e
4
LOG
4
LOG
|
|
@ -752,3 +752,7 @@
|
|||
a partial object file.
|
||||
syntax.ss,
|
||||
7.ms
|
||||
- add make-arity-wrapper
|
||||
cmacros.ss, cpnanopass.ss, interpret.ss, library.ss,
|
||||
primdata.ss, prims.ss, gc.c, objects.stex, release_notes.stex
|
||||
misc.ms, mats/patch*, mats/root*
|
||||
|
|
|
|||
6
c/gc.c
6
c/gc.c
|
|
@ -515,7 +515,11 @@ static ptr copy(pp, si) ptr pp; seginfo *si; {
|
|||
S_G.countof[tg][countof_closure] += 1;
|
||||
S_G.bytesof[tg][countof_closure] += n;
|
||||
#endif /* ENABLE_OBJECT_COUNTS */
|
||||
find_room(space_pure, tg, type_closure, n, p);
|
||||
if (CODETYPE(code) & (code_flag_mutable_closure << code_flags_offset)) {
|
||||
find_room(space_impure, tg, type_closure, n, p);
|
||||
} else {
|
||||
find_room(space_pure, tg, type_closure, n, p);
|
||||
}
|
||||
copy_ptrs(type_closure, p, pp, n);
|
||||
SETCLOSCODE(p,code);
|
||||
/* pad if necessary */
|
||||
|
|
|
|||
|
|
@ -3694,3 +3694,104 @@ encoding of all bits set is \scheme{-1}.
|
|||
(logbit? 2 (procedure-arity-mask pair?)) ;=> #f
|
||||
(logbit? 2 (procedure-arity-mask cons)) ;=> #t
|
||||
\endschemedisplay
|
||||
|
||||
%----------------------------------------------------------------------------
|
||||
\entryheader
|
||||
\formdef{make-arity-wrapper-procedure}{\categoryprocedure}{(make-arity-wrapper-procedure \var{proc} \var{arity-mask} \var{data})}
|
||||
\returns a procedure that behaves like \var{proc}, but with the given \var{arity-mask}
|
||||
\listlibraries
|
||||
\endentryheader
|
||||
|
||||
\noindent
|
||||
\var{proc} must be a procedure, and \var{arity-mask} must be an exact
|
||||
integer representing an arity mask in the sense of \scheme{procedure-arity-mask}.
|
||||
|
||||
The resulting procedure behaves the same as \var{proc}, except that
|
||||
\scheme{procedure-arity-mask} on the result procedure returns
|
||||
\var{arity-mask}. Although \var{arity-mask} determines the value
|
||||
reported by \scheme{procedure-arity-mask}, when the result procedure
|
||||
is called, its arguments are passed on to \var{proc} without checking
|
||||
whether the count is consistent with \var{arity-mask}.
|
||||
|
||||
The \var{data} argument can be any value, and it can be retrived from
|
||||
the result procedure with \scheme{arity-wrapper-procedure-data}.
|
||||
|
||||
\schemedisplay
|
||||
(define vector3 (make-arity-wrapper-procedure vector 8 #f))
|
||||
(procedure-arity-mask vector) ; => -1
|
||||
(procedure-arity-mask vector3) ; => 8
|
||||
(vector3 1 2 3) ;=> #(1 2 3)
|
||||
(vector3 1 2) ;=> #(1 2)
|
||||
\endschemedisplay
|
||||
|
||||
%----------------------------------------------------------------------------
|
||||
\entryheader
|
||||
\formdef{arity-wrapper-procedure?}{\categoryprocedure}{(arity-wrapper-procedure? \var{obj})}
|
||||
\returns \scheme{#t} if \var{obj} is an arity wrapper procedure, \scheme{#f} otherwise
|
||||
\listlibraries
|
||||
\endentryheader
|
||||
|
||||
\schemedisplay
|
||||
(arity-wrapper-procedure? vector) ; => #f
|
||||
(define vector3 (make-arity-wrapper-procedure vector 8 #f))
|
||||
(arity-wrapper-procedure? vector3) ; => #t
|
||||
\endschemedisplay
|
||||
|
||||
|
||||
%----------------------------------------------------------------------------
|
||||
\entryheader
|
||||
\formdef{arity-wrapper-procedure-data}{\categoryprocedure}{(arity-wrapper-procedure-data \var{aw-proc})}
|
||||
\returns the data store with the arity wrapper procedure \var{proc}
|
||||
\listlibraries
|
||||
\endentryheader
|
||||
|
||||
\noindent
|
||||
\var{aw-proc} must be an arity wrapper procedure produced by
|
||||
\scheme{make-arity-wrapper-procedure}.
|
||||
|
||||
|
||||
\schemedisplay
|
||||
(define vector3 (make-arity-wrapper-procedure vector 8 'my-data))
|
||||
(arity-wrapper-procedure-data vector3) ; => 'my-data
|
||||
\endschemedisplay
|
||||
|
||||
%----------------------------------------------------------------------------
|
||||
\entryheader
|
||||
\formdef{set-arity-wrapper-procedure-data!}{\categoryprocedure}{(set-arity-wrapper-procedure-data! \var{aw-proc} \var{data})}
|
||||
\returns unspecified
|
||||
\listlibraries
|
||||
\endentryheader
|
||||
|
||||
\noindent
|
||||
\var{aw-proc} must be an arity wrapper procedure produced by
|
||||
\scheme{make-arity-wrapper-procedure}.
|
||||
|
||||
Changes the data stored in \var{aw-proc} to \var{data}.
|
||||
|
||||
\schemedisplay
|
||||
(define vector3 (make-arity-wrapper-procedure vector 8 'my-data))
|
||||
(arity-wrapper-procedure-data vector3) ; => 'my-data
|
||||
(set-arity-wrapper-procedure-data! vector3 'my-new-data)
|
||||
(arity-wrapper-procedure-data vector3) ; => 'my-new-data
|
||||
\endschemedisplay
|
||||
|
||||
%----------------------------------------------------------------------------
|
||||
\entryheader
|
||||
\formdef{set-arity-wrapper-procedure!}{\categoryprocedure}{(set-arity-wrapper-procedure-data! \var{aw-proc} \var{proc})}
|
||||
\returns unspecified
|
||||
\listlibraries
|
||||
\endentryheader
|
||||
|
||||
\noindent
|
||||
\var{aw-proc} must be an arity wrapper procedure produced by
|
||||
\scheme{make-arity-wrapper-procedure}, and \var{proc} must be a procedure.
|
||||
|
||||
Changes \var{aw-proc} so that it behaves the same as \var{proc}, except that
|
||||
the result of \scheme{(procedure-arity-mask \var{aw-proc})} is unchanged.
|
||||
|
||||
\schemedisplay
|
||||
(define vector3 (make-arity-wrapper-procedure vector 8 'my-data))
|
||||
(vector3 1 2 3) ; => #(1 2 3)
|
||||
(set-arity-wrapper-procedure! vector3 list)
|
||||
(vector3 1 2 3) ; => (1 2 3)
|
||||
\endschemedisplay
|
||||
|
|
|
|||
54
mats/misc.ms
54
mats/misc.ms
|
|
@ -4914,8 +4914,11 @@
|
|||
(equal? (procedure-arity-mask (lambda () #f)) 1)
|
||||
(equal? (procedure-arity-mask (lambda (x) x)) 2)
|
||||
(equal? (procedure-arity-mask (lambda (x y z w) x)) 16)
|
||||
(equal? (procedure-arity-mask (interpret '(lambda (x y z w) x))) 16)
|
||||
(or (eq? (current-eval) interpret)
|
||||
(equal? (procedure-arity-mask (lambda (x y z w a b c d e f g h i j) x)) (ash 1 14)))
|
||||
(or (eq? (current-eval) interpret)
|
||||
(equal? (procedure-arity-mask (interpret '(lambda (x y z w a b c d e f g h i j) x))) (ash 1 14)))
|
||||
(or (eq? (current-eval) interpret)
|
||||
(and
|
||||
(equal? (procedure-arity-mask (case-lambda)) 0)
|
||||
|
|
@ -4948,6 +4951,57 @@
|
|||
(procedure-arity-mask 17))
|
||||
)
|
||||
|
||||
(mat arity-wrapper-procedure
|
||||
(error? (make-arity-wrapper-procedure))
|
||||
(error? (make-arity-wrapper-procedure (lambda args args)))
|
||||
(error? (make-arity-wrapper-procedure (lambda args args) 1))
|
||||
(error? (make-arity-wrapper-procedure 1 1 #f))
|
||||
(error? (make-arity-wrapper-procedure 'not-a-procedure 1 #f))
|
||||
(error? (make-arity-wrapper-procedure (lambda args args) 'not-an-exact-integer #f))
|
||||
(error? (make-arity-wrapper-procedure (lambda args args) 1.0 #f))
|
||||
|
||||
(equal? ((make-arity-wrapper-procedure (lambda args args) 8 #f) 1 2 3)
|
||||
'(1 2 3))
|
||||
(equal? ((make-arity-wrapper-procedure (lambda args args) 1 #f) 1 2 3) ; arity not checked!
|
||||
'(1 2 3))
|
||||
|
||||
(equal? (procedure-arity-mask (make-arity-wrapper-procedure (lambda args args) 1 #f))
|
||||
1)
|
||||
(equal? (procedure-arity-mask (make-arity-wrapper-procedure (lambda args args) -12345 #f))
|
||||
-12345)
|
||||
|
||||
(not (arity-wrapper-procedure? 10))
|
||||
(not (arity-wrapper-procedure? (lambda args args)))
|
||||
(not (arity-wrapper-procedure? (interpret '(lambda args args))))
|
||||
(arity-wrapper-procedure? (make-arity-wrapper-procedure (lambda args args) 1 #f))
|
||||
|
||||
(error? (arity-wrapper-procedure-data 1))
|
||||
(error? (arity-wrapper-procedure-data (lambda args args)))
|
||||
(error? (arity-wrapper-procedure-data (interpret '(lambda args args))))
|
||||
(equal? (arity-wrapper-procedure-data (make-arity-wrapper-procedure (lambda args args) 1 'data))
|
||||
'data)
|
||||
|
||||
(error? (set-arity-wrapper-procedure!))
|
||||
(error? (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f)))
|
||||
(error? (set-arity-wrapper-procedure! 1 void))
|
||||
(error? (set-arity-wrapper-procedure! (lambda args args) void))
|
||||
(error? (set-arity-wrapper-procedure! (interpret '(lambda args args)) void))
|
||||
(let ([p (make-arity-wrapper-procedure (lambda args args) 8 #f)])
|
||||
(set-arity-wrapper-procedure! p vector)
|
||||
(equal? (p 1 2 3)
|
||||
'#(1 2 3)))
|
||||
|
||||
(error? (set-arity-wrapper-procedure-data!))
|
||||
(error? (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f)))
|
||||
(error? (set-arity-wrapper-procedure-data! 1 #t))
|
||||
(error? (set-arity-wrapper-procedure-data! (lambda args args) #t))
|
||||
(error? (set-arity-wrapper-procedure! (interpret '(lambda args args)) #t))
|
||||
(let ([p (make-arity-wrapper-procedure (lambda args args) 8 'data)])
|
||||
(set-arity-wrapper-procedure-data! p 'other-data)
|
||||
(equal? (arity-wrapper-procedure-data p)
|
||||
'other-data))
|
||||
)
|
||||
|
||||
(mat fasl-immutable
|
||||
(begin
|
||||
(define immutable-objs (list (vector->immutable-vector '#(1 2 3))
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-0-f-f-f 2017-10-27 11:03:39.000000000 -0400
|
||||
--- errors-compile-0-f-t-f 2017-10-27 10:30:43.000000000 -0400
|
||||
*** errors-compile-0-f-f-f 2017-12-01 13:23:05.590785619 -0700
|
||||
--- errors-compile-0-f-t-f 2017-12-01 12:53:20.790816205 -0700
|
||||
***************
|
||||
*** 125,131 ****
|
||||
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
|
||||
|
|
@ -109,7 +109,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".
|
||||
***************
|
||||
*** 7123,7130 ****
|
||||
*** 7143,7150 ****
|
||||
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".
|
||||
|
|
@ -118,7 +118,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 type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
--- 7123,7130 ----
|
||||
--- 7143,7150 ----
|
||||
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".
|
||||
|
|
@ -128,7 +128,7 @@
|
|||
record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
***************
|
||||
*** 7132,7146 ****
|
||||
*** 7152,7166 ****
|
||||
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".
|
||||
|
|
@ -144,7 +144,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".
|
||||
--- 7132,7146 ----
|
||||
--- 7152,7166 ----
|
||||
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".
|
||||
|
|
@ -161,7 +161,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".
|
||||
***************
|
||||
*** 7153,7178 ****
|
||||
*** 7173,7198 ****
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -188,7 +188,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: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
--- 7153,7178 ----
|
||||
--- 7173,7198 ----
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -216,7 +216,7 @@
|
|||
record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
***************
|
||||
*** 7303,7341 ****
|
||||
*** 7323,7361 ****
|
||||
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 #<record type foo>".
|
||||
|
|
@ -256,7 +256,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".
|
||||
--- 7303,7341 ----
|
||||
--- 7323,7361 ----
|
||||
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 #<record type foo>".
|
||||
|
|
@ -297,7 +297,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".
|
||||
***************
|
||||
*** 7350,7406 ****
|
||||
*** 7370,7426 ****
|
||||
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".
|
||||
|
|
@ -355,7 +355,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".
|
||||
--- 7350,7406 ----
|
||||
--- 7370,7426 ----
|
||||
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".
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-0-f-f-f 2017-10-27 11:03:39.000000000 -0400
|
||||
--- errors-compile-0-t-f-f 2017-10-27 10:38:13.000000000 -0400
|
||||
*** errors-compile-0-f-f-f 2017-12-01 13:23:05.590785619 -0700
|
||||
--- errors-compile-0-t-f-f 2017-12-01 13:00:02.830809316 -0700
|
||||
***************
|
||||
*** 93,99 ****
|
||||
3.mo:Expected error in mat case-lambda: "incorrect number of arguments to #<procedure foo>".
|
||||
|
|
@ -3819,7 +3819,57 @@
|
|||
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".
|
||||
***************
|
||||
*** 3808,3816 ****
|
||||
*** 3797,3805 ****
|
||||
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".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure)".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure (lambda args args))".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure (lambda args args) 1)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1 is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-a-procedure is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
--- 3797,3805 ----
|
||||
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".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #<procedure make-arity-wrapper-procedure>".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #<procedure make-arity-wrapper-procedure>".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #<procedure make-arity-wrapper-procedure>".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1 is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-a-procedure is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
***************
|
||||
*** 3807,3819 ****
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure!)".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data!)".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
--- 3807,3819 ----
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #<procedure set-arity-wrapper-procedure!>".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #<procedure set-arity-wrapper-procedure!>".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #<procedure set-arity-wrapper-procedure-data!>".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #<procedure set-arity-wrapper-procedure-data!>".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
***************
|
||||
*** 3828,3836 ****
|
||||
cp0.mo:Expected error in mat cp0-regression: "source-object-efp: #f is not a source object".
|
||||
cp0.mo:Expected error in mat cp0-regression: "source-object-sfd: #f is not a source object".
|
||||
cp0.mo:Expected error in mat cp0-regression: "condition: #f is not a condition".
|
||||
|
|
@ -3829,7 +3879,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: #<binary output port bytevector> 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".
|
||||
--- 3808,3816 ----
|
||||
--- 3828,3836 ----
|
||||
cp0.mo:Expected error in mat cp0-regression: "source-object-efp: #f is not a source object".
|
||||
cp0.mo:Expected error in mat cp0-regression: "source-object-sfd: #f is not a source object".
|
||||
cp0.mo:Expected error in mat cp0-regression: "condition: #f is not a condition".
|
||||
|
|
@ -3840,7 +3890,7 @@
|
|||
cp0.mo:Expected error in mat expand-output: "expand-output: #<binary output port bytevector> 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".
|
||||
***************
|
||||
*** 3874,3882 ****
|
||||
*** 3894,3902 ****
|
||||
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".
|
||||
|
|
@ -3850,7 +3900,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".
|
||||
5_6.mo:Expected error in mat vector-map: "vector-map: #() is not a procedure".
|
||||
--- 3874,3882 ----
|
||||
--- 3894,3902 ----
|
||||
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".
|
||||
|
|
@ -3861,7 +3911,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".
|
||||
***************
|
||||
*** 3891,3899 ****
|
||||
*** 3911,3919 ****
|
||||
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".
|
||||
|
|
@ -3871,7 +3921,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".
|
||||
--- 3891,3899 ----
|
||||
--- 3911,3919 ----
|
||||
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".
|
||||
|
|
@ -3882,7 +3932,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".
|
||||
***************
|
||||
*** 3908,3925 ****
|
||||
*** 3928,3945 ****
|
||||
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".
|
||||
|
|
@ -3901,7 +3951,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".
|
||||
--- 3908,3925 ----
|
||||
--- 3928,3945 ----
|
||||
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".
|
||||
|
|
@ -3921,7 +3971,7 @@
|
|||
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".
|
||||
***************
|
||||
*** 3987,4008 ****
|
||||
*** 4007,4028 ****
|
||||
6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #<output port testfile.ss>".
|
||||
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".
|
||||
|
|
@ -3944,7 +3994,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".
|
||||
--- 3987,4008 ----
|
||||
--- 4007,4028 ----
|
||||
6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #<output port testfile.ss>".
|
||||
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".
|
||||
|
|
@ -3968,7 +4018,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".
|
||||
***************
|
||||
*** 4011,4017 ****
|
||||
*** 4031,4037 ****
|
||||
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: #<input port testfile.ss> is not an output port".
|
||||
6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port".
|
||||
|
|
@ -3976,7 +4026,7 @@
|
|||
6.mo:Expected error in mat port-operations1: "truncate-file: not permitted on closed port #<input/output port testfile.ss>".
|
||||
6.mo:Expected error in mat port-operations1: "get-output-string: #<input port string> is not a string output port".
|
||||
6.mo:Expected error in mat port-operations1: "get-output-string: #<output port testfile.ss> is not a string output port".
|
||||
--- 4011,4017 ----
|
||||
--- 4031,4037 ----
|
||||
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: #<input port testfile.ss> is not an output port".
|
||||
6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port".
|
||||
|
|
@ -3985,7 +4035,7 @@
|
|||
6.mo:Expected error in mat port-operations1: "get-output-string: #<input port string> is not a string output port".
|
||||
6.mo:Expected error in mat port-operations1: "get-output-string: #<output port testfile.ss> is not a string output port".
|
||||
***************
|
||||
*** 4028,4035 ****
|
||||
*** 4048,4055 ****
|
||||
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: #<input port string> is not a textual output port".
|
||||
|
|
@ -3994,7 +4044,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 warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "~a~~~s" in call to format".
|
||||
--- 4028,4035 ----
|
||||
--- 4048,4055 ----
|
||||
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: #<input port string> is not a textual output port".
|
||||
|
|
@ -4004,7 +4054,7 @@
|
|||
6.mo:Expected error in mat pretty-print: "pretty-format: invalid format (bad 0 ... ... 0 format)".
|
||||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "~a~~~s" in call to format".
|
||||
***************
|
||||
*** 6513,6544 ****
|
||||
*** 6533,6564 ****
|
||||
io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #<binary output port testfile.ss>".
|
||||
io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #<binary output port testfile.ss>".
|
||||
io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #<binary output port testfile.ss>".
|
||||
|
|
@ -4037,7 +4087,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".
|
||||
--- 6513,6544 ----
|
||||
--- 6533,6564 ----
|
||||
io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #<binary output port testfile.ss>".
|
||||
io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #<binary output port testfile.ss>".
|
||||
io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #<binary output port testfile.ss>".
|
||||
|
|
@ -4071,7 +4121,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".
|
||||
***************
|
||||
*** 6549,6555 ****
|
||||
*** 6569,6575 ****
|
||||
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: #<binary input port testfile.ss> is not an output port".
|
||||
io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port".
|
||||
|
|
@ -4079,7 +4129,7 @@
|
|||
io.mo:Expected error in mat port-operations1: "truncate-port: not permitted on closed port #<binary input/output port testfile.ss>".
|
||||
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".
|
||||
--- 6549,6555 ----
|
||||
--- 6569,6575 ----
|
||||
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: #<binary input port testfile.ss> is not an output port".
|
||||
io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port".
|
||||
|
|
@ -4088,7 +4138,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".
|
||||
***************
|
||||
*** 6732,6744 ****
|
||||
*** 6752,6764 ****
|
||||
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 #<binary output port bytevector>".
|
||||
io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #<binary output port bytevector>".
|
||||
io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #<binary output port bytevector>".
|
||||
|
|
@ -4102,7 +4152,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".
|
||||
--- 6732,6744 ----
|
||||
--- 6752,6764 ----
|
||||
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 #<binary output port bytevector>".
|
||||
io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #<binary output port bytevector>".
|
||||
io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #<binary output port bytevector>".
|
||||
|
|
@ -4117,7 +4167,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".
|
||||
***************
|
||||
*** 6746,6761 ****
|
||||
*** 6766,6781 ****
|
||||
io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: 1024.0 is not a positive fixnum".
|
||||
io.mo:Expected error in mat compression: "port-file-compressed!: #<output port string> is not a file port".
|
||||
io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #<binary input/output port testfile.ss>".
|
||||
|
|
@ -4134,7 +4184,7 @@
|
|||
io.mo:Expected error in mat custom-binary-ports: "unget-u8: cannot unget 255 on #<binary input port foo>".
|
||||
io.mo:Expected error in mat custom-binary-ports: "put-u8: #<binary input port foo> is not a binary output port".
|
||||
io.mo:Expected error in mat custom-binary-ports: "port-length: #<binary input port foo> does not support operation".
|
||||
--- 6746,6761 ----
|
||||
--- 6766,6781 ----
|
||||
io.mo:Expected error in mat custom-port-buffer-size: "custom-port-buffer-size: 1024.0 is not a positive fixnum".
|
||||
io.mo:Expected error in mat compression: "port-file-compressed!: #<output port string> is not a file port".
|
||||
io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #<binary input/output port testfile.ss>".
|
||||
|
|
@ -4152,7 +4202,7 @@
|
|||
io.mo:Expected error in mat custom-binary-ports: "put-u8: #<binary input port foo> is not a binary output port".
|
||||
io.mo:Expected error in mat custom-binary-ports: "port-length: #<binary input port foo> does not support operation".
|
||||
***************
|
||||
*** 6827,6842 ****
|
||||
*** 6847,6862 ****
|
||||
io.mo:Expected error in mat current-ports: "console-output-port: #<input port string> is not a textual output port".
|
||||
io.mo:Expected error in mat current-ports: "console-error-port: #<input port string> is not a textual output port".
|
||||
io.mo:Expected error in mat current-transcoder: "current-transcoder: #<output port string> is not a transcoder".
|
||||
|
|
@ -4169,7 +4219,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 #<input port string>".
|
||||
io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #<input port string>".
|
||||
--- 6827,6842 ----
|
||||
--- 6847,6862 ----
|
||||
io.mo:Expected error in mat current-ports: "console-output-port: #<input port string> is not a textual output port".
|
||||
io.mo:Expected error in mat current-ports: "console-error-port: #<input port string> is not a textual output port".
|
||||
io.mo:Expected error in mat current-transcoder: "current-transcoder: #<output port string> is not a transcoder".
|
||||
|
|
@ -4187,7 +4237,7 @@
|
|||
io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 0 of #<input port string>".
|
||||
io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #<input port string>".
|
||||
***************
|
||||
*** 7007,7013 ****
|
||||
*** 7027,7033 ****
|
||||
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".
|
||||
|
|
@ -4195,7 +4245,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
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: attempt to invoke library (testfile-wpo-c5) while it is still being loaded
|
||||
--- 7007,7013 ----
|
||||
--- 7027,7033 ----
|
||||
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".
|
||||
|
|
@ -4204,7 +4254,7 @@
|
|||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-c4) not found
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: attempt to invoke library (testfile-wpo-c5) while it is still being loaded
|
||||
***************
|
||||
*** 7021,7047 ****
|
||||
*** 7041,7067 ****
|
||||
7.mo:Expected error in mat compile-whole-library: "separate-eval: Exception: library (testfile-cwl-c6) not found
|
||||
7.mo:Expected error in mat compile-whole-library: "separate-compile: Exception in compile-whole-library: encountered visit-only run-time library (testfile-cwl-a9) while processing file "testfile-cwl-a9.wpo"
|
||||
7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: "hello" is not a symbol".
|
||||
|
|
@ -4232,7 +4282,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: #<environment *scheme*> is not a symbol".
|
||||
7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound".
|
||||
--- 7021,7047 ----
|
||||
--- 7041,7067 ----
|
||||
7.mo:Expected error in mat compile-whole-library: "separate-eval: Exception: library (testfile-cwl-c6) not found
|
||||
7.mo:Expected error in mat compile-whole-library: "separate-compile: Exception in compile-whole-library: encountered visit-only run-time library (testfile-cwl-a9) while processing file "testfile-cwl-a9.wpo"
|
||||
7.mo:Expected error in mat top-level-value-functions: "top-level-bound?: "hello" is not a symbol".
|
||||
|
|
@ -4261,7 +4311,7 @@
|
|||
7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: #<environment *scheme*> is not a symbol".
|
||||
7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound".
|
||||
***************
|
||||
*** 7438,7531 ****
|
||||
*** 7458,7551 ****
|
||||
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 to #<procedure>".
|
||||
hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #<procedure>".
|
||||
|
|
@ -4356,7 +4406,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 #<procedure> return value "oops" for any".
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function #<procedure> return value 3.5 for any".
|
||||
--- 7438,7531 ----
|
||||
--- 7458,7551 ----
|
||||
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 to #<procedure>".
|
||||
hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #<procedure>".
|
||||
|
|
@ -4452,7 +4502,7 @@
|
|||
hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function #<procedure> return value "oops" for any".
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function #<procedure> return value 3.5 for any".
|
||||
***************
|
||||
*** 7545,7651 ****
|
||||
*** 7565,7671 ****
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function #<procedure> return value "oops" for any".
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function #<procedure> return value 3.5 for any".
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function #<procedure> return value 1+2i for any".
|
||||
|
|
@ -4560,7 +4610,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".
|
||||
--- 7545,7651 ----
|
||||
--- 7565,7671 ----
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function #<procedure> return value "oops" for any".
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function #<procedure> return value 3.5 for any".
|
||||
hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function #<procedure> return value 1+2i for any".
|
||||
|
|
@ -4669,7 +4719,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".
|
||||
***************
|
||||
*** 7653,7668 ****
|
||||
*** 7673,7688 ****
|
||||
hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: #<hashtable> is not mutable".
|
||||
hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: #<hashtable> is not mutable".
|
||||
hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: #<hashtable> is not mutable".
|
||||
|
|
@ -4686,7 +4736,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 #<eqv hashtable>".
|
||||
hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #<hashtable>".
|
||||
--- 7653,7668 ----
|
||||
--- 7673,7688 ----
|
||||
hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: #<hashtable> is not mutable".
|
||||
hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: #<hashtable> is not mutable".
|
||||
hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: #<hashtable> is not mutable".
|
||||
|
|
@ -4704,7 +4754,7 @@
|
|||
hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #<eqv hashtable>".
|
||||
hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #<hashtable>".
|
||||
***************
|
||||
*** 7778,7785 ****
|
||||
*** 7798,7805 ****
|
||||
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)".
|
||||
|
|
@ -4713,7 +4763,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 #<syntax a>".
|
||||
--- 7778,7785 ----
|
||||
--- 7798,7805 ----
|
||||
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)".
|
||||
|
|
@ -4723,7 +4773,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 #<syntax a>".
|
||||
***************
|
||||
*** 8367,8382 ****
|
||||
*** 8387,8402 ****
|
||||
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 #<procedure vector>))".
|
||||
8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol".
|
||||
|
|
@ -4740,7 +4790,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: #<environment *scheme*> is not a symbol".
|
||||
8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #<environment *scheme*>".
|
||||
--- 8367,8382 ----
|
||||
--- 8387,8402 ----
|
||||
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 #<procedure vector>))".
|
||||
8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol".
|
||||
|
|
@ -4758,7 +4808,7 @@
|
|||
8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: #<environment *scheme*> is not a symbol".
|
||||
8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #<environment *scheme*>".
|
||||
***************
|
||||
*** 8475,8497 ****
|
||||
*** 8495,8517 ****
|
||||
fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum".
|
||||
fx.mo:Expected error in mat fx=?: "fx=?: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum".
|
||||
|
|
@ -4782,7 +4832,7 @@
|
|||
fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #<procedure $fxu<>".
|
||||
fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #<procedure $fxu<>".
|
||||
fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum".
|
||||
--- 8475,8497 ----
|
||||
--- 8495,8517 ----
|
||||
fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum".
|
||||
fx.mo:Expected error in mat fx=?: "fx=?: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum".
|
||||
|
|
@ -4807,7 +4857,7 @@
|
|||
fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #<procedure $fxu<>".
|
||||
fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum".
|
||||
***************
|
||||
*** 8523,8535 ****
|
||||
*** 8543,8555 ****
|
||||
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".
|
||||
|
|
@ -4821,7 +4871,7 @@
|
|||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <int> 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".
|
||||
--- 8523,8535 ----
|
||||
--- 8543,8555 ----
|
||||
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".
|
||||
|
|
@ -4836,7 +4886,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".
|
||||
***************
|
||||
*** 8579,8591 ****
|
||||
*** 8599,8611 ****
|
||||
fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fx1+: "fx1+: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum".
|
||||
|
|
@ -4850,7 +4900,7 @@
|
|||
fx.mo:Expected error in mat fxmax: "fxmax: a is not a fixnum".
|
||||
fx.mo:Expected error in mat fxmax: "fxmax: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum".
|
||||
--- 8579,8591 ----
|
||||
--- 8599,8611 ----
|
||||
fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fx1+: "fx1+: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum".
|
||||
|
|
@ -4865,7 +4915,7 @@
|
|||
fx.mo:Expected error in mat fxmax: "fxmax: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum".
|
||||
***************
|
||||
*** 8683,8692 ****
|
||||
*** 8703,8712 ****
|
||||
fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <int> and 10".
|
||||
fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and <int>".
|
||||
fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1".
|
||||
|
|
@ -4876,7 +4926,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".
|
||||
--- 8683,8692 ----
|
||||
--- 8703,8712 ----
|
||||
fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <int> and 10".
|
||||
fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and <int>".
|
||||
fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1".
|
||||
|
|
@ -4888,7 +4938,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".
|
||||
***************
|
||||
*** 8700,8733 ****
|
||||
*** 8720,8753 ****
|
||||
fx.mo:Expected error in mat fxbit-field: "fxbit-field: <int> is not a valid end index".
|
||||
fx.mo:Expected error in mat fxbit-field: "fxbit-field: <int> is not a valid start index".
|
||||
fx.mo:Expected error in mat fxbit-field: "fxbit-field: <int> is not a valid end index".
|
||||
|
|
@ -4923,7 +4973,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".
|
||||
--- 8700,8733 ----
|
||||
--- 8720,8753 ----
|
||||
fx.mo:Expected error in mat fxbit-field: "fxbit-field: <int> is not a valid end index".
|
||||
fx.mo:Expected error in mat fxbit-field: "fxbit-field: <int> is not a valid start index".
|
||||
fx.mo:Expected error in mat fxbit-field: "fxbit-field: <int> is not a valid end index".
|
||||
|
|
@ -4959,7 +5009,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".
|
||||
***************
|
||||
*** 8737,8780 ****
|
||||
*** 8757,8800 ****
|
||||
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".
|
||||
|
|
@ -5004,7 +5054,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: <int> is not a fixnum".
|
||||
--- 8737,8780 ----
|
||||
--- 8757,8800 ----
|
||||
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".
|
||||
|
|
@ -5050,7 +5100,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: <int> is not a fixnum".
|
||||
***************
|
||||
*** 8783,8793 ****
|
||||
*** 8803,8813 ****
|
||||
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 <int>".
|
||||
fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index <int>".
|
||||
|
|
@ -5062,7 +5112,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".
|
||||
--- 8783,8793 ----
|
||||
--- 8803,8813 ----
|
||||
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 <int>".
|
||||
fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index <int>".
|
||||
|
|
@ -5075,7 +5125,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".
|
||||
***************
|
||||
*** 8847,8856 ****
|
||||
*** 8867,8876 ****
|
||||
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".
|
||||
|
|
@ -5086,7 +5136,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".
|
||||
--- 8847,8856 ----
|
||||
--- 8867,8876 ----
|
||||
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".
|
||||
|
|
@ -5098,7 +5148,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".
|
||||
***************
|
||||
*** 8866,8875 ****
|
||||
*** 8886,8895 ****
|
||||
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".
|
||||
|
|
@ -5109,7 +5159,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".
|
||||
--- 8866,8875 ----
|
||||
--- 8886,8895 ----
|
||||
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".
|
||||
|
|
@ -5121,7 +5171,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".
|
||||
***************
|
||||
*** 8885,8894 ****
|
||||
*** 8905,8914 ****
|
||||
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".
|
||||
|
|
@ -5132,7 +5182,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".
|
||||
--- 8885,8894 ----
|
||||
--- 8905,8914 ----
|
||||
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".
|
||||
|
|
@ -5144,7 +5194,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".
|
||||
***************
|
||||
*** 8904,8914 ****
|
||||
*** 8924,8934 ****
|
||||
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".
|
||||
|
|
@ -5156,7 +5206,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".
|
||||
--- 8904,8914 ----
|
||||
--- 8924,8934 ----
|
||||
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".
|
||||
|
|
@ -5169,7 +5219,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".
|
||||
***************
|
||||
*** 8931,8940 ****
|
||||
*** 8951,8960 ****
|
||||
fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index <int>".
|
||||
fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index <int>".
|
||||
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".
|
||||
|
|
@ -5180,7 +5230,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".
|
||||
--- 8931,8940 ----
|
||||
--- 8951,8960 ----
|
||||
fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index <int>".
|
||||
fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index <int>".
|
||||
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".
|
||||
|
|
@ -5192,7 +5242,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".
|
||||
***************
|
||||
*** 8950,8967 ****
|
||||
*** 8970,8987 ****
|
||||
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: 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".
|
||||
|
|
@ -5211,7 +5261,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".
|
||||
--- 8950,8967 ----
|
||||
--- 8970,8987 ----
|
||||
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: 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".
|
||||
|
|
@ -5231,7 +5281,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".
|
||||
***************
|
||||
*** 8969,8975 ****
|
||||
*** 8989,8995 ****
|
||||
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".
|
||||
|
|
@ -5239,7 +5289,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".
|
||||
--- 8969,8975 ----
|
||||
--- 8989,8995 ----
|
||||
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".
|
||||
|
|
@ -5248,7 +5298,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".
|
||||
***************
|
||||
*** 8977,8983 ****
|
||||
*** 8997,9003 ****
|
||||
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".
|
||||
|
|
@ -5256,7 +5306,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".
|
||||
--- 8977,8983 ----
|
||||
--- 8997,9003 ----
|
||||
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".
|
||||
|
|
@ -5265,7 +5315,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".
|
||||
***************
|
||||
*** 8985,8991 ****
|
||||
*** 9005,9011 ****
|
||||
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".
|
||||
|
|
@ -5273,7 +5323,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".
|
||||
--- 8985,8991 ----
|
||||
--- 9005,9011 ----
|
||||
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".
|
||||
|
|
@ -5282,7 +5332,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".
|
||||
***************
|
||||
*** 8993,8999 ****
|
||||
*** 9013,9019 ****
|
||||
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".
|
||||
|
|
@ -5290,7 +5340,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".
|
||||
--- 8993,8999 ----
|
||||
--- 9013,9019 ----
|
||||
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".
|
||||
|
|
@ -5299,7 +5349,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".
|
||||
***************
|
||||
*** 9001,9040 ****
|
||||
*** 9021,9060 ****
|
||||
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".
|
||||
|
|
@ -5340,7 +5390,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".
|
||||
--- 9001,9040 ----
|
||||
--- 9021,9060 ----
|
||||
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".
|
||||
|
|
@ -5382,7 +5432,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".
|
||||
***************
|
||||
*** 9044,9050 ****
|
||||
*** 9064,9070 ****
|
||||
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".
|
||||
|
|
@ -5390,7 +5440,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".
|
||||
--- 9044,9050 ----
|
||||
--- 9064,9070 ----
|
||||
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".
|
||||
|
|
@ -5399,7 +5449,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".
|
||||
***************
|
||||
*** 9054,9136 ****
|
||||
*** 9074,9156 ****
|
||||
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".
|
||||
|
|
@ -5483,7 +5533,7 @@
|
|||
fl.mo:Expected error in mat flround: "flround: a is not a flonum".
|
||||
fl.mo:Expected error in mat flround: "flround: 2.0+1.0i is not a flonum".
|
||||
fl.mo:Expected error in mat flround: "flround: 2+1i is not a flonum".
|
||||
--- 9054,9136 ----
|
||||
--- 9074,9156 ----
|
||||
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".
|
||||
|
|
@ -5568,7 +5618,7 @@
|
|||
fl.mo:Expected error in mat flround: "flround: 2.0+1.0i is not a flonum".
|
||||
fl.mo:Expected error in mat flround: "flround: 2+1i is not a flonum".
|
||||
***************
|
||||
*** 9150,9198 ****
|
||||
*** 9170,9218 ****
|
||||
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".
|
||||
|
|
@ -5618,7 +5668,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".
|
||||
--- 9150,9198 ----
|
||||
--- 9170,9218 ----
|
||||
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".
|
||||
|
|
@ -5669,7 +5719,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".
|
||||
***************
|
||||
*** 9200,9206 ****
|
||||
*** 9220,9226 ****
|
||||
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".
|
||||
|
|
@ -5677,7 +5727,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".
|
||||
--- 9200,9206 ----
|
||||
--- 9220,9226 ----
|
||||
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".
|
||||
|
|
@ -5686,7 +5736,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".
|
||||
***************
|
||||
*** 9208,9221 ****
|
||||
*** 9228,9241 ****
|
||||
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".
|
||||
|
|
@ -5701,7 +5751,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".
|
||||
--- 9208,9221 ----
|
||||
--- 9228,9241 ----
|
||||
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".
|
||||
|
|
@ -5717,7 +5767,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".
|
||||
***************
|
||||
*** 9261,9267 ****
|
||||
*** 9281,9287 ****
|
||||
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".
|
||||
|
|
@ -5725,7 +5775,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".
|
||||
--- 9261,9267 ----
|
||||
--- 9281,9287 ----
|
||||
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".
|
||||
|
|
@ -5734,7 +5784,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".
|
||||
***************
|
||||
*** 9271,9284 ****
|
||||
*** 9291,9304 ****
|
||||
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".
|
||||
|
|
@ -5749,7 +5799,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"".
|
||||
--- 9271,9284 ----
|
||||
--- 9291,9304 ----
|
||||
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".
|
||||
|
|
@ -5765,7 +5815,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"".
|
||||
***************
|
||||
*** 9313,9320 ****
|
||||
*** 9333,9340 ****
|
||||
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".
|
||||
|
|
@ -5774,7 +5824,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"".
|
||||
--- 9313,9320 ----
|
||||
--- 9333,9340 ----
|
||||
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".
|
||||
|
|
@ -5784,7 +5834,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"".
|
||||
***************
|
||||
*** 9798,9810 ****
|
||||
*** 9818,9830 ****
|
||||
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".
|
||||
|
|
@ -5798,7 +5848,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".
|
||||
--- 9798,9810 ----
|
||||
--- 9818,9830 ----
|
||||
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".
|
||||
|
|
@ -5813,7 +5863,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".
|
||||
***************
|
||||
*** 9832,9903 ****
|
||||
*** 9852,9923 ****
|
||||
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".
|
||||
|
|
@ -5886,7 +5936,7 @@
|
|||
date.mo:Expected error in mat time: "time>=?: 3 is not a time record".
|
||||
date.mo:Expected error in mat time: "time>=?: #<procedure car> is not a time record".
|
||||
date.mo:Expected error in mat time: "time>=?: types of <time> and <time> differ".
|
||||
--- 9832,9903 ----
|
||||
--- 9852,9923 ----
|
||||
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".
|
||||
|
|
@ -5960,7 +6010,7 @@
|
|||
date.mo:Expected error in mat time: "time>=?: #<procedure car> is not a time record".
|
||||
date.mo:Expected error in mat time: "time>=?: types of <time> and <time> differ".
|
||||
***************
|
||||
*** 9905,9918 ****
|
||||
*** 9925,9938 ****
|
||||
date.mo:Expected error in mat time: "add-duration: <time> does not have type time-duration".
|
||||
date.mo:Expected error in mat time: "subtract-duration: <time> does not have type time-duration".
|
||||
date.mo:Expected error in mat time: "copy-time: <date> is not a time record".
|
||||
|
|
@ -5975,7 +6025,7 @@
|
|||
date.mo:Expected error in mat date: "make-date: invalid nanosecond -1".
|
||||
date.mo:Expected error in mat date: "make-date: invalid nanosecond <int>".
|
||||
date.mo:Expected error in mat date: "make-date: invalid nanosecond zero".
|
||||
--- 9905,9918 ----
|
||||
--- 9925,9938 ----
|
||||
date.mo:Expected error in mat time: "add-duration: <time> does not have type time-duration".
|
||||
date.mo:Expected error in mat time: "subtract-duration: <time> does not have type time-duration".
|
||||
date.mo:Expected error in mat time: "copy-time: <date> is not a time record".
|
||||
|
|
@ -5991,7 +6041,7 @@
|
|||
date.mo:Expected error in mat date: "make-date: invalid nanosecond <int>".
|
||||
date.mo:Expected error in mat date: "make-date: invalid nanosecond zero".
|
||||
***************
|
||||
*** 9938,9998 ****
|
||||
*** 9958,10018 ****
|
||||
date.mo:Expected error in mat date: "make-date: invalid time-zone offset 90000".
|
||||
date.mo:Expected error in mat date: "make-date: invalid time-zone offset est".
|
||||
date.mo:Expected error in mat date: "make-date: invalid time-zone offset "est"".
|
||||
|
|
@ -6053,7 +6103,7 @@
|
|||
date.mo:Expected error in mat date: "current-date: invalid time-zone offset -90000".
|
||||
date.mo:Expected error in mat date: "current-date: invalid time-zone offset 90000".
|
||||
date.mo:Expected error in mat conversions/sleep: "date->time-utc: <time> is not a date record".
|
||||
--- 9938,9998 ----
|
||||
--- 9958,10018 ----
|
||||
date.mo:Expected error in mat date: "make-date: invalid time-zone offset 90000".
|
||||
date.mo:Expected error in mat date: "make-date: invalid time-zone offset est".
|
||||
date.mo:Expected error in mat date: "make-date: invalid time-zone offset "est"".
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-0-f-f-f 2017-10-27 11:03:39.000000000 -0400
|
||||
--- errors-interpret-0-f-f-f 2017-10-27 10:46:02.000000000 -0400
|
||||
*** errors-compile-0-f-f-f 2017-12-01 13:23:05.590785619 -0700
|
||||
--- errors-interpret-0-f-f-f 2017-12-01 13:07:03.766802102 -0700
|
||||
***************
|
||||
*** 1,7 ****
|
||||
primvars.mo:Expected error in mat make-parameter: "make-parameter: 2 is not a procedure".
|
||||
|
|
@ -196,7 +196,44 @@
|
|||
3.mo:Expected error in mat mrvs: "returned two values to single value return context".
|
||||
3.mo:Expected error in mat mrvs: "cdr: a is not a pair".
|
||||
***************
|
||||
*** 4032,4047 ****
|
||||
*** 3805,3821 ****
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1.0 is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
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)".
|
||||
--- 3811,3827 ----
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1.0 is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
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)".
|
||||
***************
|
||||
*** 4052,4067 ****
|
||||
6.mo:Expected error in mat pretty-print: "incorrect argument count in call (pretty-format (quote foo) (quote x) (quote x))".
|
||||
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)".
|
||||
|
|
@ -213,9 +250,9 @@
|
|||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "abc~s" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too many arguments for control string "~%~abc~adef~ag~s~~~%" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected error in mat print-parameters: "write: cycle detected; proceeding with (print-graph #t)".
|
||||
--- 4038,4047 ----
|
||||
--- 4058,4067 ----
|
||||
***************
|
||||
*** 6987,6993 ****
|
||||
*** 7007,7013 ****
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -223,7 +260,7 @@
|
|||
7.mo:Expected error in mat eval: "interpret: 7 is not an environment".
|
||||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
--- 6987,6993 ----
|
||||
--- 7007,7013 ----
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -232,7 +269,7 @@
|
|||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
***************
|
||||
*** 7314,7320 ****
|
||||
*** 7334,7340 ****
|
||||
record.mo:Expected error in mat record25: "invalid value #\9 for foreign type uptr".
|
||||
record.mo:Expected error in mat record25: "invalid value 10 for foreign type float".
|
||||
record.mo:Expected error in mat record25: "invalid value 11.0+0.0i for foreign type double".
|
||||
|
|
@ -240,7 +277,7 @@
|
|||
record.mo:Expected error in mat record25: "invalid value 12.0 for foreign type long-long".
|
||||
record.mo:Expected error in mat record25: "invalid value 13.0 for foreign type unsigned-long-long".
|
||||
record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type int".
|
||||
--- 7314,7320 ----
|
||||
--- 7334,7340 ----
|
||||
record.mo:Expected error in mat record25: "invalid value #\9 for foreign type uptr".
|
||||
record.mo:Expected error in mat record25: "invalid value 10 for foreign type float".
|
||||
record.mo:Expected error in mat record25: "invalid value 11.0+0.0i for foreign type double".
|
||||
|
|
@ -249,7 +286,7 @@
|
|||
record.mo:Expected error in mat record25: "invalid value 13.0 for foreign type unsigned-long-long".
|
||||
record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type int".
|
||||
***************
|
||||
*** 8523,8535 ****
|
||||
*** 8543,8555 ****
|
||||
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".
|
||||
|
|
@ -263,7 +300,7 @@
|
|||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <int> 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".
|
||||
--- 8523,8535 ----
|
||||
--- 8543,8555 ----
|
||||
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".
|
||||
|
|
@ -278,7 +315,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".
|
||||
***************
|
||||
*** 9286,9310 ****
|
||||
*** 9306,9330 ****
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
|
|
@ -304,7 +341,7 @@
|
|||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure argument type specifier booleen".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure argument type specifier integer-34".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure result type specifier chare".
|
||||
--- 9286,9310 ----
|
||||
--- 9306,9330 ----
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
|
|
@ -331,7 +368,7 @@
|
|||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure argument type specifier integer-34".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure result type specifier chare".
|
||||
***************
|
||||
*** 9317,9348 ****
|
||||
*** 9337,9368 ****
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "incorrect argument count in call (foreign-sizeof (quote int) (quote int))".
|
||||
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".
|
||||
|
|
@ -364,7 +401,7 @@
|
|||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
--- 9317,9348 ----
|
||||
--- 9337,9368 ----
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "incorrect argument count in call (foreign-sizeof (quote int) (quote int))".
|
||||
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".
|
||||
|
|
@ -398,7 +435,7 @@
|
|||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
***************
|
||||
*** 9350,9375 ****
|
||||
*** 9370,9395 ****
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
|
|
@ -425,7 +462,7 @@
|
|||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
--- 9350,9375 ----
|
||||
--- 9370,9395 ----
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
|
|
@ -453,7 +490,7 @@
|
|||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
***************
|
||||
*** 9380,9414 ****
|
||||
*** 9400,9434 ****
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
|
|
@ -489,7 +526,7 @@
|
|||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
--- 9380,9414 ----
|
||||
--- 9400,9434 ----
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
|
|
@ -526,7 +563,7 @@
|
|||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
***************
|
||||
*** 10001,10010 ****
|
||||
*** 10021,10030 ****
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
@ -537,7 +574,7 @@
|
|||
oop.mo:Expected error in mat oop: "m1: not applicable to 17".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1 is not bound".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1-set! is not bound".
|
||||
--- 10001,10010 ----
|
||||
--- 10021,10030 ----
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-0-f-t-f 2017-10-27 10:30:43.000000000 -0400
|
||||
--- errors-interpret-0-f-t-f 2017-10-27 10:54:02.000000000 -0400
|
||||
*** errors-compile-0-f-t-f 2017-12-01 12:53:20.790816205 -0700
|
||||
--- errors-interpret-0-f-t-f 2017-12-01 13:14:11.682794769 -0700
|
||||
***************
|
||||
*** 1,7 ****
|
||||
primvars.mo:Expected error in mat make-parameter: "make-parameter: 2 is not a procedure".
|
||||
|
|
@ -169,7 +169,44 @@
|
|||
3.mo:Expected error in mat letrec: "variable f is not bound".
|
||||
3.mo:Expected error in mat letrec: "attempt to reference undefined variable a".
|
||||
***************
|
||||
*** 4032,4047 ****
|
||||
*** 3805,3821 ****
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1.0 is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
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)".
|
||||
--- 3811,3827 ----
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1.0 is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
! misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
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)".
|
||||
***************
|
||||
*** 4052,4067 ****
|
||||
6.mo:Expected error in mat pretty-print: "incorrect argument count in call (pretty-format (quote foo) (quote x) (quote x))".
|
||||
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)".
|
||||
|
|
@ -186,9 +223,9 @@
|
|||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "abc~s" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too many arguments for control string "~%~abc~adef~ag~s~~~%" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected error in mat print-parameters: "write: cycle detected; proceeding with (print-graph #t)".
|
||||
--- 4038,4047 ----
|
||||
--- 4058,4067 ----
|
||||
***************
|
||||
*** 6987,6993 ****
|
||||
*** 7007,7013 ****
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -196,7 +233,7 @@
|
|||
7.mo:Expected error in mat eval: "interpret: 7 is not an environment".
|
||||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
--- 6987,6993 ----
|
||||
--- 7007,7013 ----
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -205,7 +242,7 @@
|
|||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
***************
|
||||
*** 7123,7130 ****
|
||||
*** 7143,7150 ****
|
||||
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".
|
||||
|
|
@ -214,7 +251,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 type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
--- 7123,7130 ----
|
||||
--- 7143,7150 ----
|
||||
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".
|
||||
|
|
@ -224,7 +261,7 @@
|
|||
record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
***************
|
||||
*** 7132,7146 ****
|
||||
*** 7152,7166 ****
|
||||
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".
|
||||
|
|
@ -240,7 +277,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".
|
||||
--- 7132,7146 ----
|
||||
--- 7152,7166 ----
|
||||
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".
|
||||
|
|
@ -257,7 +294,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".
|
||||
***************
|
||||
*** 7153,7178 ****
|
||||
*** 7173,7198 ****
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -284,7 +321,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: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
--- 7153,7178 ----
|
||||
--- 7173,7198 ----
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -312,7 +349,7 @@
|
|||
record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
***************
|
||||
*** 7303,7341 ****
|
||||
*** 7323,7361 ****
|
||||
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 #<record type foo>".
|
||||
|
|
@ -352,7 +389,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".
|
||||
--- 7303,7341 ----
|
||||
--- 7323,7361 ----
|
||||
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 #<record type foo>".
|
||||
|
|
@ -393,7 +430,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".
|
||||
***************
|
||||
*** 7350,7406 ****
|
||||
*** 7370,7426 ****
|
||||
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".
|
||||
|
|
@ -451,7 +488,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".
|
||||
--- 7350,7406 ----
|
||||
--- 7370,7426 ----
|
||||
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".
|
||||
|
|
@ -510,7 +547,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: "cannot extend define-record-type parent fratrat".
|
||||
***************
|
||||
*** 8523,8535 ****
|
||||
*** 8543,8555 ****
|
||||
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".
|
||||
|
|
@ -524,7 +561,7 @@
|
|||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <int> 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".
|
||||
--- 8523,8535 ----
|
||||
--- 8543,8555 ----
|
||||
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".
|
||||
|
|
@ -539,7 +576,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".
|
||||
***************
|
||||
*** 10001,10010 ****
|
||||
*** 10021,10030 ****
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
@ -550,7 +587,7 @@
|
|||
oop.mo:Expected error in mat oop: "m1: not applicable to 17".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1 is not bound".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1-set! is not bound".
|
||||
--- 10001,10010 ----
|
||||
--- 10021,10030 ----
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-3-f-f-f 2017-10-27 10:26:56.000000000 -0400
|
||||
--- errors-interpret-3-f-f-f 2017-10-27 11:09:29.000000000 -0400
|
||||
*** errors-compile-3-f-f-f 2017-12-01 12:50:02.134819610 -0700
|
||||
--- errors-interpret-3-f-f-f 2017-12-01 13:28:42.546779844 -0700
|
||||
***************
|
||||
*** 1,3 ****
|
||||
--- 1,9 ----
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-3-f-t-f 2017-10-27 10:34:20.000000000 -0400
|
||||
--- errors-interpret-3-f-t-f 2017-10-27 10:57:54.000000000 -0400
|
||||
*** errors-compile-3-f-t-f 2017-12-01 12:56:31.982812929 -0700
|
||||
--- errors-interpret-3-f-t-f 2017-12-01 13:17:43.038791147 -0700
|
||||
***************
|
||||
*** 1,3 ****
|
||||
--- 1,9 ----
|
||||
|
|
|
|||
|
|
@ -3797,6 +3797,26 @@ misc.mo:Expected error in mat virtual-registers: "set-virtual-register!: invalid
|
|||
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".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure (lambda args args))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure (lambda args args) 1)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1 is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-a-procedure is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1.0 is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
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))".
|
||||
|
|
|
|||
|
|
@ -3797,6 +3797,26 @@ misc.mo:Expected error in mat virtual-registers: "set-virtual-register!: invalid
|
|||
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".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure (lambda args args))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (make-arity-wrapper-procedure (lambda args args) 1)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1 is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-a-procedure is not a procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: not-an-exact-integer is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "make-arity-wrapper-procedure: 1.0 is not an arity mask".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data!)".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect argument count in call (set-arity-wrapper-procedure-data! (make-arity-wrapper-procedure (lambda args args) 1 #f))".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: 1 is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure-data!: #<procedure> is not an arity wrapper procedure".
|
||||
misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: #<procedure $arity-wrapper-apply> is not an arity wrapper procedure".
|
||||
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))".
|
||||
|
|
|
|||
|
|
@ -58,6 +58,19 @@ Online versions of both books can be found at
|
|||
%-----------------------------------------------------------------------------
|
||||
\section{Functionality Changes}\label{section:functionality}
|
||||
|
||||
\subsection{Procedure arity-mask adjustment and redirection (9.5.1)}
|
||||
|
||||
The new procedure \scheme{make-arity-wrapper-procedure} creates a
|
||||
procedure that behaves like a given one, but with a different
|
||||
result for \scheme{procedure-arity-mask}. The new mask is intended to be a
|
||||
subset of the original procedure's arity mask, and the original procedure
|
||||
is intended to report its own error for argument counts that do not fit the
|
||||
specified mask, but neither behavior is checked.
|
||||
The wrapped procedure can be replaced imperatively, which is useful
|
||||
for triggering just-in-time conversions of a procedure's
|
||||
implementation while imposing a minimal overhead on calls to the
|
||||
procedure before or after conversion.
|
||||
|
||||
\subsection{Record equality and hashing (9.5)}
|
||||
|
||||
The new procedures \scheme{record-type-equal-procedure} and
|
||||
|
|
|
|||
22
s/cmacros.ss
22
s/cmacros.ss
|
|
@ -747,8 +747,10 @@
|
|||
(define-constant type-rtd-counts #b01101110)
|
||||
(define-constant type-record #b111)
|
||||
|
||||
(define-constant code-flag-system #b0001)
|
||||
(define-constant code-flag-continuation #b0010)
|
||||
(define-constant code-flag-system #b0001)
|
||||
(define-constant code-flag-continuation #b0010)
|
||||
(define-constant code-flag-mutable-closure #b0100)
|
||||
(define-constant code-flag-arity-in-closure #b1000)
|
||||
|
||||
(define-constant fixnum-bits
|
||||
(case (constant ptr-bits)
|
||||
|
|
@ -835,6 +837,14 @@
|
|||
(fxlogor (constant type-code)
|
||||
(fxsll (constant code-flag-continuation)
|
||||
(constant code-flags-offset))))
|
||||
(define-constant type-code-mutable-closure
|
||||
(fxlogor (constant type-code)
|
||||
(fxsll (constant code-flag-mutable-closure)
|
||||
(constant code-flags-offset))))
|
||||
(define-constant type-code-arity-in-closure
|
||||
(fxlogor (constant type-code)
|
||||
(fxsll (constant code-flag-arity-in-closure)
|
||||
(constant code-flags-offset))))
|
||||
|
||||
;; type checks are generally performed by applying the mask to the object
|
||||
;; then comparing against the type code. a mask equal to
|
||||
|
|
@ -910,6 +920,12 @@
|
|||
(define-constant mask-continuation-code
|
||||
(fxlogor (fxsll (constant code-flag-continuation) (constant code-flags-offset))
|
||||
(fx- (fxsll 1 (constant code-flags-offset)) 1)))
|
||||
(define-constant mask-code-mutable-closure
|
||||
(fxlogor (fxsll (constant code-flag-mutable-closure) (constant code-flags-offset))
|
||||
(fx- (fxsll 1 (constant code-flags-offset)) 1)))
|
||||
(define-constant mask-code-arity-in-closure
|
||||
(fxlogor (fxsll (constant code-flag-arity-in-closure) (constant code-flags-offset))
|
||||
(fx- (fxsll 1 (constant code-flags-offset)) 1)))
|
||||
(define-constant mask-thread (constant byte-constant-mask))
|
||||
(define-constant mask-tlc (constant byte-constant-mask))
|
||||
|
||||
|
|
@ -2591,6 +2607,8 @@
|
|||
(nuate #f 0 #f #t)
|
||||
(virtual-register #f 1 #t #t)
|
||||
(set-virtual-register! #f 1 #t #t)
|
||||
($arity-wrapper-apply #f 0 #f #f)
|
||||
(arity-wrapper-apply #f 0 #f #f)
|
||||
))
|
||||
|
||||
(let ()
|
||||
|
|
|
|||
|
|
@ -4776,12 +4776,23 @@
|
|||
(guard (target-fixnum? d))
|
||||
(%mref ,e-v ,(+ (fix d) (constant closure-data-disp)))]
|
||||
[else (%mref ,e-v ,e-i ,(constant closure-data-disp))])])
|
||||
(define-inline 3 $closure-set!
|
||||
[(e-v e-i e-new)
|
||||
(nanopass-case (L7 Expr) e-i
|
||||
[(quote ,d)
|
||||
(guard (target-fixnum? d))
|
||||
(build-dirty-store e-v (+ (fix d) (constant closure-data-disp)) e-new)]
|
||||
[else (build-dirty-store e-v e-i (constant closure-data-disp) e-new)])])
|
||||
(define-inline 3 $closure-code
|
||||
[(e) (%inline -
|
||||
,(%mref ,e ,(constant closure-code-disp))
|
||||
,(%constant code-data-disp))])
|
||||
(define-inline 3 $code-free-count
|
||||
[(e) (build-fix (%mref ,e ,(constant code-closure-length-disp)))])
|
||||
(define-inline 3 $code-mutable-closure?
|
||||
[(e) (%typed-object-check mask-code-mutable-closure type-code-mutable-closure ,e)])
|
||||
(define-inline 3 $code-arity-in-closure?
|
||||
[(e) (%typed-object-check mask-code-arity-in-closure type-code-arity-in-closure ,e)])
|
||||
(define-inline 2 $unbound-object
|
||||
[() `(quote ,($unbound-object))])
|
||||
(define-inline 2 void
|
||||
|
|
@ -5247,7 +5258,8 @@
|
|||
(let ()
|
||||
(define hand-coded-closure?
|
||||
(lambda (name)
|
||||
(not (memq name '(nuate nonprocedure-code error-invoke invoke)))))
|
||||
(not (memq name '(nuate nonprocedure-code error-invoke invoke
|
||||
arity-wrapper-apply $arity-wrapper-apply)))))
|
||||
(define-inline 2 $hand-coded
|
||||
[(name)
|
||||
(nanopass-case (L7 Expr) name
|
||||
|
|
@ -5337,6 +5349,28 @@
|
|||
(define-tc-parameter $current-winders winders)
|
||||
)
|
||||
|
||||
(let ()
|
||||
(define (make-wrapper-closure-alloc e-proc e-arity-mask e-data size libspec)
|
||||
(bind #t ([c (%constant-alloc type-closure (fx* size (constant ptr-bytes)))])
|
||||
(%seq
|
||||
(set! ,(%mref ,c ,(constant closure-code-disp))
|
||||
(literal ,(make-info-literal #f 'library libspec (constant code-data-disp))))
|
||||
(set! ,(%mref ,c ,(constant closure-data-disp)) ,e-proc)
|
||||
(set! ,(%mref ,c ,(fx+ (constant ptr-bytes) (constant closure-data-disp))) ,e-arity-mask)
|
||||
,(if e-data
|
||||
(%seq
|
||||
(set! ,(%mref ,c ,(fx+ (fx* (constant ptr-bytes) 2) (constant closure-data-disp))) ,e-data)
|
||||
,c)
|
||||
c))))
|
||||
(define-inline 3 make-arity-wrapper-procedure
|
||||
[(e-proc e-arity-mask e-data)
|
||||
(bind #f (e-proc e-arity-mask e-data)
|
||||
(make-wrapper-closure-alloc e-proc e-arity-mask e-data 4 (lookup-libspec arity-wrapper-apply)))])
|
||||
(define-inline 3 $make-arity-wrapper-procedure
|
||||
[(e-proc e-arity-mask)
|
||||
(bind #f (e-proc e-arity-mask)
|
||||
(make-wrapper-closure-alloc e-proc e-arity-mask #f 3 (lookup-libspec $arity-wrapper-apply)))]))
|
||||
|
||||
(define-inline 3 $install-guardian
|
||||
[(e-obj e-rep e-tconc)
|
||||
(bind #f (e-obj e-rep e-tconc)
|
||||
|
|
@ -12101,6 +12135,30 @@
|
|||
(out %ac0 %ac1 %cp %xp %yp %ts %td scheme-args extra-regs))))
|
||||
(set! ,%ac0 ,(%constant svoid))
|
||||
(jump ,%ref-ret (,%ac0))))]
|
||||
[($arity-wrapper-apply arity-wrapper-apply)
|
||||
(let ([info (make-info (symbol->string sym) '())])
|
||||
(info-lambda-fv*-set! info (if (eq? sym '$arity-wrapper-apply)
|
||||
'(box arity-mask)
|
||||
'(box arity-mask data)))
|
||||
(info-lambda-flags-set! info (fxior (constant code-flag-arity-in-closure)
|
||||
(if (eq? sym 'arity-wrapper-apply)
|
||||
(constant code-flag-mutable-closure)
|
||||
0)))
|
||||
`(lambda ,info 0 ()
|
||||
,(%seq
|
||||
,(meta-cond
|
||||
[(real-register? '%cp)
|
||||
(%seq
|
||||
(set! ,%cp ,(%mref ,%cp ,(constant closure-data-disp)))
|
||||
(jump ,(%mref ,%cp ,(constant closure-code-disp))
|
||||
(,%ac0 ,%cp ,(reg-cons* %ret arg-registers) ...)))]
|
||||
[else
|
||||
(%seq
|
||||
(set! ,%td ,(ref-reg %cp))
|
||||
(set! ,%td ,(%mref ,%td ,(constant closure-data-disp)))
|
||||
(set! ,(ref-reg %cp) ,%td)
|
||||
(jump ,(%mref ,%td ,(constant closure-code-disp))
|
||||
(,%ac0 ,(reg-cons* %ret arg-registers) ...)))]))))]
|
||||
[(bytevector=?)
|
||||
(let ([bv1 (make-tmp 'bv1)] [bv2 (make-tmp 'bv2)] [idx (make-tmp 'idx)] [len2 (make-tmp 'len2)])
|
||||
(define (argcnt->max-fv n) (max (- n (length arg-registers)) 0))
|
||||
|
|
|
|||
|
|
@ -332,7 +332,17 @@
|
|||
(min (if (fx< interface 0)
|
||||
(fx- -1 interface)
|
||||
interface)
|
||||
m))])))))
|
||||
m))]))))
|
||||
(arity-mask (let mask ((cl* cl*) (arity-mask 0))
|
||||
(if (null? cl*)
|
||||
arity-mask
|
||||
(nanopass-case (Linterp CaseLambdaClause) (car cl*)
|
||||
[(clause (,x* ...) ,interface ,body)
|
||||
(mask (cdr cl*)
|
||||
(logor arity-mask
|
||||
(if (< interface 0)
|
||||
(- (ash 1 (- -1 interface)))
|
||||
(ash 1 interface))))])))))
|
||||
(define adjust-interface
|
||||
(lambda (x)
|
||||
(if (fx< x 0)
|
||||
|
|
@ -355,18 +365,24 @@
|
|||
[(0)
|
||||
(ip2-closure free
|
||||
($rt lambda ()
|
||||
(lambda args
|
||||
($rt body ([a0 0] [a1 0] [fp 0]) args (length args)))))]
|
||||
($make-arity-wrapper-procedure
|
||||
(lambda args
|
||||
($rt body ([a0 0] [a1 0] [fp 0]) args (length args)))
|
||||
arity-mask)))]
|
||||
[(1)
|
||||
(ip2-closure free
|
||||
($rt lambda ()
|
||||
(lambda (a0 . args)
|
||||
($rt body ([a1 0] [fp 0]) args (length args)))))]
|
||||
($make-arity-wrapper-procedure
|
||||
(lambda (a0 . args)
|
||||
($rt body ([a1 0] [fp 0]) args (length args)))
|
||||
arity-mask)))]
|
||||
[(2)
|
||||
(ip2-closure free
|
||||
($rt lambda ()
|
||||
(lambda (a0 a1 . args)
|
||||
($rt body ([fp 0]) args (length args)))))]))))]
|
||||
($make-arity-wrapper-procedure
|
||||
(lambda (a0 a1 . args)
|
||||
($rt body ([fp 0]) args (length args)))
|
||||
arity-mask)))]))))]
|
||||
[(set! ,x ,e)
|
||||
(let ((e (ip2 e)))
|
||||
(let ((loc (c-var-loc x)) (i (c-var-index x)))
|
||||
|
|
|
|||
|
|
@ -125,6 +125,8 @@
|
|||
(define-hand-coded-library-entry domvleterr)
|
||||
(define-hand-coded-library-entry values-error)
|
||||
(define-hand-coded-library-entry bytevector=?)
|
||||
(define-hand-coded-library-entry arity-wrapper-apply)
|
||||
(define-hand-coded-library-entry $arity-wrapper-apply)
|
||||
|
||||
(define $instantiate-code-object ($hand-coded '$instantiate-code-object))
|
||||
|
||||
|
|
|
|||
|
|
@ -13,6 +13,8 @@
|
|||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
(define ($make-arity-wrapper-procedure proc mask) proc)
|
||||
|
||||
(printf "loading ~s cross compiler~%" (constant machine-type-name))
|
||||
|
||||
; (current-expand (lambda args (apply sc-expand args)))
|
||||
|
|
|
|||
|
|
@ -1119,6 +1119,8 @@
|
|||
(append! [sig [() -> (null)] [(list ... ptr) -> (ptr)]] [flags cp02])
|
||||
(apropos [sig [(sub-ptr) (sub-ptr environment) -> (void)]] [flags true])
|
||||
(apropos-list [sig [(sub-ptr) (sub-ptr environment) -> (list)]] [flags alloc])
|
||||
(arity-wrapper-procedure? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
|
||||
(arity-wrapper-procedure-data [sig [(ptr) -> (ptr)]] [flags discard])
|
||||
(ash [sig [(sint sint) -> (sint)]] [flags arith-op mifoldable discard cp03])
|
||||
(assertion-violationf [sig [(who string sub-ptr ...) -> (bottom)]] [flags abort-op]) ; 2nd arg is format string
|
||||
(asinh [sig [(number) -> (number)]] [flags arith-op mifoldable discard])
|
||||
|
|
@ -1411,6 +1413,7 @@
|
|||
(logxor [sig [(sint ...) -> (sint)]] [flags arith-op partial-folder])
|
||||
(magnitude-squared [sig [(number) -> (number)]] [flags arith-op mifoldable discard])
|
||||
(make-annotation [sig [(ptr source-object ptr) (ptr source-object ptr annotation-options) -> (annotation)]] [flags pure true mifoldable discard])
|
||||
(make-arity-wrapper-procedure [sig [(procedure sint ptr) -> (procedure)]] [flags pure true mifoldable discard])
|
||||
(make-boot-file [sig [(pathname sub-list pathname ...) -> (void)]] [flags true])
|
||||
(make-boot-header [sig [(pathname pathname pathname ...) -> (void)]] [flags true])
|
||||
(make-compile-time-value [sig [(ptr) (ptr ptr) -> (ptr)]] [flags pure unrestricted alloc])
|
||||
|
|
@ -1551,6 +1554,8 @@
|
|||
(s8-list->bytevector [sig [(sub-list) -> (bytevector)]] [flags alloc])
|
||||
(sc-expand [sig [(ptr) (ptr environment) (ptr environment ptr) (ptr environment ptr ptr) (ptr environment ptr ptr maybe-string) -> (ptr)]] [flags])
|
||||
(scheme-environment [sig [() -> (environment)]] [flags unrestricted alloc])
|
||||
(set-arity-wrapper-procedure! [sig [(ptr procedure) -> (void)]] [flags true])
|
||||
(set-arity-wrapper-procedure-data! [sig [(ptr ptr) -> (void)]] [flags true])
|
||||
(set-binary-port-input-buffer! [sig [(binary-input-port bytevector) -> (void)]] [flags true])
|
||||
(set-binary-port-input-index! [sig [(binary-input-port sub-index) -> (void)]] [flags true])
|
||||
(set-binary-port-input-size! [sig [(binary-input-port sub-length) -> (void)]] [flags true])
|
||||
|
|
@ -1732,6 +1737,7 @@
|
|||
($closure-code [flags])
|
||||
($closure-length [flags])
|
||||
($closure-ref [flags])
|
||||
($closure-set! [flags])
|
||||
($c-make-closure [flags])
|
||||
($c-make-code [flags])
|
||||
($code? [flags])
|
||||
|
|
@ -1740,6 +1746,8 @@
|
|||
($code-arity-mask [flags])
|
||||
($code-name [flags])
|
||||
($code-pinfo* [flags])
|
||||
($code-mutable-closure? [flags])
|
||||
($code-arity-in-closure? [flags])
|
||||
($collect-rendezvous [flags])
|
||||
($compile-backend [flags])
|
||||
($compiled-file-header? [flags])
|
||||
|
|
@ -2073,6 +2081,7 @@
|
|||
($make-textual-input-port #;[sig [(string port-handler string) (string port-handler string ptr) -> (textual-input-port)]] [flags alloc])
|
||||
($make-textual-output-port #;[sig [(string port-handler string) (string port-handler string ptr) -> (textual-output-port)]] [flags alloc])
|
||||
($make-tlc [flags alloc])
|
||||
($make-arity-wrapper-procedure [flags])
|
||||
($make-vtable [flags])
|
||||
($map [flags])
|
||||
($mark-invoked! [flags])
|
||||
|
|
|
|||
61
s/prims.ss
61
s/prims.ss
|
|
@ -215,7 +215,10 @@
|
|||
(define-who procedure-arity-mask
|
||||
(lambda (x)
|
||||
(unless (procedure? x) ($oops who "~s is not a procedure" x))
|
||||
($code-arity-mask ($closure-code x))))
|
||||
(let ([c ($closure-code x)])
|
||||
(if ($code-arity-in-closure? c)
|
||||
($closure-ref x 1)
|
||||
($code-arity-mask c)))))
|
||||
|
||||
(let ()
|
||||
(define-syntax frob-proc
|
||||
|
|
@ -404,6 +407,16 @@
|
|||
(unless ($code? x) ($oops who "~s is not code" x))
|
||||
($code-pinfo* x)))
|
||||
|
||||
(define-who $code-mutable-closure?
|
||||
(lambda (x)
|
||||
(unless ($code? x) ($oops who "~s is not code" x))
|
||||
($code-mutable-closure? x)))
|
||||
|
||||
(define-who $code-arity-in-closure?
|
||||
(lambda (x)
|
||||
(unless ($code? x) ($oops who "~s is not code" x))
|
||||
($code-arity-in-closure? x)))
|
||||
|
||||
(define $object-address ; not safe and can't be
|
||||
(lambda (x offset)
|
||||
($object-address x offset)))
|
||||
|
|
@ -445,6 +458,15 @@
|
|||
($oops '$closure-ref "invalid index ~s" i))
|
||||
($closure-ref x i)))
|
||||
|
||||
(define $closure-set!
|
||||
(lambda (x i new)
|
||||
(unless (and (procedure? x)
|
||||
($code-mutable-closure? ($closure-code x)))
|
||||
($oops '$closure-ref "~s is not a mutable closure" x))
|
||||
(unless (and (fixnum? i) (fx< -1 i ($closure-length x)))
|
||||
($oops '$closure-ref "invalid index ~s" i))
|
||||
($closure-set! x i new)))
|
||||
|
||||
(define $continuation? (lambda (x) ($continuation? x)))
|
||||
|
||||
(define $continuation-stack-length
|
||||
|
|
@ -2236,3 +2258,40 @@
|
|||
(unless (string? str) ($oops who "~s is not a string" str))
|
||||
(wctmb cp (string->utf16 str 'little))))))
|
||||
)
|
||||
|
||||
;; like `make-arity-wrapper-procedure`, but for system use and immutable
|
||||
(define-who $make-arity-wrapper-procedure
|
||||
(lambda (proc arity-mask)
|
||||
(unless (procedure? proc) ($oops who "~s is not a procedure" proc))
|
||||
(unless (or (fixnum? arity-mask) (bignum? arity-mask)) ($oops who "~s is not an arity mask" arity-mask))
|
||||
(#3%$make-arity-wrapper-procedure proc arity-mask)))
|
||||
|
||||
(define-who make-arity-wrapper-procedure
|
||||
(lambda (proc arity-mask data)
|
||||
(unless (procedure? proc) ($oops who "~s is not a procedure" proc))
|
||||
(unless (or (fixnum? arity-mask) (bignum? arity-mask)) ($oops who "~s is not an arity mask" arity-mask))
|
||||
(#3%make-arity-wrapper-procedure proc arity-mask data)))
|
||||
|
||||
(define-who arity-wrapper-procedure?
|
||||
(lambda (x)
|
||||
(and (procedure? x)
|
||||
;; A somewhat indirect test: mutable + arity in closure => arity wrapper
|
||||
(let ([c ($closure-code x)])
|
||||
(and ($code-arity-in-closure? c)
|
||||
($code-mutable-closure? c))))))
|
||||
|
||||
(define-who set-arity-wrapper-procedure!
|
||||
(lambda (x proc)
|
||||
(unless (arity-wrapper-procedure? x) ($oops who "~s is not an arity wrapper procedure" x))
|
||||
(unless (procedure? proc) ($oops who "~s is not a procedure" proc))
|
||||
($closure-set! x 0 proc)))
|
||||
|
||||
(define-who arity-wrapper-procedure-data
|
||||
(lambda (x)
|
||||
(unless (arity-wrapper-procedure? x) ($oops who "~s is not an arity wrapper procedure" x))
|
||||
($closure-ref x 2)))
|
||||
|
||||
(define-who set-arity-wrapper-procedure-data!
|
||||
(lambda (x v)
|
||||
(unless (arity-wrapper-procedure? x) ($oops who "~s is not an arity wrapper procedure" x))
|
||||
($closure-set! x 2 v)))
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user