diff --git a/.travis.yml b/.travis.yml index ff99c30e55..8b2af94730 100644 --- a/.travis.yml +++ b/.travis.yml @@ -11,8 +11,10 @@ matrix: env: TARGET_MACHINE=ta6osx - os: linux env: TARGET_MACHINE=i3le + sudo: required - os: linux env: TARGET_MACHINE=ti3le + sudo: required - os: linux env: TARGET_MACHINE=a6le - os: linux diff --git a/.travis/dobuild.sh b/.travis/dobuild.sh index 066ab1611e..569e219f12 100755 --- a/.travis/dobuild.sh +++ b/.travis/dobuild.sh @@ -1,5 +1,8 @@ #!/bin/bash - +case $TARGET_MACHINE in + *i3le) sudo apt-get -yq --no-install-suggests --no-install-recommends install uuid-dev:i386 ;; + *) +esac ./configure -m=$TARGET_MACHINE exitcode=$? if [ $exitcode -ne 0 ] ; then diff --git a/BUILDING b/BUILDING index fb2ff01aee..4a8e5294f9 100644 --- a/BUILDING +++ b/BUILDING @@ -42,6 +42,11 @@ Prerequisites: * gcc * Header files and libraries for ncurses * Header files and libraries for X windows +* Header files and libraries for uuid + +Uninstalling on Unix-like systems is as simple as running: + +sudo make uninstall BUILDING VERSION 9.5 AND EARLIER @@ -129,9 +134,12 @@ The make file supports several targets: is overridden via an argument to ./configure, $W is the same as $M.) 'sudo make install' - runs the build plus installs the resulting executable, boot files, + runs the build plus installs the resulting executables, boot files, example files, and manual pages. +'sudo make uninstall' + uninstalls the executables, boot files, example files, and manual pages. + 'make test' runs the build plus runs a set of test programs in various different ways, e.g., with different compiler options. It can take 30 minutes @@ -185,20 +193,23 @@ The make file supports several targets: WINDOWS Building Chez Scheme under 64-bit Windows with Cygwin or Bash/WSL -follows the instructions above, except that 'make install' is not -supported, and the 'OS' environment variable must be set to -'Windows_NT' on Bash/WSL (to indicate a build for Windows, as opposed -to a build for Linux on Windows): +follows the instructions above, except that 'make install' and 'make +uninstall' are not supported. On Bash/WSL, the build directory must be +in a location with a Windows path such as /mnt/c, and the 'OS' +environment variable must be set to 'Windows_NT' to indicate a build +for Windows, as opposed to a build for Linux on Windows: env OS=Windows_NT ./configure env OS=Windows_NT make Prerequisites: -* Cygwin or Bash/WSL with bash, grep, make, sed, etc. +* Cygwin or Bash/WSL with bash, git, grep, make, sed, etc. * Microsoft Visual Studio 2017 or 2015 * WiX Toolset (for making an install) +Be sure that git config core.autocrlf is set to false. + To run Chez Scheme or Petite Chez Scheme from a Windows command prompt, set PATH: @@ -221,7 +232,7 @@ make This will create workareas and compile binaries for the a6nt, i3nt, ta6nt, and ti3nt configurations and then include them in a single -Windows installer package Chez Scheme.msi. The package also includes +Windows installer package Chez Scheme.exe. The package also includes example files and the redistributable Microsoft Visual C++ run-time libraries. diff --git a/LOG b/LOG index 8775350ade..a68320aac3 100644 --- a/LOG +++ b/LOG @@ -997,33 +997,47 @@ whose base and/or index is a local save. cpnanopass.ss, misc.ms +- flush expand-output and expand/optimize-output ports + compile.ss +- clarify "unknown module" error message in determine-module-imports + syntax.ss +- restore the import code on reset to provide consistent error message + syntax.ss, 8.ms +- add uninstall target + Makefile.in, Makefile-workarea.in, Mf-install.in +- add PDB files for Windows + c/*nt, wininstall/*nt.wxs +- use uuid_generate on unix-like systems for S_unique_id + BUILDING, c/Mf-*le, stats.c, objects.stex, release_notes.stex +- when thread_get_room exhausts the local allocation area, it now + goes through a common path with S_get_more_room to allocate a new + local allocation area when appropriate. this can greatly reduce + the use of global allocation (and the number of tc mutex acquires + in threaded builds) when a lot of small objects are allocated by + C code with no intervening Scheme-side allocation or dirty writes. + alloc.c, types.h, externs.h +- made Windows filename handling in directory-list, file-access-time, + file-change-time, file-directory?, file-exists?, file-modification-time, + get-mode, and path-absolute more consistent with + https://docs.microsoft.com/en-us/windows/desktop/FileIO/naming-a-file + 6.ss, 6.ms, io.stex, release_notes.stex +- fix handling of calling code's address for locking around a callable, + where the cp register copy in the thread context could be changed + in the callable prep before S_call_help gets it + cpnanopass.ss, x86_64.ss, x86.ss, foreign2.c, foreign.ms +- added initialization of seginfo sorted and trigger_ephemerons fields. + segment.c - add ordered guardians through a new optional argument to make-guardian prims.ss, primdata.ss, cp0.ss, cpnanopass.ss, cmacros.ss, mkheader.ss, gc.c, segment.c, types.h, 4.ms, smgmt.stex, release_notes.stex +- 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* - add object-backreferences and enable-object-backreferences as an aid to debugging memory leaks back.ss, cmacros.ss, inspect.ss, primdata.ss, gc-oce.c, gc.c, gcwrapper.c, prim.c, scheme.c, globals.h, externs.h, system.stex, 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* -- add current-generate-id and expand-omit-library-invocations, which can be - useful for avoiding library recompilation and redundant invocation checks - syntax.ss, record.ss, primdata.ss, front.ss, misc.ms, system.stex -- add support for continuation attachments - cpnanopass.ss, np-languages.ss, 4.ss, prims.ss, inspect.ss, - cmacro.ss, primdata.ss, library.ss types.ss, mkheader.ss, - alloc.c, gc.c, schsig.c, thread.c, externs.h, - 4.ms, control.stex, release_notes.stex -- add hashtable-cells - newhash.ss, primdata.ss, - hash.ms, root-experr*, - objects.stex, release_notes.stex -- fix handling of calling code's address for locking around a callable, - where the cp register copy in the thread context could be changed - in the callable prep before S_call_help gets it - cpnanopass.ss, x86_64.ss, x86.ss, foreign2.c, foreign.ms diff --git a/c/Makefile.a6nt b/c/Makefile.a6nt index 2d3291899d..04c9659e71 100644 --- a/c/Makefile.a6nt +++ b/c/Makefile.a6nt @@ -28,20 +28,18 @@ MDMain = ..\boot\$m\mainmd.obj ResFile = ..\boot\$m\scheme.res # We use MD so that we can link with and load DLLs built against msvcrxxx.dll -CFLAGS=/nologo /Ox /W3 /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +CFLAGS=/nologo /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS MDCFLAGS=$(CFLAGS) /MD MTCFLAGS=$(CFLAGS) /MT -DLLLDFLAGS=/machine:X64 /release /nologo +DLLLDFLAGS=/debug:full /machine:X64 /nologo # stack limit is 1MB by default. this is not enough for one of the mats in foreign.ms, which # builds up nested C & Scheme stack frames. 2MB seems to be enough, but we set to 16MB. -EXELDFLAGS=/machine:X64 /incremental:no /release /nologo /STACK:0x1000000 +EXELDFLAGS=/debug:full /machine:X64 /incremental:no /nologo /STACK:0x1000000 # use following flags for debugging -# CFLAGS=/nologo /Od /W3 /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS -# MDCFLAGS=$(CFLAGS) /Zi /MDd -# MTCFLAGS=$(CFLAGS) /Zi /MTd -# DLLLDFLAGS=/machine:X64 /debug /nologo /nodefaultlib:msvcrt -# EXELDFLAGS=/machine:X64 /incremental:no /debug /nologo /STACK:0x1000000 +# CFLAGS=/nologo /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +# MDCFLAGS=$(CFLAGS) /MDd +# MTCFLAGS=$(CFLAGS) /MTd SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib MDZlibLib=..\zlib\zlib.lib diff --git a/c/Makefile.i3nt b/c/Makefile.i3nt index f69173c405..279558721e 100644 --- a/c/Makefile.i3nt +++ b/c/Makefile.i3nt @@ -28,16 +28,17 @@ MDMain = ..\boot\$m\mainmd.obj ResFile = ..\boot\$m\scheme.res # We use MD so that we can link with and load DLLs built against msvcrxxx.dll -CFLAGS=/nologo /fp:precise /Ox /W3 /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +CFLAGS=/nologo /fp:precise /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS MDCFLAGS=$(CFLAGS) /MD MTCFLAGS=$(CFLAGS) /MT -DLLLDFLAGS=/machine:ix86 /release /nologo +DLLLDFLAGS=/debug:full /machine:ix86 /nologo # see note in Makefile.a6nt regarding stack size. we use 8MB here to be consistent. -EXELDFLAGS=/machine:ix86 /incremental:no /release /nologo /STACK:0x800000 +EXELDFLAGS=/debug:full /machine:ix86 /incremental:no /nologo /STACK:0x800000 # use following flags for debugging -# CFLAGS=/nologo /Od /W3 /MDd /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DNO_UNISTD_H -# LDFLAGS=/machine:ix86 /incremental:no /release /nologo /debug +# CFLAGS=/nologo /fp:precise /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +# MDCFLAGS=$(CFLAGS) /MDd +# MTCFLAGS=$(CFLAGS) /MTd SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib MDZlibLib=..\zlib\zlib.lib diff --git a/c/Makefile.ta6nt b/c/Makefile.ta6nt index f2fcb8d2c0..637f1b4889 100644 --- a/c/Makefile.ta6nt +++ b/c/Makefile.ta6nt @@ -28,20 +28,18 @@ MDMain = ..\boot\$m\mainmd.obj ResFile = ..\boot\$m\scheme.res # We use MD so that we can link with and load DLLs built against msvcrxxx.dll -CFLAGS=/nologo /Ox /W3 /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +CFLAGS=/nologo /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS MDCFLAGS=$(CFLAGS) /MD MTCFLAGS=$(CFLAGS) /MT -DLLLDFLAGS=/machine:X64 /release /nologo +DLLLDFLAGS=/debug:full /machine:X64 /nologo # stack limit is 1MB by default. this is not enough for one of the mats in foreign.ms, which # builds up nested C & Scheme stack frames. 2MB seems to be enough, but we set to 16MB. -EXELDFLAGS=/machine:X64 /incremental:no /release /nologo /STACK:0x1000000 +EXELDFLAGS=/debug:full /machine:X64 /incremental:no /nologo /STACK:0x1000000 # use following flags for debugging -# CFLAGS=/nologo /Od /W3 /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS -# MDCFLAGS=$(CFLAGS) /Zi /MDd -# MTCFLAGS=$(CFLAGS) /Zi /MTd -# DLLLDFLAGS=/machine:X64 /debug /nologo /nodefaultlib:msvcrt -# EXELDFLAGS=/machine:X64 /incremental:no /debug /nologo /STACK:0x1000000 +# CFLAGS=/nologo /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +# MDCFLAGS=$(CFLAGS) /MDd +# MTCFLAGS=$(CFLAGS) /MTd SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib MDZlibLib=..\zlib\zlib.lib diff --git a/c/Makefile.ti3nt b/c/Makefile.ti3nt index f386e36d22..8dfa80e6fa 100644 --- a/c/Makefile.ti3nt +++ b/c/Makefile.ti3nt @@ -28,16 +28,17 @@ MDMain = ..\boot\$m\mainmd.obj ResFile = ..\boot\$m\scheme.res # We use MD so that we can link with and load DLLs built against msvcrxxx.dll -CFLAGS=/nologo /fp:precise /Ox /W3 /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +CFLAGS=/nologo /fp:precise /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS MDCFLAGS=$(CFLAGS) /MD MTCFLAGS=$(CFLAGS) /MT -DLLLDFLAGS=/machine:ix86 /release /nologo +DLLLDFLAGS=/debug:full /machine:ix86 /nologo # see note in Makefile.a6nt regarding stack size. we use 8MB here to be consistent. -EXELDFLAGS=/machine:ix86 /incremental:no /release /nologo /STACK:0x800000 +EXELDFLAGS=/debug:full /machine:ix86 /incremental:no /nologo /STACK:0x800000 # use following flags for debugging -# CFLAGS=/nologo /Od /W3 /MDd /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DNO_UNISTD_H -# LDFLAGS=/machine:ix86 /incremental:no /release /nologo /debug +# CFLAGS=/nologo /fp:precise /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /DUSE_ANSI_PROTOTYPES /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS +# MDCFLAGS=$(CFLAGS) /MDd +# MTCFLAGS=$(CFLAGS) /MTd SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib MDZlibLib=..\zlib\zlib.lib diff --git a/c/Mf-a6le b/c/Mf-a6le index 222c065370..6c0d142d47 100644 --- a/c/Mf-a6le +++ b/c/Mf-a6le @@ -16,7 +16,7 @@ m = a6le Cpu = X86_64 -mdclib = -lm -ldl $(LIBNCURSES) -lrt +mdclib = -lm -ldl $(LIBNCURSES) -lrt -luuid C = ${CC} ${CPPFLAGS} -m64 -msse2 -Wpointer-arith -Wall -Wextra -Werror -Wno-implicit-fallthrough -O2 ${CFLAGS} o = o mdsrc = i3le.c diff --git a/c/Mf-a6nt b/c/Mf-a6nt index 71898b46e2..a38cc91f58 100644 --- a/c/Mf-a6nt +++ b/c/Mf-a6nt @@ -27,6 +27,7 @@ include Mf-base ${Scheme}: make.bat cmd.exe /c make.bat cp ../bin/$m/scheme.exe ../bin/$m/petite.exe + cp ../bin/$m/scheme.pdb ../bin/$m/petite.pdb make.bat: vs.bat echo '@echo off' > $@ diff --git a/c/Mf-arm32le b/c/Mf-arm32le index 291c88921b..578dcb47e3 100644 --- a/c/Mf-arm32le +++ b/c/Mf-arm32le @@ -16,7 +16,7 @@ m = arm32le Cpu = ARMV6 -mdclib = -lm -ldl $(LIBNCURSES) -lrt +mdclib = -lm -ldl $(LIBNCURSES) -lrt -luuid C = ${CC} ${CPPFLAGS} -Wpointer-arith -Wextra -Werror -Wno-implicit-fallthrough -O2 ${CFLAGS} o = o mdsrc = arm32le.c diff --git a/c/Mf-base b/c/Mf-base index 83c5e07ffb..d22c48b745 100644 --- a/c/Mf-base +++ b/c/Mf-base @@ -23,7 +23,7 @@ Main=../boot/$m/main.$o Scheme=../bin/$m/scheme kernelsrc=statics.c segment.c alloc.c symbol.c intern.c gcwrapper.c gc-ocd.c gc-oce.c\ - number.c schsig.c io.c new-io.c print.c fasl.c stats.c foreign.c prim.c prim5.c flushcache.c\ + number.c schsig.c io.c new-io.c print.c fasl.c vfasl.c stats.c foreign.c prim.c prim5.c flushcache.c\ schlib.c thread.c expeditor.c scheme.c kernelobj=${kernelsrc:%.c=%.$o} ${mdobj} diff --git a/c/Mf-i3le b/c/Mf-i3le index 732092a4e8..7f98ef6156 100644 --- a/c/Mf-i3le +++ b/c/Mf-i3le @@ -16,7 +16,7 @@ m = i3le Cpu = I386 -mdclib = -lm -ldl $(LIBNCURSES) -lrt +mdclib = -lm -ldl $(LIBNCURSES) -lrt -luuid C = ${CC} ${CPPFLAGS} -m32 -msse2 -Wpointer-arith -Wall -Wextra -Werror -Wno-implicit-fallthrough -O2 -fno-stack-protector ${CFLAGS} o = o mdsrc = i3le.c diff --git a/c/Mf-i3nt b/c/Mf-i3nt index 855721aa9d..9b37d41d47 100644 --- a/c/Mf-i3nt +++ b/c/Mf-i3nt @@ -27,6 +27,7 @@ include Mf-base ${Scheme}: make.bat cmd.exe /c make.bat cp ../bin/$m/scheme.exe ../bin/$m/petite.exe + cp ../bin/$m/scheme.pdb ../bin/$m/petite.pdb make.bat: vs.bat echo '@echo off' > $@ diff --git a/c/Mf-ppc32le b/c/Mf-ppc32le index 30f2214b5f..89977d544d 100644 --- a/c/Mf-ppc32le +++ b/c/Mf-ppc32le @@ -16,7 +16,7 @@ m = ppc32le Cpu = PPC32 -mdclib = -lm -ldl $(LIBNCURSES) -lrt +mdclib = -lm -ldl $(LIBNCURSES) -lrt -luuid C = ${CC} ${CPPFLAGS} -m32 -Wpointer-arith -Wextra -Werror -Wno-implicit-fallthrough -O2 ${CFLAGS} o = o mdsrc = ppc32.c diff --git a/c/Mf-ta6le b/c/Mf-ta6le index 6be72728d5..df8de237a8 100644 --- a/c/Mf-ta6le +++ b/c/Mf-ta6le @@ -16,7 +16,7 @@ m = ta6le Cpu = X86_64 -mdclib = -lm -ldl $(LIBNCURSES) -lpthread -lrt +mdclib = -lm -ldl $(LIBNCURSES) -lpthread -lrt -luuid C = ${CC} ${CPPFLAGS} -m64 -msse2 -Wpointer-arith -Wall -Wextra -Werror -Wno-implicit-fallthrough -O2 -D_REENTRANT -pthread ${CFLAGS} o = o mdsrc = i3le.c diff --git a/c/Mf-ta6nt b/c/Mf-ta6nt index a6e0d94369..5df2d40d0b 100644 --- a/c/Mf-ta6nt +++ b/c/Mf-ta6nt @@ -27,6 +27,7 @@ include Mf-base ${Scheme}: make.bat cmd.exe /c make.bat cp ../bin/$m/scheme.exe ../bin/$m/petite.exe + cp ../bin/$m/scheme.pdb ../bin/$m/petite.pdb make.bat: vs.bat echo '@echo off' > $@ diff --git a/c/Mf-ti3le b/c/Mf-ti3le index 56462a213c..2f100063a0 100644 --- a/c/Mf-ti3le +++ b/c/Mf-ti3le @@ -16,7 +16,7 @@ m = ti3le Cpu = I386 -mdclib = -lm -ldl $(LIBNCURSES) -lpthread -lrt +mdclib = -lm -ldl $(LIBNCURSES) -lpthread -lrt -luuid C = ${CC} ${CPPFLAGS} -m32 -msse2 -Wpointer-arith -Wall -Wextra -Werror -Wno-implicit-fallthrough -O2 -D_REENTRANT -pthread ${CFLAGS} o = o mdsrc = i3le.c diff --git a/c/Mf-ti3nt b/c/Mf-ti3nt index 5503422757..303b0c09ab 100644 --- a/c/Mf-ti3nt +++ b/c/Mf-ti3nt @@ -27,6 +27,7 @@ include Mf-base ${Scheme}: make.bat cmd.exe /c make.bat cp ../bin/$m/scheme.exe ../bin/$m/petite.exe + cp ../bin/$m/scheme.pdb ../bin/$m/petite.pdb make.bat: vs.bat echo '@echo off' > $@ diff --git a/c/Mf-tppc32le b/c/Mf-tppc32le index 42dbfa11a8..c20cec4534 100644 --- a/c/Mf-tppc32le +++ b/c/Mf-tppc32le @@ -16,7 +16,7 @@ m = tppc32le Cpu = PPC32 -mdclib = -lm -ldl $(LIBNCURSES) -lpthread -lrt +mdclib = -lm -ldl $(LIBNCURSES) -lpthread -lrt -luuid C = ${CC} ${CPPFLAGS} -m32 -Wpointer-arith -Wextra -Werror -Wno-implicit-fallthrough -O2 -D_REENTRANT -pthread ${CFLAGS} o = o mdsrc = ppc32le.c diff --git a/c/alloc.c b/c/alloc.c index 93f0471f02..361a0780b3 100644 --- a/c/alloc.c +++ b/c/alloc.c @@ -150,14 +150,6 @@ ptr S_compute_bytes_allocated(xg, xs) ptr xg; ptr xs; { return Sunsigned(n); } -ptr S_thread_get_more_room(t, n) iptr t; iptr n; { - ptr x; - tc_mutex_acquire() - find_room(space_new, 0, t, n, x); - tc_mutex_release() - return x; -} - static void maybe_fire_collector() { ISPC s; uptr bytes, fudge; @@ -369,24 +361,29 @@ void S_scan_remembered_set() { void S_get_more_room() { ptr tc = get_thread_context(); - ptr xp; uptr ap, eap, real_eap, type, size; - - tc_mutex_acquire() - - ap = (uptr)AP(tc); - eap = (uptr)EAP(tc); - real_eap = (uptr)REAL_EAP(tc); + ptr xp; uptr ap, type, size; xp = XP(tc); if ((type = TYPEBITS(xp)) == 0) type = typemod; - size = ap - (iptr)UNTYPE(xp,type); - ap -= size; + ap = (uptr)UNTYPE(xp, type); + size = (uptr)((iptr)AP(tc) - (iptr)ap); + + XP(tc) = S_get_more_room_help(tc, ap, type, size); +} + +ptr S_get_more_room_help(ptr tc, uptr ap, uptr type, uptr size) { + ptr x; uptr eap, real_eap; + + eap = (uptr)EAP(tc); + real_eap = (uptr)REAL_EAP(tc); + + tc_mutex_acquire() S_scan_dirty((ptr **)eap, (ptr **)real_eap); eap = real_eap; if (eap - ap >= size) { - XP(tc) = TYPE(ap, type); + x = TYPE(ap, type); ap += size; if (eap - ap > alloc_waste_maximum) { AP(tc) = (ptr)ap; @@ -398,20 +395,22 @@ void S_get_more_room() { } else if (eap - ap > alloc_waste_maximum) { AP(tc) = (ptr)ap; EAP(tc) = (ptr)eap; - find_room(space_new, 0, type, size, XP(tc)); + find_room(space_new, 0, type, size, x); } else { S_G.bytes_of_space[space_new][0] -= eap - ap; S_reset_allocation_pointer(tc); ap = (uptr)AP(tc); if (size + alloc_waste_maximum <= (uptr)EAP(tc) - ap) { - XP(tc) = TYPE(ap, type); + x = TYPE(ap, type); AP(tc) = (ptr)(ap + size); } else { - find_room(space_new, 0, type, size, XP(tc)); + find_room(space_new, 0, type, size, x); } } tc_mutex_release() + + return x; } /* S_cons_in is always called with mutex */ diff --git a/c/externs.h b/c/externs.h index 85e321fcdd..6dc1a4c20f 100644 --- a/c/externs.h +++ b/c/externs.h @@ -59,6 +59,7 @@ extern void S_dirty_set PROTO((ptr *loc, ptr x)); extern void S_scan_dirty PROTO((ptr **p, ptr **endp)); extern void S_scan_remembered_set PROTO((void)); extern void S_get_more_room PROTO((void)); +extern ptr S_get_more_room_help PROTO((ptr tc, uptr ap, uptr type, uptr size)); extern ptr S_cons_in PROTO((ISPC s, IGEN g, ptr car, ptr cdr)); extern ptr S_symbol PROTO((ptr name)); extern ptr S_rational PROTO((ptr n, ptr d)); @@ -89,7 +90,6 @@ extern ptr S_string PROTO((const char *s, iptr n)); extern ptr S_bignum PROTO((iptr n, IBOOL sign)); extern ptr S_code PROTO((ptr tc, iptr type, iptr n)); extern ptr S_relocation_table PROTO((iptr n)); -extern ptr S_thread_get_more_room PROTO((iptr t, iptr n)); /* fasl.c */ extern void S_fasl_init PROTO((void)); @@ -102,6 +102,13 @@ char *S_lookup_machine_type PROTO((uptr n)); extern void S_set_code_obj PROTO((char *who, IFASLCODE typ, ptr p, iptr n, ptr x, iptr o)); extern ptr S_get_code_obj PROTO((IFASLCODE typ, ptr p, iptr n, iptr o)); +extern int S_fasl_stream_read PROTO((void *stream, octet *dest, iptr n)); +extern int S_fasl_intern_rtd(ptr *x); + +/* vfasl.c */ +extern ptr S_to_vfasl PROTO((ptr v)); +extern ptr S_vfasl PROTO((ptr bv, void *stream, iptr len)); +extern ptr S_vfasl_to PROTO((ptr v)); /* flushcache.c */ extern void S_record_code_mod PROTO((ptr tc, uptr addr, uptr bytes)); @@ -153,6 +160,7 @@ extern void S_resize_oblist PROTO((void)); extern ptr S_intern PROTO((const unsigned char *s)); extern ptr S_intern_sc PROTO((const string_char *s, iptr n, ptr name_str)); extern ptr S_intern3 PROTO((const string_char *pname, iptr plen, const string_char *uname, iptr ulen, ptr pname_str, ptr uame_str)); +extern ptr S_intern4 PROTO((ptr sym)); extern void S_intern_gensym PROTO((ptr g)); extern void S_retrofit_nonprocedure_code PROTO((void)); diff --git a/c/fasl.c b/c/fasl.c index c659c69ec2..15a4d246a2 100644 --- a/c/fasl.c +++ b/c/fasl.c @@ -237,7 +237,7 @@ static void ppc32_set_jump PROTO((void *address, uptr item, IBOOL callp)); static uptr ppc32_get_jump PROTO((void *address)); #endif /* PPC32 */ #ifdef X86_64 -static void x86_64_set_jump PROTO((void *address, uptr item, IBOOL callp)); +static void x86_64_set_jump PROTO((void *address, uptr item, IBOOL callp, IBOOL force_abs)); static uptr x86_64_get_jump PROTO((void *address)); #endif /* X86_64 */ #ifdef SPARC64 @@ -374,6 +374,11 @@ static INT uf_read(unbufFaslFile uf, octet *s, iptr n) { return 0; } +int S_fasl_stream_read(void *stream, octet *dest, iptr n) +{ + return uf_read((unbufFaslFile)stream, dest, n); +} + static octet uf_bytein(unbufFaslFile uf) { octet buf[1]; if (uf_read(uf, buf, 1) < 0) @@ -451,16 +456,21 @@ static ptr fasl_entry(ptr tc, unbufFaslFile uf) { ty = uf_bytein(uf); } - if (ty != fasl_type_fasl_size) + if ((ty != fasl_type_fasl_size) + && (ty != fasl_type_vfasl_size)) S_error1("", "malformed fasl-object header found in ~a", uf->path); ffo.size = uf_uptrin(uf); - ffo.buf = buf; - ffo.next = ffo.end = ffo.buf; - ffo.uf = uf; - - faslin(tc, &x, S_G.null_vector, &strbuf, &ffo); + if (ty == fasl_type_vfasl_size) { + x = S_vfasl((ptr)0, uf, ffo.size); + } else { + ffo.buf = buf; + ffo.next = ffo.end = ffo.buf; + ffo.uf = uf; + + faslin(tc, &x, S_G.null_vector, &strbuf, &ffo); + } S_flush_instruction_cache(tc); return x; @@ -694,27 +704,10 @@ static void faslin(ptr tc, ptr *x, ptr t, ptr *pstrbuf, faslFile f) { *x = rtd; return; } case fasl_type_rtd: { - ptr rtd, rtd_uid, plist, ls; - fasl_record(tc, x, t, pstrbuf, f); - rtd = *x; - rtd_uid = RECORDDESCUID(rtd); - - /* see if uid's property list already registers an rtd */ - plist = SYMSPLIST(rtd_uid); - for (ls = plist; ls != Snil; ls = Scdr(Scdr(ls))) { - if (Scar(ls) == S_G.rtd_key) { - ptr old_rtd = Scar(Scdr(ls)); - /* if so, check new rtd against old rtd and return old rtd */ - if (!rtd_equiv(rtd, old_rtd)) - S_error2("", "incompatible record type ~s in ~a", RECORDDESCNAME(rtd), f->uf->path); - *x = old_rtd; - return; - } + if (S_fasl_intern_rtd(x) < 0) { + S_error2("", "incompatible record type ~s in ~a", RECORDDESCNAME(*x), f->uf->path); } - - /* if not, register it */ - SETSYMSPLIST(rtd_uid, Scons(S_G.rtd_key, Scons(rtd, plist))); return; } case fasl_type_record: { @@ -1106,6 +1099,33 @@ static void fasl_record(ptr tc, ptr *x, ptr t, ptr *pstrbuf, faslFile f) { } } +/* Result: 0 => interned; 1 => replaced; -1 => inconsistent */ +int S_fasl_intern_rtd(ptr *x) +{ + ptr rtd, rtd_uid, plist, ls; + + rtd = *x; + rtd_uid = RECORDDESCUID(rtd); + + /* see if uid's property list already registers an rtd */ + plist = SYMSPLIST(rtd_uid); + for (ls = plist; ls != Snil; ls = Scdr(Scdr(ls))) { + if (Scar(ls) == S_G.rtd_key) { + ptr old_rtd = Scar(Scdr(ls)); + /* if so, check new rtd against old rtd and return old rtd */ + if (!rtd_equiv(rtd, old_rtd)) + return -1; + else + *x = old_rtd; + return 1; + } + } + + /* if not, register it */ + SETSYMSPLIST(rtd_uid, Scons(S_G.rtd_key, Scons(rtd, plist))); + return 0; +} + /* limited version for checking rtd fields */ static IBOOL equalp(x, y) ptr x, y; { if (x == y) return 1; @@ -1121,7 +1141,10 @@ static IBOOL equalp(x, y) ptr x, y; { } static IBOOL rtd_equiv(x, y) ptr x, y; { - return RECORDINSTTYPE(x) == RECORDINSTTYPE(y) && + return ((RECORDINSTTYPE(x) == RECORDINSTTYPE(y)) + /* recognize `base-rtd` shape: */ + || ((RECORDINSTTYPE(x) == x) + && (RECORDINSTTYPE(y) == y))) && RECORDDESCPARENT(x) == RECORDDESCPARENT(y) && equalp(RECORDDESCPM(x), RECORDDESCPM(y)) && equalp(RECORDDESCMPM(x), RECORDDESCMPM(y)) && @@ -1164,7 +1187,7 @@ void S_set_code_obj(who, typ, p, n, x, o) char *who; IFASLCODE typ; iptr n, o; p address = (void *)((uptr)p + n); item = (uptr)x + o; - switch (typ) { + switch (typ & ~reloc_force_abs) { case reloc_abs: *(uptr *)address = item; break; @@ -1198,10 +1221,10 @@ void S_set_code_obj(who, typ, p, n, x, o) char *who; IFASLCODE typ; iptr n, o; p #endif /* I386 */ #ifdef X86_64 case reloc_x86_64_jump: - x86_64_set_jump(address, item, 0); + x86_64_set_jump(address, item, 0, typ & reloc_force_abs); break; case reloc_x86_64_call: - x86_64_set_jump(address, item, 1); + x86_64_set_jump(address, item, 1, typ & reloc_force_abs); break; #endif /* X86_64 */ #ifdef SPARC64 @@ -1241,7 +1264,7 @@ ptr S_get_code_obj(typ, p, n, o) IFASLCODE typ; iptr n, o; ptr p; { void *address; uptr item; address = (void *)((uptr)p + n); - switch (typ) { + switch (typ & ~reloc_force_abs) { case reloc_abs: item = *(uptr *)address; break; @@ -1419,9 +1442,9 @@ static uptr ppc32_get_jump(void *address) { #endif /* PPC32 */ #ifdef X86_64 -static void x86_64_set_jump(void *address, uptr item, IBOOL callp) { +static void x86_64_set_jump(void *address, uptr item, IBOOL callp, IBOOL force_abs) { I64 disp = (I64)item - ((I64)address + 5); /* 5 = size of call instruction */ - if ((I32)disp == disp) { + if ((I32)disp == disp && !force_abs) { *(octet *)address = callp ? 0xE8 : 0xE9; /* call or jmp disp32 opcode */ *(I32 *)((uptr)address + 1) = (I32)disp; *((octet *)address + 5) = 0x90; /* nop */ diff --git a/c/globals.h b/c/globals.h index 86f74d89be..b3bf0b53a5 100644 --- a/c/globals.h +++ b/c/globals.h @@ -151,4 +151,9 @@ EXTERN struct { ptr eqvp; ptr equalp; ptr symboleqp; + + /* vfasl.c */ + struct vfasl_hash_table *c_entries; + struct vfasl_hash_table *library_entries; + struct vfasl_hash_table *library_entry_codes; } S_G; diff --git a/c/intern.c b/c/intern.c index acfee35393..ab530f887c 100644 --- a/c/intern.c +++ b/c/intern.c @@ -361,7 +361,7 @@ void S_intern_gensym(sym) ptr sym; { tc_mutex_release() S_error1("intern-gensym", "unique name ~s already interned", uname_str); } - if (Sstring_ref(str, i) != uname[i]) break; + if (STRIT(str, i) != uname[i]) break; } } } @@ -374,12 +374,58 @@ void S_intern_gensym(sym) ptr sym; { tc_mutex_release() } +/* must hold mutex */ +ptr S_intern4(sym) ptr sym; { + ptr name = SYMNAME(sym); + + if (name == Sfalse) { + /* gensym whose name wasn't generated, so far */ + return sym; + } else { + ptr uname_str = (Sstringp(name) ? name : Scar(name)); + if (uname_str == Sfalse) { + /* gensym that wasn't interned, so far */ + return sym; + } else { + const string_char *uname = &STRIT(uname_str, 0); + iptr ulen = Sstring_length(uname_str); + iptr hc = UNFIX(SYMHASH(sym)); + iptr idx = hc % S_G.oblist_length; + bucket *b; + + b = S_G.oblist[idx]; + while (b != NULL) { + ptr x = b->sym; + ptr x_name = SYMNAME(x); + if (Sstringp(name) == Sstringp(x_name)) { + ptr str = (Sstringp(x_name) ? x_name : Scar(x_name)); + if (Sstring_length(str) == ulen) { + iptr i; + for (i = 0; ; i += 1) { + if (i == ulen) { + return x; + } + if (STRIT(str, i) != uname[i]) break; + } + } + } + b = b->next; + } + + oblist_insert(sym, idx, GENERATION(sym)); + + return sym; + } + } +} + /* retrofit existing symbols once nonprocedure_code is available */ void S_retrofit_nonprocedure_code() { ptr npc, sym, val; bucket_list *bl; npc = S_G.nonprocedure_code; + /* FIXME */ /* assuming this happens early, before collector has been called, so need look only for generation 0 symbols */ for (bl = S_G.buckets_of_generation[0]; bl != NULL; bl = bl->cdr) { sym = bl->car->sym; diff --git a/c/prim5.c b/c/prim5.c index bb40e6277b..6a9cb94385 100644 --- a/c/prim5.c +++ b/c/prim5.c @@ -1546,6 +1546,8 @@ void S_prim5_init() { Sforeign_symbol("(cs)getpid", (void *)s_getpid); Sforeign_symbol("(cs)fasl_read", (void *)S_fasl_read); Sforeign_symbol("(cs)bv_fasl_read", (void *)S_bv_fasl_read); + Sforeign_symbol("(cs)to_vfasl", (void *)S_to_vfasl); + Sforeign_symbol("(cs)vfasl_to", (void *)S_vfasl_to); Sforeign_symbol("(cs)s_decode_float", (void *)s_decode_float); Sforeign_symbol("(cs)new_open_input_fd", (void *)S_new_open_input_fd); diff --git a/c/segment.c b/c/segment.c index 6cefcf4dda..5d44e48835 100644 --- a/c/segment.c +++ b/c/segment.c @@ -228,7 +228,9 @@ static void initialize_seginfo(seginfo *si, ISPC s, IGEN g) { si->space = s; si->generation = g; + si->sorted = 0; si->min_dirty_byte = 0xff; + si->trigger_ephemerons = NULL; for (d = 0; d < cards_per_segment; d += sizeof(ptr)) { iptr *dp = (iptr *)(si->dirty_bytes + d); /* fill sizeof(iptr) bytes at a time with 0xff */ @@ -264,7 +266,6 @@ iptr S_find_segments(s, g, n) ISPC s; IGEN g; iptr n; { chunk->nused_segs += 1; initialize_seginfo(si, s, g); - si->sorted = 0; si->next = S_G.occupied_segments[s][g]; S_G.occupied_segments[s][g] = si; S_G.number_of_empty_segments -= 1; @@ -303,7 +304,6 @@ iptr S_find_segments(s, g, n) ISPC s; IGEN g; iptr n; { S_G.occupied_segments[s][g] = si; for (j = n, nextsi = si; j > 0; j -= 1, nextsi = nextsi->next) { initialize_seginfo(nextsi, s, g); - nextsi->sorted = 0; } S_G.number_of_empty_segments -= n; return si->number; diff --git a/c/stats.c b/c/stats.c index 4e3ee139b0..ae5640a0df 100644 --- a/c/stats.c +++ b/c/stats.c @@ -53,57 +53,33 @@ static long adjust_time_zone(ptr dtvec, struct tm *tmxp, ptr given_tzoff); #include ptr S_unique_id() { - union {UUID uuid; INT foo[4];} u; - u.foo[0] = 0; - u.foo[1] = 0; - u.foo[2] = 0; - u.foo[3] = 0; - - UuidCreate(&u.uuid); - return S_add(S_ash(Sunsigned(u.foo[0]), Sinteger(8*3*sizeof(INT))), - S_add(S_ash(Sunsigned(u.foo[1]), Sinteger(8*2*sizeof(INT))), - S_add(S_ash(Sunsigned(u.foo[2]), Sinteger(8*sizeof(INT))), - Sunsigned(u.foo[3])))); + union {UUID uuid; U32 foo[4];} u; + u.foo[0] = 0; + u.foo[1] = 0; + u.foo[2] = 0; + u.foo[3] = 0; + UuidCreate(&u.uuid); + return S_add(S_ash(Sunsigned32(u.foo[0]), Sinteger(8*3*sizeof(U32))), + S_add(S_ash(Sunsigned32(u.foo[1]), Sinteger(8*2*sizeof(U32))), + S_add(S_ash(Sunsigned32(u.foo[2]), Sinteger(8*sizeof(U32))), + Sunsigned32(u.foo[3])))); } #else /* WIN32 */ -#include -#include -#include -#include -#include - -static INT gethostip(void) { - char hostname[MAXHOSTNAMELEN+1]; - struct hostent *h; - char **p; - struct in_addr in; - - if (gethostname(hostname, MAXHOSTNAMELEN)) return 0; - if ((h = gethostbyname(hostname)) == NULL) return 0; - p = h->h_addr_list; - if (*p == NULL) return 0; - - memcpy(&in.s_addr, *p, sizeof (in.s_addr)); - return in.s_addr; -} +#include ptr S_unique_id() { - struct timeval tp; - time_t sec; - pid_t pid; - INT ip; - - (void) gettimeofday(&tp,NULL); - - pid = getpid(); - ip = gethostip(); - sec = tp.tv_sec; - - return S_add(S_ash(Sunsigned(pid), Sinteger(8*(sizeof(sec)+sizeof(ip)))), - S_add(S_ash(Sunsigned(ip), Sinteger(8*(sizeof(sec)))), - Sunsigned(sec))); + union {uuid_t uuid; U32 foo[4];} u; + u.foo[0] = 0; + u.foo[1] = 0; + u.foo[2] = 0; + u.foo[3] = 0; + uuid_generate(u.uuid); + return S_add(S_ash(Sunsigned32(u.foo[0]), Sinteger(8*3*sizeof(U32))), + S_add(S_ash(Sunsigned32(u.foo[1]), Sinteger(8*2*sizeof(U32))), + S_add(S_ash(Sunsigned32(u.foo[2]), Sinteger(8*sizeof(U32))), + Sunsigned32(u.foo[3])))); } #endif /* WIN32 */ diff --git a/c/types.h b/c/types.h index cfd53501ec..3f413dadd9 100644 --- a/c/types.h +++ b/c/types.h @@ -96,7 +96,7 @@ typedef int IFASLCODE; /* fasl type codes */ ptr _tc = tc;\ uptr _ap = (uptr)AP(_tc);\ if ((uptr)n > ((uptr)EAP(_tc) - _ap)) {\ - (x) = S_thread_get_more_room(t, n);\ + (x) = S_get_more_room_help(_tc, _ap, t, n);\ } else {\ (x) = TYPE(_ap,t);\ AP(_tc) = (ptr)(_ap + n);\ diff --git a/c/vfasl.c b/c/vfasl.c new file mode 100644 index 0000000000..e36f1d3428 --- /dev/null +++ b/c/vfasl.c @@ -0,0 +1,1388 @@ +/* vfasl.c + * Copyright 1984-2017 Cisco Systems, Inc. + * + * Licensed under the Apache License, Version 2.0 (the "License"); + * you may not use this file except in compliance with the License. + * You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "system.h" + +typedef uptr vfoff; + +typedef struct vfasl_header { + vfoff data_size; + vfoff table_size; + + vfoff result_offset; + + /* symbol starting offset is 0 */ +# define sym_end_offset rtd_offset + vfoff rtd_offset; +# define rtd_end_offset closure_offset + vfoff closure_offset; +# define closure_end_offset code_offset + vfoff code_offset; +# define code_end_offset other_offset + vfoff other_offset; + + vfoff symref_count; + vfoff rtdref_count; + vfoff singletonref_count; +} vfasl_header; + +/* vfasl format, where the fixed-size header determines the rest of the + size: + + [vfasl_header] + _ +d / [symbol] ... +a / [rtd] ... +t | [closure] ... +a \ [code] ... + \_ [other] ... + +t / [vfoff: symbol reference offset] ... +a / [vfoff: rtd reference offset] ... +b | [vfoff: singleton reference offset] ... +l \ +e \_ [bitmap of pointer offsets] + +*/ + +/* Many chunks per vspace on first pass, one per vspace on second + pass: */ +typedef struct vfasl_chunk { + ptr bytes; + uptr length; + uptr used; + uptr swept; + struct vfasl_chunk *next; +} vfasl_chunk; + +/* One per vspace: */ +struct vfasl_count_and_chunk { + uptr total_bytes; + vfasl_chunk *first; +}; + +enum { + /* The order of these spaces matters: */ + vspace_symbol, + vspace_rtd, + vspace_closure, + vspace_code, + /* The rest of the spaces are "other" */ + vspace_array, + vspace_typed, + vspace_reloc, + vspace_data, /* at end, so pointer bitmap ends with zeros */ + vspaces_count +}; + +typedef struct vfasl_info { + ptr base_addr; /* address to make relocations relative to */ + + uptr sym_count; + + vfoff symref_count; + vfoff *symrefs; + + ptr base_rtd; /* track replacement base_rtd to recognize other rtds */ + + vfoff rtdref_count; + vfoff *rtdrefs; + + vfoff singletonref_count; + vfoff *singletonrefs; + + struct vfasl_count_and_chunk spaces[vspaces_count]; + + octet *ptr_bitmap; + + struct vfasl_hash_table *graph; +} vfasl_info; + +#define ptr_add(p, n) ((ptr)((uptr)(p) + (n))) +#define ptr_subtract(p, n) ((ptr)((uptr)(p) - (n))) +#define ptr_diff(p, q) ((uptr)(p) - (uptr)(q)) + +#define byte_bits 8 +#define log2_byte_bits 3 + +static ptr vfasl_copy_all(vfasl_info *vfi, ptr v); + +static ptr copy(vfasl_info *vfi, ptr pp, seginfo *si); +static void sweep_ptrs(vfasl_info *vfi, ptr *pp, iptr n); +static uptr sweep_code_object(vfasl_info *vfi, ptr co); +static uptr sweep_record(vfasl_info *vfi, ptr co); +static uptr sweep(vfasl_info *vfi, ptr p); + +static void relink_code(ptr co, ptr sym_base, ptr dest_base); + +static void vfasl_relocate(vfasl_info *vfi, ptr *ppp); +static ptr vfasl_relocate_help(vfasl_info *vfi, ptr pp); +static ptr vfasl_find_room(vfasl_info *vfi, int s, ITYPE t, iptr n); +static void vfasl_register_rtd_reference(vfasl_info *vfi, ptr pp); +static void vfasl_register_symbol_reference(vfasl_info *vfi, ptr *pp, ptr p); +static void vfasl_register_singleton_reference(vfasl_info *vfi, ptr *pp, int which); +static void vfasl_register_forward(vfasl_info *vfi, ptr pp, ptr p); +static ptr vfasl_lookup_forward(vfasl_info *vfi, ptr p); + +static void fasl_init_entry_tables(); + +static int detect_singleton(ptr p); +static ptr lookup_singleton(int which); + +typedef struct vfasl_hash_table vfasl_hash_table; +static vfasl_hash_table *make_vfasl_hash_table(); +static void free_vfasl_hash_table(vfasl_hash_table *ht); +static void vfasl_hash_table_set(vfasl_hash_table *ht, ptr key, ptr value); +static ptr vfasl_hash_table_ref(vfasl_hash_table *ht, ptr key); + +static void sort_offsets(vfoff *p, vfoff len); + +#define vfasl_fail(vfi, what) S_error("vfasl", "cannot encode " what) + +#define print_stats(args) /* printf args */ + +ptr S_vfasl(ptr bv, void *stream, iptr input_len) +{ + ptr tc = get_thread_context(); + vfasl_header header; + ptr data, table; + vfoff *symrefs, *rtdrefs, *singletonrefs; + octet *bm, *bm_end; + iptr used_len; + + used_len = sizeof(header); + if (used_len > input_len) + S_error("fasl-read", "input length mismatch"); + + if (bv) + memcpy(&header, &BVIT(bv, 0), sizeof(vfasl_header)); + else { + if (S_fasl_stream_read(stream, (octet*)&header, sizeof(header)) < 0) + S_error("fasl-read", "input truncated"); + } + + used_len += header.data_size + header.table_size; + if (used_len > input_len) + S_error("fasl-read", "input length mismatch"); + + if (bv) { + ptr base_addr = &BVIT(bv, sizeof(vfasl_header)); + thread_find_room(tc, typemod, header.data_size, data); + memcpy(data, base_addr, header.data_size); + table = ptr_add(base_addr, header.data_size); + } else { + thread_find_room(tc, typemod, header.data_size, data); + if (S_fasl_stream_read(stream, data, header.data_size) < 0) + S_error("fasl-read", "input truncated"); + + thread_find_room(tc, typemod, ptr_align(header.table_size), table); + if (S_fasl_stream_read(stream, table, header.table_size) < 0) + S_error("fasl-read", "input truncated"); + } + + symrefs = table; + rtdrefs = ptr_add(symrefs, header.symref_count * sizeof(vfoff)); + singletonrefs = ptr_add(rtdrefs, header.rtdref_count * sizeof(vfoff)); + bm = ptr_add(singletonrefs, header.singletonref_count * sizeof(vfoff)); + bm_end = ptr_add(table, header.table_size); + + if (0) + printf("\n" + "hdr %ld\n" + "syms %ld\n" + "rtds %ld\n" + "clos %ld\n" + "code %ld\n" + "othr %ld\n" + "tabl %ld symref %ld rtdref %ld sglref %ld\n", + sizeof(vfasl_header), + header.sym_end_offset, + header.rtd_end_offset - header.rtd_offset, + header.closure_end_offset - header.closure_offset, + header.code_end_offset - header.code_offset, + header.data_size - header.other_offset, + header.table_size, + header.symref_count * sizeof(vfoff), + header.rtdref_count * sizeof(vfoff), + header.singletonref_count * sizeof(vfoff)); + + /* Fix up pointers. The content `data` initially has all pointers + relative to the start of the data, so add the `data` address + to all pointers. */ + { + ptr *p = data; + while (bm != bm_end) { + octet m; + m = *bm; +# define MAYBE_FIXUP(i) if (m & (1 << i)) ((uptr *)p)[i] += (uptr)data + MAYBE_FIXUP(0); + MAYBE_FIXUP(1); + MAYBE_FIXUP(2); + MAYBE_FIXUP(3); + MAYBE_FIXUP(4); + MAYBE_FIXUP(5); + MAYBE_FIXUP(6); + MAYBE_FIXUP(7); +# undef MAYBE_FIXUP + p += byte_bits; + bm++; + } + } + + /* Intern symbols */ + { + ptr sym = TYPE(data, type_symbol); + ptr end_syms = TYPE(ptr_add(data, header.sym_end_offset), type_symbol); + + if (sym != end_syms) { + tc_mutex_acquire() + + while (sym < end_syms) { + ptr isym; + + INITSYMVAL(sym) = sunbound; + INITSYMCODE(sym,S_G.nonprocedure_code); + + isym = S_intern4(sym); + if (isym != sym) { + /* The symbol was already interned, so point to the existing one */ + INITSYMVAL(sym) = isym; + } + + sym = ptr_add(sym, size_symbol); + } + + tc_mutex_release() + } + } + + /* Replace symbol references with interned references */ + { + ptr syms = data; + vfoff i; + for (i = 0; i < header.symref_count; i++) { + uptr sym_pos; + ptr p2, sym, val; + p2 = ptr_add(data, symrefs[i]); + sym_pos = UNFIX(*(ptr **)p2); + sym = TYPE(ptr_add(syms, sym_pos * size_symbol), type_symbol); + if ((val = SYMVAL(sym)) != sunbound) + sym = val; + *(ptr **)p2 = sym; + } + } + + /* Intern rtds */ + if (header.rtd_offset < header.rtd_end_offset) { + ptr rtd = TYPE(ptr_add(data, header.rtd_offset), type_typed_object); + ptr rtd_end = TYPE(ptr_add(data, header.rtd_end_offset), type_typed_object); + + /* first one corresponds to base_rtd */ + RECORDINSTTYPE(rtd) = S_G.base_rtd; + RECORDDESCUID(rtd) = S_G.base_rtd; + + while (1) { + ptr new_rtd, parent_rtd; + + rtd = ptr_add(rtd, size_record_inst(UNFIX(RECORDDESCSIZE(S_G.base_rtd)))); + if (rtd == rtd_end) + break; + + RECORDINSTTYPE(rtd) = S_G.base_rtd; + + /* fixup type and parent before continuing, relying on parents being earlier in `rtd`s */ + parent_rtd = RECORDDESCPARENT(rtd); + if (parent_rtd != Sfalse) { + ptr parent_uid = RECORDDESCUID(parent_rtd); + if (!Ssymbolp(parent_uid)) + RECORDDESCPARENT(rtd) = parent_uid; + } + + new_rtd = rtd; + if (S_fasl_intern_rtd(&new_rtd)) { + if (new_rtd == rtd) { + S_error1("vfasl", "incompatible record type ~s", RECORDDESCNAME(rtd)); + } else { + /* Use the UID field to record already-interned replacement: */ + RECORDDESCUID(rtd) = new_rtd; + } + } + } + } + + /* Replace rtd references to interned references */ + { + vfoff i; + for (i = 0; i < header.rtdref_count; i++) { + ptr *ref, rtd, uid; + ref = ptr_add(data, rtdrefs[i]); + rtd = *ref; + uid = RECORDDESCUID(rtd); + if (!Ssymbolp(uid)) { + /* uid is replacement interned rtd */ + *ref = uid; + } + } + } + + /* Replace references to singletons like "" and #vu8() */ + { + vfoff i; + for (i = 0; i < header.singletonref_count; i++) { + ptr *ref; + ref = ptr_add(data, singletonrefs[i]); + *ref = lookup_singleton(UNFIX(*ref)); + } + } + + /* Fix code pointers on closures */ + { + ptr cl = TYPE(ptr_add(data, header.closure_offset), type_closure); + ptr end_closures = TYPE(ptr_add(data, header.closure_end_offset), type_closure); + + while (cl != end_closures) { + ptr code = CLOSCODE(cl); + code = ptr_add(code, (uptr)data); + SETCLOSCODE(cl,code); + cl = ptr_add(cl, size_closure(CLOSLEN(cl))); + } + } + + /* Fix code via relocations */ + { + + ptr sym_base = data; + ptr code = TYPE(ptr_add(data, header.code_offset), type_typed_object); + ptr code_end = TYPE(ptr_add(data, header.code_end_offset), type_typed_object); + while (code != code_end) { + relink_code(code, sym_base, data); + code = ptr_add(code, size_code(CODELEN(code))); + } + } + + /* Turn result offset into a value, unboxing if it's a box (which + supports a symbol result, for example). */ + { + ptr v; + ITYPE t; + v = ptr_add(data, header.result_offset); + if (((t = TYPEBITS(v)) == type_typed_object) + && TYPEP(TYPEFIELD(v), mask_box, type_box)) + v = Sunbox(v); + + return v; + } +} + +ptr S_vfasl_to(ptr bv) +{ + return S_vfasl(bv, (ptr)0, Sbytevector_length(bv)); +} + +ptr S_to_vfasl(ptr v) +{ + vfasl_info *vfi; + vfasl_header header; + ITYPE t; + int s; + uptr size, data_size, bitmap_size, pre_bitmap_size; + ptr bv, p; + + fasl_init_entry_tables(); + + /* Box certain kinds of values where the vfasl process needs a + pointer into data */ + if (IMMEDIATE(v) + || detect_singleton(v) + || ((t = TYPEBITS(v)) == type_symbol) + || ((t == type_typed_object) + && TYPEP(TYPEFIELD(v), mask_record, type_record) + && (TYPEFIELD(v) == v)) + || ((t == type_typed_object) + && TYPEP(TYPEFIELD(v), mask_box, type_box))) { + v = Sbox(v); + } + + vfi = malloc(sizeof(vfasl_info)); + + vfi->base_addr = (ptr)0; + vfi->sym_count = 0; + vfi->symref_count = 0; + vfi->symrefs = (ptr)0; + vfi->base_rtd = S_G.base_rtd; + vfi->rtdref_count = 0; + vfi->rtdrefs = (ptr)0; + vfi->singletonref_count = 0; + vfi->singletonrefs = (ptr)0; + vfi->graph = make_vfasl_hash_table(); + vfi->ptr_bitmap = (ptr)0; + + /* First pass: determine sizes */ + + for (s = 0; s < vspaces_count; s++) { + vfasl_chunk *c; + + c = malloc(sizeof(vfasl_chunk)); + c->bytes = (ptr)0; + c->length = 0; + c->used = 0; + c->swept = 0; + c->next = (ptr)0; + + vfi->spaces[s].first = c; + vfi->spaces[s].total_bytes = 0; + } + + (void)vfasl_copy_all(vfi, v); + + for (s = 0; s < vspaces_count; s++) { + vfasl_chunk *c, *next; + for (c = vfi->spaces[s].first; c; c = next) { + next = c->next; + free(c->bytes); + free(c); + } + } + + free_vfasl_hash_table(vfi->graph); + + /* Setup for second pass: allocate to contiguous bytes */ + + size = sizeof(vfasl_header); + + data_size = 0; + for (s = 0; s < vspaces_count; s++) { + data_size += vfi->spaces[s].total_bytes; + } + header.data_size = data_size; + size += data_size; + + size += vfi->symref_count * sizeof(vfoff); + size += vfi->rtdref_count * sizeof(vfoff); + size += vfi->singletonref_count * sizeof(vfoff); + + header.table_size = size - data_size - sizeof(header); /* doesn't yet include the bitmap */ + + header.rtd_offset = vfi->spaces[vspace_symbol].total_bytes; + header.closure_offset = header.rtd_offset + vfi->spaces[vspace_rtd].total_bytes; + header.code_offset = header.closure_offset + vfi->spaces[vspace_closure].total_bytes; + header.other_offset = header.code_offset + vfi->spaces[vspace_code].total_bytes; + + header.symref_count = vfi->symref_count; + header.rtdref_count = vfi->rtdref_count; + header.singletonref_count = vfi->singletonref_count; + + pre_bitmap_size = size; + + bitmap_size = (data_size + (byte_bits-1)) >> log2_byte_bits; + + size += bitmap_size; + + bv = S_bytevector(size); + memset(&BVIT(bv, 0), 0, size); + + p = &BVIT(bv, 0); + + /* Skip header for now */ + p = ptr_add(p, sizeof(vfasl_header)); + + vfi->base_addr = p; + + /* Set pointers to vspaces based on sizes frm first pass */ + for (s = 0; s < vspaces_count; s++) { + vfasl_chunk *c; + + c = malloc(sizeof(vfasl_chunk)); + c->bytes = p; + c->length = vfi->spaces[s].total_bytes; + c->used = 0; + c->swept = 0; + c->next = (ptr)0; + vfi->spaces[s].first = c; + + p = ptr_add(p, vfi->spaces[s].total_bytes); + vfi->spaces[s].total_bytes = 0; + } + + vfi->symrefs = p; + p = ptr_add(p, sizeof(vfoff) * vfi->symref_count); + + vfi->base_rtd = S_G.base_rtd; + vfi->rtdrefs = p; + p = ptr_add(p, sizeof(vfoff) * vfi->rtdref_count); + + vfi->singletonrefs = p; + p = ptr_add(p, sizeof(vfoff) * vfi->singletonref_count); + + vfi->sym_count = 0; + vfi->symref_count = 0; + vfi->rtdref_count = 0; + vfi->singletonref_count = 0; + + vfi->graph = make_vfasl_hash_table(); + + vfi->ptr_bitmap = p; + + /* Write data */ + + v = vfasl_copy_all(vfi, v); + + header.result_offset = ptr_diff(v, vfi->base_addr); + + /* Make all pointers relative to the start of the data area */ + { + ptr *p2 = vfi->base_addr; + uptr base_addr = (uptr)vfi->base_addr; + octet *bm = vfi->ptr_bitmap; + octet *bm_end = bm + bitmap_size; + uptr zeros = 0; + for (; bm != bm_end; bm++, p2 += byte_bits) { + octet m = *bm; + if (m == 0) { + zeros++; + } else { +# define MAYBE_FIXUP(i) if (m & (1 << i)) ((uptr *)p2)[i] -= base_addr; + MAYBE_FIXUP(0); + MAYBE_FIXUP(1); + MAYBE_FIXUP(2); + MAYBE_FIXUP(3); + MAYBE_FIXUP(4); + MAYBE_FIXUP(5); + MAYBE_FIXUP(6); + MAYBE_FIXUP(7); +# undef MAYBE_FIXUP + zeros = 0; + } + } + + /* We can ignore trailing zeros */ + header.table_size += (bitmap_size - zeros); + } + + /* Truncate bytevector to match end of bitmaps */ + { + uptr sz = sizeof(vfasl_header) + header.data_size + header.table_size; + BYTEVECTOR_TYPE(bv) = (sz << bytevector_length_offset) | type_bytevector; + } + + memcpy(&BVIT(bv, 0), &header, sizeof(vfasl_header)); + + sort_offsets(vfi->symrefs, vfi->symref_count); + sort_offsets(vfi->rtdrefs, vfi->rtdref_count); + sort_offsets(vfi->singletonrefs, vfi->singletonref_count); + + for (s = 0; s < vspaces_count; s++) { + free(vfi->spaces[s].first); + } + + free_vfasl_hash_table(vfi->graph); + + free(vfi); + + return bv; +} + +static ptr vfasl_copy_all(vfasl_info *vfi, ptr v) { + seginfo *si; + int s; + int changed = 1; + + si = MaybeSegInfo(ptr_get_segment(v)); + + v = copy(vfi, v, si); + + while (changed) { + changed = 0; + for (s = 0; s < vspaces_count; s++) { + vfasl_chunk *c = vfi->spaces[s].first; + while (c && (c->swept < c->used)) { + ptr pp, pp_end; + + pp = ptr_add(c->bytes, c->swept); + pp_end = ptr_add(c->bytes, c->used); + c->swept = c->used; + + switch(s) { + case vspace_symbol: + while (pp < pp_end) { + pp = ptr_add(pp, sweep(vfi, TYPE((ptr)pp, type_symbol))); + } + break; + case vspace_closure: + while (pp < pp_end) { + pp = ptr_add(pp, sweep(vfi, TYPE((ptr)pp, type_closure))); + } + break; + case vspace_array: + while (pp < pp_end) { + vfasl_relocate(vfi, pp); + pp = ptr_add(pp, sizeof(ptr)); + } + break; + case vspace_rtd: + case vspace_code: + case vspace_typed: + while (pp < pp_end) { + pp = ptr_add(pp, sweep(vfi, TYPE((ptr)pp, type_typed_object))); + } + break; + case vspace_data: + case vspace_reloc: + break; + default: + S_error_abort("vfasl: unrecognized space"); + break; + } + + c = c->next; + changed = 1; + } + } + } + + return v; +} + +static void vfasl_register_pointer(vfasl_info *vfi, ptr *pp) { + if (vfi->ptr_bitmap) { + uptr delta = ptr_diff(pp, vfi->base_addr) >> log2_ptr_bytes; + uptr i = delta >> log2_byte_bits; + uptr bit = (((uptr)1) << (delta & (byte_bits - 1))); + vfi->ptr_bitmap[i] |= bit; + } +} + +static uptr ptr_base_diff(vfasl_info *vfi, ptr p) { + if ((uptr)vfi->base_addr > (uptr)UNTYPE(p, TYPEBITS(p))) + S_error_abort("vfasl: pointer not in region"); + + return ptr_diff(p, vfi->base_addr); +} + +static void vfasl_register_symbol_reference(vfasl_info *vfi, ptr *pp, ptr p) { + if (vfi->symrefs) + vfi->symrefs[vfi->symref_count] = ptr_base_diff(vfi, pp); + vfi->symref_count++; + *pp = SYMVAL(p); /* replace symbol reference with index of symbol */ +} + +static void vfasl_register_rtd_reference(vfasl_info *vfi, ptr pp) { + if (vfi->rtdrefs) + vfi->rtdrefs[vfi->rtdref_count] = ptr_base_diff(vfi, pp); + vfi->rtdref_count++; +} + +static void vfasl_register_singleton_reference(vfasl_info *vfi, ptr *pp, int which) { + if (vfi->singletonrefs) + vfi->singletonrefs[vfi->singletonref_count] = ptr_base_diff(vfi, pp); + vfi->singletonref_count++; + *pp = FIX(which); +} + +static void vfasl_register_forward(vfasl_info *vfi, ptr pp, ptr p) { + vfasl_hash_table_set(vfi->graph, pp, p); +} + +static ptr vfasl_lookup_forward(vfasl_info *vfi, ptr p) { + return vfasl_hash_table_ref(vfi->graph, p); +} + +static ptr vfasl_find_room(vfasl_info *vfi, int s, ITYPE t, iptr n) { + ptr p; + + vfi->spaces[s].total_bytes += n; + + if (vfi->spaces[s].first->used + n > vfi->spaces[s].first->length) { + vfasl_chunk *c; + iptr newlen = n * 2; + if (newlen < 4096) + newlen = 4096; + + c = malloc(sizeof(vfasl_chunk)); + c->bytes = malloc(newlen); + c->length = newlen; + c->used = 0; + c->swept = 0; + + c->next = vfi->spaces[s].first; + vfi->spaces[s].first = c; + } + + p = ptr_add(vfi->spaces[s].first->bytes, vfi->spaces[s].first->used); + vfi->spaces[s].first->used += n; + + return TYPE(p, t); +} + +#define FIND_ROOM(vfi, s, t, n, p) p = vfasl_find_room(vfi, s, t, n) + +#define copy_ptrs(ty, p1, p2, n) {\ + ptr *Q1, *Q2, *Q1END;\ + Q1 = (ptr *)UNTYPE((p1),ty);\ + Q2 = (ptr *)UNTYPE((p2),ty);\ + Q1END = (ptr *)((uptr)Q1 + n);\ + while (Q1 != Q1END) *Q1++ = *Q2++;} + +static ptr copy(vfasl_info *vfi, ptr pp, seginfo *si) { + ptr p, tf; ITYPE t; + + if ((t = TYPEBITS(pp)) == type_typed_object) { + tf = TYPEFIELD(pp); + if (TYPEP(tf, mask_record, type_record)) { + ptr rtd; iptr n; int s; + + rtd = tf; + + if (tf == S_G.base_rtd) { + if ((pp != S_G.base_rtd) && (vfi->base_rtd == S_G.base_rtd)) { + /* make sure base_rtd is first one registered */ + (void)vfasl_relocate_help(vfi, S_G.base_rtd); + } + /* need type and parent before child; FIXME: stack overflow possible */ + if (RECORDDESCPARENT(pp) != Sfalse) { + (void)vfasl_relocate_help(vfi, RECORDDESCPARENT(pp)); + } + + s = vspace_rtd; + } else + s = vspace_typed; + + n = size_record_inst(UNFIX(RECORDDESCSIZE(rtd))); + + FIND_ROOM(vfi, s, type_typed_object, n, p); + copy_ptrs(type_typed_object, p, pp, n); + + if (pp == S_G.base_rtd) + vfi->base_rtd = p; + } else if (TYPEP(tf, mask_vector, type_vector)) { + iptr len, n; + len = Svector_length(pp); + n = size_vector(len); + FIND_ROOM(vfi, vspace_typed, type_typed_object, n, p); + copy_ptrs(type_typed_object, p, pp, n); + } else if (TYPEP(tf, mask_string, type_string)) { + iptr n; + n = size_string(Sstring_length(pp)); + FIND_ROOM(vfi, vspace_data, type_typed_object, n, p); + copy_ptrs(type_typed_object, p, pp, n); + } else if (TYPEP(tf, mask_fxvector, type_fxvector)) { + iptr n; + n = size_fxvector(Sfxvector_length(pp)); + FIND_ROOM(vfi, vspace_data, type_typed_object, n, p); + copy_ptrs(type_typed_object, p, pp, n); + } else if (TYPEP(tf, mask_bytevector, type_bytevector)) { + iptr n; + n = size_bytevector(Sbytevector_length(pp)); + FIND_ROOM(vfi, vspace_data, type_typed_object, n, p); + copy_ptrs(type_typed_object, p, pp, n); + } else if ((iptr)tf == type_tlc) { + vfasl_fail(vfi, "tlc"); + return (ptr)0; + } else if (TYPEP(tf, mask_box, type_box)) { + FIND_ROOM(vfi, vspace_typed, type_typed_object, size_box, p); + BOXTYPE(p) = (iptr)tf; + INITBOXREF(p) = Sunbox(pp); + } else if ((iptr)tf == type_ratnum) { + FIND_ROOM(vfi, vspace_typed, type_typed_object, size_ratnum, p); + RATTYPE(p) = type_ratnum; + RATNUM(p) = RATNUM(pp); + RATDEN(p) = RATDEN(pp); + } else if ((iptr)tf == type_exactnum) { + FIND_ROOM(vfi, vspace_typed, type_typed_object, size_exactnum, p); + EXACTNUM_TYPE(p) = type_exactnum; + EXACTNUM_REAL_PART(p) = EXACTNUM_REAL_PART(pp); + EXACTNUM_IMAG_PART(p) = EXACTNUM_IMAG_PART(pp); + } else if ((iptr)tf == type_inexactnum) { + FIND_ROOM(vfi, vspace_data, type_typed_object, size_inexactnum, p); + INEXACTNUM_TYPE(p) = type_inexactnum; + INEXACTNUM_REAL_PART(p) = INEXACTNUM_REAL_PART(pp); + INEXACTNUM_IMAG_PART(p) = INEXACTNUM_IMAG_PART(pp); + } else if (TYPEP(tf, mask_bignum, type_bignum)) { + iptr n; + n = size_bignum(BIGLEN(pp)); + FIND_ROOM(vfi, vspace_data, type_typed_object, n, p); + copy_ptrs(type_typed_object, p, pp, n); + } else if (TYPEP(tf, mask_port, type_port)) { + vfasl_fail(vfi, "port"); + return (ptr)0; + } else if (TYPEP(tf, mask_code, type_code)) { + iptr n; + n = size_code(CODELEN(pp)); + FIND_ROOM(vfi, vspace_code, type_typed_object, n, p); + copy_ptrs(type_typed_object, p, pp, n); + if (CODERELOC(pp) == (ptr)0) { + /* We only get here if we're vfasling code that belongs in + the static generation. */ + ptr l; iptr ln; + ln = size_reloc_table(0); + FIND_ROOM(vfi, vspace_reloc, typemod, ln, l); + RELOCSIZE(l) = 0; + RELOCCODE(l) = p; + CODERELOC(p) = l; + vfasl_register_pointer(vfi, &CODERELOC(p)); + } + } else if ((iptr)tf == type_rtd_counts) { + /* prune counts, since GC will recreate as needed */ + return Sfalse; + } else if ((iptr)tf == type_thread) { + vfasl_fail(vfi, "thread"); + return (ptr)0; + } else { + S_error_abort("vfasl: illegal type"); + return (ptr)0 /* not reached */; + } + } else if (t == type_pair) { + if (si->space == space_ephemeron) { + vfasl_fail(vfi, "emphemeron"); + return (ptr)0; + } else if (si->space == space_weakpair) { + vfasl_fail(vfi, "weakpair"); + return (ptr)0; + } else { + FIND_ROOM(vfi, vspace_array, type_pair, size_pair, p); + } + INITCAR(p) = Scar(pp); + INITCDR(p) = Scdr(pp); + } else if (t == type_closure) { + ptr code; + code = CLOSCODE(pp); + if (CODETYPE(code) & (code_flag_continuation << code_flags_offset)) { + vfasl_fail(vfi, "continuation"); + return (ptr)0; + } else { + iptr len, n; + len = CLOSLEN(pp); + n = size_closure(len); + FIND_ROOM(vfi, vspace_closure, type_closure, n, p); + copy_ptrs(type_closure, p, pp, n); + } + } else if (t == type_symbol) { + iptr pos = vfi->sym_count++; + FIND_ROOM(vfi, vspace_symbol, type_symbol, size_symbol, p); + INITSYMVAL(p) = FIX(pos); /* stores symbol index for now; will get reset on load */ + INITSYMPVAL(p) = Snil; /* will get reset on load */ + INITSYMPLIST(p) = Snil; + INITSYMSPLIST(p) = Snil; + INITSYMNAME(p) = SYMNAME(pp); + INITSYMHASH(p) = SYMHASH(pp); + } else if (t == type_flonum) { + FIND_ROOM(vfi, vspace_data, type_flonum, size_flonum, p); + FLODAT(p) = FLODAT(pp); + /* note: unlike GC, sharing flonums */ + } else { + S_error_abort("copy(gc): illegal type"); + return (ptr)0 /* not reached */; + } + + vfasl_register_forward(vfi, pp, p); + + return p; +} + +static ptr vfasl_relocate_help(vfasl_info *vfi, ptr pp) { + ptr fpp; + seginfo *si; + + si = MaybeSegInfo(ptr_get_segment(pp)); + if (!si) + vfasl_fail(vfi, "unknown"); + + fpp = vfasl_lookup_forward(vfi, pp); + if (fpp) + return fpp; + else + return copy(vfi, pp, si); +} + +/* Use vfasl_relocate only on addresses that are in the vfasl target area */ +static void vfasl_relocate(vfasl_info *vfi, ptr *ppp) { + ptr pp = *ppp, tf; + if (!IMMEDIATE(pp)) { + int which_singleton; + if ((which_singleton = detect_singleton(pp))) + vfasl_register_singleton_reference(vfi, ppp, which_singleton); + else { + pp = vfasl_relocate_help(vfi, pp); + *ppp = pp; + if (!IMMEDIATE(pp)) { + if (TYPEBITS(pp) == type_symbol) + vfasl_register_symbol_reference(vfi, ppp, pp); + else { + if ((TYPEBITS(pp) == type_typed_object) + && (((tf = TYPEFIELD(pp)) == vfi->base_rtd) + || (tf == S_G.base_rtd))) + vfasl_register_rtd_reference(vfi, ppp); + vfasl_register_pointer(vfi, ppp); + } + } + } + } +} + +static void sweep_ptrs(vfasl_info *vfi, ptr *pp, iptr n) { + ptr *end = pp + n; + + while (pp != end) { + vfasl_relocate(vfi, pp); + pp += 1; + } +} + +static uptr sweep(vfasl_info *vfi, ptr p) { + ptr tf; ITYPE t; + + t = TYPEBITS(p); + if (t == type_closure) { + uptr len; + ptr code; + + len = CLOSLEN(p); + sweep_ptrs(vfi, &CLOSIT(p, 0), len); + + /* To code-entry pointer looks like an immediate to + sweep, so relocate the code directly, and also make it + relative to the base address. */ + code = vfasl_relocate_help(vfi, CLOSCODE(p)); + code = (ptr)ptr_diff(code, vfi->base_addr); + SETCLOSCODE(p,code); + + return size_closure(len); + } else if (t == type_symbol) { + vfasl_relocate(vfi, &INITSYMNAME(p)); + /* other parts are replaced on load */ + return size_symbol; + } else if (t == type_flonum) { + /* nothing to sweep */; + return size_flonum; + /* typed objects */ + } else if (tf = TYPEFIELD(p), TYPEP(tf, mask_vector, type_vector)) { + uptr len = Svector_length(p); + sweep_ptrs(vfi, &INITVECTIT(p, 0), len); + return size_vector(len); + } else if (TYPEP(tf, mask_record, type_record)) { + return sweep_record(vfi, p); + } else if (TYPEP(tf, mask_box, type_box)) { + vfasl_relocate(vfi, &INITBOXREF(p)); + return size_box; + } else if ((iptr)tf == type_ratnum) { + vfasl_relocate(vfi, &RATNUM(p)); + vfasl_relocate(vfi, &RATDEN(p)); + return size_ratnum; + } else if ((iptr)tf == type_exactnum) { + vfasl_relocate(vfi, &EXACTNUM_REAL_PART(p)); + vfasl_relocate(vfi, &EXACTNUM_IMAG_PART(p)); + return size_exactnum; + } else if (TYPEP(tf, mask_code, type_code)) { + return sweep_code_object(vfi, p); + } else { + S_error_abort("vfasl_sweep: illegal type"); + return 0; + } +} + +static uptr sweep_record(vfasl_info *vfi, ptr x) +{ + ptr *pp; ptr num; ptr rtd; + + rtd = RECORDINSTTYPE(x); + if (rtd == S_G.base_rtd) { + /* base-rtd is reset directly in all rtds */ + RECORDINSTTYPE(x) = vfi->base_rtd; + + if (x == vfi->base_rtd) { + /* Don't need to save fields of base-rtd */ + ptr *pp = &RECORDINSTIT(x,0); + ptr *ppend = (ptr *)((uptr)pp + UNFIX(RECORDDESCSIZE(rtd))) - 1; + while (pp < ppend) { + *pp = Snil; + pp += 1; + } + return size_record_inst(UNFIX(RECORDDESCSIZE(rtd))); + } + } else + vfasl_relocate(vfi, &RECORDINSTTYPE(x)); + + num = RECORDDESCPM(rtd); + pp = &RECORDINSTIT(x,0); + + /* process cells for which bit in pm is set; quit when pm == 0. */ + if (Sfixnump(num)) { + /* ignore bit for already forwarded rtd */ + uptr mask = (uptr)UNFIX(num) >> 1; + if (mask == (uptr)-1 >> 1) { + ptr *ppend = (ptr *)((uptr)pp + UNFIX(RECORDDESCSIZE(rtd))) - 1; + while (pp < ppend) { + vfasl_relocate(vfi, pp); + pp += 1; + } + } else { + while (mask != 0) { + if (mask & 1) vfasl_relocate(vfi, pp); + mask >>= 1; + pp += 1; + } + } + } else { + iptr index; bigit mask; INT bits; + + /* bignum pointer mask */ + num = RECORDDESCPM(rtd); + vfasl_relocate(vfi, &RECORDDESCPM(rtd)); + index = BIGLEN(num) - 1; + /* ignore bit for already forwarded rtd */ + mask = BIGIT(num,index) >> 1; + bits = bigit_bits - 1; + for (;;) { + do { + if (mask & 1) vfasl_relocate(vfi, pp); + mask >>= 1; + pp += 1; + } while (--bits > 0); + if (index-- == 0) break; + mask = BIGIT(num,index); + bits = bigit_bits; + } + } + + return size_record_inst(UNFIX(RECORDDESCSIZE(rtd))); +} + +#define VFASL_RELOC_TAG_BITS 3 + +#define VFASL_RELOC_C_ENTRY_TAG 1 +#define VFASL_RELOC_LIBRARY_ENTRY_TAG 2 +#define VFASL_RELOC_LIBRARY_ENTRY_CODE_TAG 3 +#define VFASL_RELOC_SYMBOL_TAG 4 +#define VFASL_RELOC_SINGLETON_TAG 5 +/* FXIME: rtds? */ + +#define VFASL_RELOC_C_ENTRY(p) (((uptr)(p) << VFASL_RELOC_TAG_BITS) | VFASL_RELOC_C_ENTRY_TAG) +#define VFASL_RELOC_LIBRARY_ENTRY(p) (((uptr)(p) << VFASL_RELOC_TAG_BITS) | VFASL_RELOC_LIBRARY_ENTRY_TAG) +#define VFASL_RELOC_LIBRARY_ENTRY_CODE(p) (((uptr)(p) << VFASL_RELOC_TAG_BITS) | VFASL_RELOC_LIBRARY_ENTRY_CODE_TAG) +#define VFASL_RELOC_SYMBOL(p) (((uptr)(p) << VFASL_RELOC_TAG_BITS) | VFASL_RELOC_SYMBOL_TAG) +#define VFASL_RELOC_SINGLETON(p) (((uptr)(p) << VFASL_RELOC_TAG_BITS) | VFASL_RELOC_SINGLETON_TAG) + +#define VFASL_RELOC_TAG(p) (UNFIX(p) & ((1 << VFASL_RELOC_TAG_BITS) - 1)) +#define VFASL_RELOC_POS(p) (UNFIX(p) >> VFASL_RELOC_TAG_BITS) + +static uptr sweep_code_object(vfasl_info *vfi, ptr co) { + ptr t, oldco, oldt; iptr a, m, n; + + vfasl_relocate(vfi, &CODENAME(co)); + vfasl_relocate(vfi, &CODEARITYMASK(co)); + vfasl_relocate(vfi, &CODEINFO(co)); + vfasl_relocate(vfi, &CODEPINFOS(co)); + + oldt = CODERELOC(co); + + n = size_reloc_table(RELOCSIZE(oldt)); + t = vfasl_find_room(vfi, vspace_reloc, typemod, n); + copy_ptrs(typemod, t, oldt, n); + + m = RELOCSIZE(t); + oldco = RELOCCODE(t); + a = 0; + n = 0; + while (n < m) { + uptr entry, item_off, code_off; ptr obj, pos; + int which_singleton; + + entry = RELOCIT(t, n); n += 1; + if (RELOC_EXTENDED_FORMAT(entry)) { + item_off = RELOCIT(t, n); n += 1; + code_off = RELOCIT(t, n); n += 1; + } else { + item_off = RELOC_ITEM_OFFSET(entry); + code_off = RELOC_CODE_OFFSET(entry); + } + a += code_off; + obj = S_get_code_obj(RELOC_TYPE(entry), oldco, a, item_off); + + if ((which_singleton = detect_singleton(obj))) { + obj = FIX(VFASL_RELOC_SINGLETON(which_singleton)); + } else if ((pos = vfasl_hash_table_ref(S_G.c_entries, obj))) { + obj = FIX(VFASL_RELOC_C_ENTRY(pos)); + } else if ((pos = vfasl_hash_table_ref(S_G.library_entries, obj))) { + obj = FIX(VFASL_RELOC_LIBRARY_ENTRY(pos)); + } else if ((pos = vfasl_hash_table_ref(S_G.library_entry_codes, obj))) { + obj = FIX(VFASL_RELOC_LIBRARY_ENTRY_CODE(pos)); + } else if (Ssymbolp(obj)) { + obj = vfasl_relocate_help(vfi, obj); + obj = FIX(VFASL_RELOC_SYMBOL(UNFIX(SYMVAL(obj)))); + } else if (IMMEDIATE(obj)) { + /* as-is */ + if (Sfixnump(obj)) + S_error("vfasl", "unexpected fixnum in relocation"); + } else { + obj = vfasl_relocate_help(vfi, obj); + obj = (ptr)ptr_diff(obj, vfi->base_addr); + } + + S_set_code_obj("vfasl", RELOC_TYPE(entry) | reloc_force_abs, co, a, obj, item_off); + } + + RELOCCODE(t) = co; + CODERELOC(co) = t; + + vfasl_register_pointer(vfi, &RELOCCODE(t)); + vfasl_register_pointer(vfi, &CODERELOC(co)); + + return size_code(CODELEN(co)); +} + +static void relink_code(ptr co, ptr sym_base, ptr dest_base) { + ptr t; iptr a, m, n; + + t = CODERELOC(co); + + m = RELOCSIZE(t); + a = 0; + n = 0; + while (n < m) { + uptr entry, item_off, code_off; ptr obj; + + entry = RELOCIT(t, n); n += 1; + if (RELOC_EXTENDED_FORMAT(entry)) { + item_off = RELOCIT(t, n); n += 1; + code_off = RELOCIT(t, n); n += 1; + } else { + item_off = RELOC_ITEM_OFFSET(entry); + code_off = RELOC_CODE_OFFSET(entry); + } + a += code_off; + obj = S_get_code_obj(RELOC_TYPE(entry) | reloc_force_abs, co, a, item_off); + + if (IMMEDIATE(obj)) { + if (Sfixnump(obj)) { + int tag = VFASL_RELOC_TAG(obj); + int pos = VFASL_RELOC_POS(obj); + if (tag == VFASL_RELOC_SINGLETON_TAG) + obj = lookup_singleton(pos); + else if (tag == VFASL_RELOC_C_ENTRY_TAG) + obj = S_lookup_c_entry(pos); + else if ((tag == VFASL_RELOC_LIBRARY_ENTRY_TAG) + || (tag == VFASL_RELOC_LIBRARY_ENTRY_CODE_TAG)) { + obj = S_lookup_library_entry(pos, 1); + if (tag == VFASL_RELOC_LIBRARY_ENTRY_CODE_TAG) + obj = CLOSCODE(obj); + } else if (tag == VFASL_RELOC_SYMBOL_TAG) { + ptr val; + obj = TYPE(ptr_add(sym_base, pos * size_symbol), type_symbol); + if ((val = SYMVAL(obj)) != sunbound) + obj = val; + } else { + S_error_abort("vfasl: bad relocation tag"); + } + } else { + /* some other immediate, such as black-hole; leave as-is */ + } + } else { + uptr offset = (uptr)obj; + obj = ptr_add(dest_base, offset); + if ((TYPEBITS(obj) == type_typed_object) + && (TYPEFIELD(obj) == S_G.base_rtd)) { + /* Similar to symbols: potentially replace with interned */ + ptr uid = RECORDDESCUID(obj); + if (!Ssymbolp(uid)) { + /* "uid" is actually the interned rtd to use instead */ + obj = uid; + } + } + } + + S_set_code_obj("vfasl", RELOC_TYPE(entry), co, a, obj, item_off); + } +} + +/*************************************************************/ + +static void fasl_init_entry_tables() +{ + tc_mutex_acquire() + + if (!S_G.c_entries) { + iptr i; + + S_G.c_entries = make_vfasl_hash_table(); + S_G.library_entries = make_vfasl_hash_table(); + S_G.library_entry_codes = make_vfasl_hash_table(); + + for (i = Svector_length(S_G.c_entry_vector); i--; ) { + ptr entry = Svector_ref(S_G.c_entry_vector, i); + vfasl_hash_table_set(S_G.c_entries, entry, (ptr)i); + } + + for (i = Svector_length(S_G.library_entry_vector); i--; ) { + ptr entry = Svector_ref(S_G.library_entry_vector, i); + if (entry != Sfalse) { + vfasl_hash_table_set(S_G.library_entries, entry, (ptr)i); + vfasl_hash_table_set(S_G.library_entry_codes, CLOSCODE(entry), (ptr)i); + } + } + } + + tc_mutex_release() +} + +/*************************************************************/ + +static int detect_singleton(ptr p) { + if (p == S_G.null_string) + return 1; + else if (p == S_G.null_vector) + return 2; + else if (p == S_G.null_fxvector) + return 3; + else if (p == S_G.null_bytevector) + return 4; + else + return 0; +} + +static ptr lookup_singleton(int which) { + switch (which) { + case 1: + return S_G.null_string; + case 2: + return S_G.null_vector; + case 3: + return S_G.null_fxvector; + case 4: + return S_G.null_bytevector; + default: + S_error("vfasl", "bad singleton index"); + return (ptr)0; + } +} + +/*************************************************************/ + +typedef struct hash_entry { + ptr key, value; +} hash_entry; + +struct vfasl_hash_table { + uptr count; + uptr size; + hash_entry *entries; +}; + +#define HASH_CODE(p) ((uptr)(p) >> log2_ptr_bytes) +#define HASH_CODE2(p) (((uptr)(p) >> (log2_ptr_bytes + log2_ptr_bytes)) | 1) + +static vfasl_hash_table *make_vfasl_hash_table() { + vfasl_hash_table *ht; + + ht = malloc(sizeof(vfasl_hash_table)); + + ht->count = 0; + ht->size = 16; + ht->entries = calloc(sizeof(hash_entry), ht->size); + + return ht; +} + +static void free_vfasl_hash_table(vfasl_hash_table *ht) { + free(ht->entries); + free(ht); +} + +static void vfasl_hash_table_set(vfasl_hash_table *ht, ptr key, ptr value) { + uptr hc = HASH_CODE(key); + uptr hc2 = HASH_CODE2(key); + uptr size = ht->size; + + if (ht->count > ht->size >> 1) { + /* rehash */ + uptr i; + hash_entry *old_entries = ht->entries; + + ht->count = 0; + ht->size *= 2; + ht->entries = calloc(sizeof(hash_entry), ht->size); + + for (i = 0; i < size; i++) { + if (old_entries[i].key) + vfasl_hash_table_set(ht, old_entries[i].key, old_entries[i].value); + } + + free(old_entries); + size = ht->size; + } + + hc = hc & (size - 1); + while (ht->entries[hc].key) { + hc = (hc + hc2) & (size - 1); + } + + ht->entries[hc].key = key; + ht->entries[hc].value = value; + ht->count++; +} + +static ptr vfasl_hash_table_ref(vfasl_hash_table *ht, ptr key) { + uptr hc = HASH_CODE(key); + uptr hc2 = HASH_CODE2(key); + uptr size = ht->size; + ptr old_key; + + hc = hc & (size - 1); + while ((old_key = ht->entries[hc].key) != key) { + if (!old_key) + return (ptr)0; + hc = (hc + hc2) & (size - 1); + } + + return ht->entries[hc].value; +} + +/*************************************************************/ + +static void sort_offsets(vfoff *p, vfoff len) +{ + while (1) { + if (len > 1) { + vfoff i, pivot = 0; + + { + vfoff mid = len >> 2; + vfoff tmp = p[mid]; + p[mid] = p[0]; + p[0] = tmp; + } + + for (i = 1; i < len; i++) { + if (p[i] < p[pivot]) { + vfoff tmp = p[pivot]; + p[pivot] = p[i]; + pivot++; + p[i] = p[pivot]; + p[pivot] = tmp; + } + } + + if (pivot > (len >> 1)) { + sort_offsets(p+pivot+1, len-pivot-1); + len = pivot; + } else { + sort_offsets(p, pivot); + p = p+pivot+1; + len = len-pivot-1; + } + } else + return; + } +} diff --git a/csug/binding.stex b/csug/binding.stex index 8152937940..6150d64059 100644 --- a/csug/binding.stex +++ b/csug/binding.stex @@ -49,7 +49,7 @@ albeit scoped where the bindings of the \scheme{let-syntax} or in a library or RNRS top-level program unless the \scheme{scheme} library is included in the library or top-level programs imports. -These forms are described in Chatper~\ref{CHPTSYNTAX}. +These forms are described in Chapter~\ref{CHPTSYNTAX}. In Revised$^6$ Report Scheme, definitions can appear at the front of a \scheme{lambda} or similar body (e.g., a \scheme{let} or \scheme{letrec} @@ -66,8 +66,8 @@ procedure. The macro expander uses the same two-pass algorithm for expanding top-level \scheme{begin} expressions as it uses for a \scheme{lambda}, \scheme{library}, or top-level program body. -(This algorithm is described in Section~\ref{SECTSYNTAXDEFINITIONS} of {\TSPLFOUR}.) -As a result, +(This algorithm is described in Section~\ref{TSPL:SECTSYNTAXDEFINITIONS} of +{\TSPLFOUR}.) As a result, \schemedisplay (begin @@ -85,7 +85,7 @@ and both result in the giving \scheme{x} the value 3, even though an unbound variable reference to \scheme{a} would result if -the two forms within the latter \scheme{begin} expression where run +the two forms within the latter \scheme{begin} expression were run independently at top level. Similarly, the \scheme{begin} form produced by a use of @@ -136,7 +136,7 @@ for internal variable definitions, for backward compatibility. %---------------------------------------------------------------------------- \noskipentryheader -\formdef{define-values}{\categorysyntax}{(define-values formals \var{expr})} +\formdef{define-values}{\categorysyntax}{(define-values \var{formals} \var{expr})} \listlibraries \endnoskipentryheader diff --git a/csug/io.stex b/csug/io.stex index f0d9c4400e..0c0bfc1ea4 100644 --- a/csug/io.stex +++ b/csug/io.stex @@ -309,8 +309,8 @@ predicate \scheme{transcoder?}, which should be standard but is not. \var{endianness} must be the symbol \scheme{big} or the symbol \scheme{little}. -The codec returned by \scheme{utf-16-codec} can be used to create -process data written UFT-16 format. +The codec returned by \scheme{utf-16-codec} can be used to create and +process data written UTF-16 format. When called without the \var{endianness} argument or with \var{endianness} \scheme{big}, \scheme{utf-16-codec} returns a codec for standard UTF-16 data, i.e., one that defaults to big-endian format if no byte-order mark @@ -1359,11 +1359,7 @@ If \var{?transcoder} is present and not \scheme{#f}, it must be a transcoder, and this procedure returns a textual input port whose transcoder is \var{?transcoder}. Otherwise, this procedure returns a binary input port. -The buffer mode \var{b-mode} defaults to \scheme{block}, which differs from -\scheme{block} in {\ChezScheme} only for textual output ports. -See the lead-in to Section~\ref{TSPL:SECTOPENINGFILES} of {\TSPLFOUR} -for a description of the constraints on and effects of the other -arguments. +The buffer mode \var{b-mode} defaults to \scheme{block}. The Revised$^6$ Report version of this procedure does not accept the optional \var{b-mode} and \var{?transcoder} arguments, which limits @@ -1985,9 +1981,6 @@ whose transcoder is \var{?transcoder}. Otherwise, this procedure returns a binary output port. The buffer mode \var{b-mode} defaults to \scheme{line}, which differs from \scheme{block} in {\ChezScheme} only for textual output ports. -See the lead-in to Section~\ref{TSPL:SECTOPENINGFILES} of {\TSPLFOUR} -for a description of the constraints on and effects of the other -arguments. The Revised$^6$ Report version of this procedure does not accept the optional \var{b-mode} and \var{?transcoder} arguments, which limits @@ -3687,9 +3680,9 @@ are involved. \begin{tabular}{llllllll} path & abs & first & rest & parent & last & root & ext \\ -\scheme{c:} & \scheme{#t} & \scheme{c:} & \scheme{_} & \scheme{c:} & \scheme{_} & \scheme{c:} & \scheme{_} \\ +\scheme{c:} & \scheme{#f} & \scheme{c:} & \scheme{_} & \scheme{c:} & \scheme{_} & \scheme{c:} & \scheme{_} \\ \scheme{c:/} & \scheme{#t} & \scheme{c:/} & \scheme{_} & \scheme{c:/} & \scheme{_} & \scheme{c:/} & \scheme{_} \\ -\scheme{c:a/b} & \scheme{#t} & \scheme{c:} & \scheme{a/b} & \scheme{c:a} & \scheme{b} & \scheme{c:a/b} & \scheme{_} \\ +\scheme{c:a/b} & \scheme{#f} & \scheme{c:} & \scheme{a/b} & \scheme{c:a} & \scheme{b} & \scheme{c:a/b} & \scheme{_} \\ \scheme{//s/a/b.c} & \scheme{#t} & \scheme{//s} & \scheme{a/b.c} & \scheme{//s/a} & \scheme{b.c} & \scheme{//s/a/b} & \scheme{c} \\ \scheme{//s.com} & \scheme{#t} & \scheme{//s.com} & \scheme{_} & \scheme{//s.com} & \scheme{_} & \scheme{//s.com} & \scheme{_} \\ \end{tabular} diff --git a/csug/objects.stex b/csug/objects.stex index 855f8aeea2..b82f6b2dcf 100644 --- a/csug/objects.stex +++ b/csug/objects.stex @@ -1418,10 +1418,8 @@ The pretty name of a gensym is returned by the procedure In both the first and second forms, the unique name is an automatically generated globally unique name. -Globally unique names are constructed (lazily---see below) -from some combination of a unique machine identifier (such as the -network address), the current process identifier (PID), and the -time at which the Scheme session began, along with an internal +Globally unique names are constructed (lazily---see below) from the +combination of a universally unique identifier and an internal counter. In the third form of gensym, the unique name of the new gensym is \var{unique-name}, which must be a string. diff --git a/csug/syntax.stex b/csug/syntax.stex index 3a4189eb92..6d29f9ab0c 100644 --- a/csug/syntax.stex +++ b/csug/syntax.stex @@ -1887,7 +1887,7 @@ the annotation is returned. \endentryheader \var{sfd} must be a source-file descriptor. -\var{bfd} must be an exact nonnegative integer and should be the +\var{bfp} must be an exact nonnegative integer and should be the character position of the next character to be read from \var{textual-input-port}. diff --git a/csug/system.stex b/csug/system.stex index 8f5c4e809d..1861dd1fee 100644 --- a/csug/system.stex +++ b/csug/system.stex @@ -3170,7 +3170,7 @@ A \scheme{profile} form has the effect of accounting to the source position identified by \var{source-object} the number of times the \scheme{profile} form is executed. Profile forms are generated implicitly by the expander for source -expressions in annorated input, e.g., input read by the compiler or +expressions in annotated input, e.g., input read by the compiler or interpreter from a Scheme source file, so this form is typically useful only when unannotated source code is produced by the front end for some language that targets Scheme. @@ -3307,7 +3307,7 @@ frequently executed code. This value of this parameter must be a string or \scheme{#f}. If it is a string, the string should contain an HTML cascading style sheet (CSS) color specifier. -If the parameter is set to string, \scheme{profile-dump-html} includes line numbers +If the parameter is set to a string, \scheme{profile-dump-html} includes line numbers in its html rendering of each source file, using the specified color. If the parameter is set to \scheme{#f}, no line numbers are included. @@ -3324,7 +3324,7 @@ This procedure produces a dump of all profile information present in \var{dump}, which defaults to the value returned by \scheme{profile-dump}. It returns a list of entries, each of which is itself a list containing the -following elements identify one block of code and how many times it +following elements identifying one block of code and how many times it has been executed. \begin{itemize} diff --git a/makefiles/Makefile-workarea.in b/makefiles/Makefile-workarea.in index 4bf89fc2ef..504da9df2b 100644 --- a/makefiles/Makefile-workarea.in +++ b/makefiles/Makefile-workarea.in @@ -23,6 +23,9 @@ build: install: build $(MAKE) -f Mf-install +uninstall: + $(MAKE) -f Mf-install uninstall + test: build (cd mats ; $(MAKE) allx) @echo "test run complete. check $(PREFIX)mats/summary for errors." diff --git a/makefiles/Makefile.in b/makefiles/Makefile.in index 24a6caff47..3e9428999d 100644 --- a/makefiles/Makefile.in +++ b/makefiles/Makefile.in @@ -21,6 +21,9 @@ build: install: (cd $(workarea) && $(MAKE) install) +uninstall: + (cd $(workarea) && $(MAKE) uninstall) + test: (cd $(workarea) && $(MAKE) test PREFIX=$(workarea)/) diff --git a/makefiles/Mf-install.in b/makefiles/Mf-install.in index e0977ef5f2..243060a508 100644 --- a/makefiles/Mf-install.in +++ b/makefiles/Mf-install.in @@ -79,17 +79,12 @@ SchemeScriptPath=${Bin}/${InstallScriptName} install: bininstall libbininstall maninstall liblibinstall uninstall: - @echo To uninstall all machine types: - @echo rm -rf ${Lib} - @echo rm -f ${PetitePath} - @echo rm -f ${SchemePath} - @echo rm -f ${Man}/${InstallPetiteName}.1'{,.gz}' - @echo rm -f ${Man}/${InstallSchemeName}.1'{,.gz}' - @echo "" - @echo To uninstall just machine-type $m - @echo rm -rf ${Lib}/$m - @echo rm -f ${PetitePath} - @echo rm -f ${SchemePath} + rm -rf ${Lib} + rm -f ${PetitePath} + rm -f ${SchemePath} + rm -f ${SchemeScriptPath} + rm -f ${Man}/${InstallPetiteName}.1{,.gz} + rm -f ${Man}/${InstallSchemeName}.1{,.gz} scheme.1 petite.1: scheme.1.in sed -e "s;{InstallBin};${InstallBin};g" \ diff --git a/mats/6.ms b/mats/6.ms index f47e6239f3..667ecb6b4d 100644 --- a/mats/6.ms +++ b/mats/6.ms @@ -1673,7 +1673,7 @@ (begin (define-record $acyclic ((immutable notme))) (record-reader '$acyclic (type-descriptor $acyclic))) (xmat - "; Test error \"fasl object created by different release\"\n; This one is the list (a b c d) created by version 5.9b\n\n#@5.9babcd\f&\n" + "; Test error \"fasl object created by different release\"\n; This one is the list (a b c d) created by version 5.9b\n\n#@\x2;\x4;\x0;\x0;\x0;5.9b\x0;\x4;\x0;\x0;\x0;\x2;\x1;\x0;\x0;\x0;a\x2;\x1;\x0;\x0;\x0;b\x2;\x1;\x0;\x0;\x0;c\x2;\x1;\x0;\x0;\x0;d\f&\x0;\x0;\x0;\n" ) (xmat @@ -2858,7 +2858,7 @@ (or (not (windows?)) (> (length (directory-list "\\\\?\\c:\\")) 0)) (or (not (windows?)) - (> (length (directory-list "\\\\?\\c:")) 0)) + (> (length (directory-list "\\\\?\\C:\\")) 0)) (file-directory? "/") (file-directory? "/.") (file-exists? ".") @@ -2869,7 +2869,7 @@ (file-directory? "c:/.")) (not (file-directory? "c:"))) (if (windows?) - (and (file-directory? "\\\\?\\c:") + (and (not (file-directory? "\\\\?\\c:")) (file-directory? "\\\\?\\c:\\")) (not (file-directory? "\\\\?\\c:"))) (if (windows?) @@ -2878,7 +2878,7 @@ (file-exists? "c:/.")) (not (file-exists? "c:"))) (if (windows?) - (and (file-exists? "\\\\?\\c:") + (and (not (file-exists? "\\\\?\\c:")) (file-exists? "\\\\?\\c:\\")) (not (file-exists? "\\\\?\\c:"))) (if (windows?) @@ -2899,9 +2899,9 @@ (and (logtest m #o400) (not (logtest m #o111))))) (or (not (windows?)) - (and (fixnum? (get-mode "c:")) - (eqv? (get-mode "c:") (get-mode "c:/")) - (eqv? (get-mode "c:") (get-mode "c:/.")))) + (and (fixnum? (get-mode "c:/")) + (eqv? (get-mode "c:/") (get-mode "C:\\")) + (eqv? (get-mode "c:/") (get-mode "c:\\.")))) (if (or (windows?) (embedded?)) (fixnum? (get-mode "../mats")) (eqv? (logand (get-mode "../mats") #o700) #o700)) @@ -2930,9 +2930,9 @@ (time? (file-change-time "c:/")) (time? (file-modification-time "c:/")))) (or (not (windows?)) - (and (time? (file-access-time "\\\\?\\c:")) - (time? (file-change-time "\\\\?\\c:")) - (time? (file-modification-time "\\\\?\\c:")))) + (and (time? (file-access-time "\\\\?\\C:\\")) + (time? (file-change-time "\\\\?\\C:\\")) + (time? (file-modification-time "\\\\?\\C:\\")))) (or (not (windows?)) (and (time? (file-access-time "\\\\?\\c:\\")) (time? (file-change-time "\\\\?\\c:\\")) @@ -3120,9 +3120,7 @@ (eq? (path-absolute? "/abc") #t) (eq? (path-absolute? "foo") #f) (eq? (path-absolute? "foo/bar/a.b") #f) - (eq? - (path-absolute? "c:abc") - (and (windows?) #t)) + (eq? (path-absolute? "c:abc") #f) (equal? (path-parent "") "") (equal? (path-parent "a") "") @@ -3275,17 +3273,17 @@ ; windows (if (windows?) (table - ("c:" "t" "c:" "" "c:" "" "c:" "") + ("c:" "f" "c:" "" "c:" "" "c:" "") ("c:/" "t" "c:/" "" "c:/" "" "c:/" "") - ("c:.." "t" "c:" ".." "c:" ".." "c:.." "") - ("c:../" "t" "c:" "../" "c:.." "" "c:../" "") - ("c:../a" "t" "c:" "../a" "c:.." "a" "c:../a" "") - ("c:." "t" "c:" "." "c:" "." "c:." "") - ("c:./" "t" "c:" "./" "c:." "" "c:./" "") - ("c:./a" "t" "c:" "./a" "c:." "a" "c:./a" "") + ("c:.." "f" "c:" ".." "c:" ".." "c:.." "") + ("c:../" "f" "c:" "../" "c:.." "" "c:../" "") + ("c:../a" "f" "c:" "../a" "c:.." "a" "c:../a" "") + ("c:." "f" "c:" "." "c:" "." "c:." "") + ("c:./" "f" "c:" "./" "c:." "" "c:./" "") + ("c:./a" "f" "c:" "./a" "c:." "a" "c:./a" "") ("c:/abc" "t" "c:/" "abc" "c:/" "abc" "c:/abc" "") - ("c:abc" "t" "c:" "abc" "c:" "abc" "c:abc" "") - ("c:abc/def" "t" "c:" "abc/def" "c:abc" "def" "c:abc/def" "") + ("c:abc" "f" "c:" "abc" "c:" "abc" "c:abc" "") + ("c:abc/def" "f" "c:" "abc/def" "c:abc" "def" "c:abc/def" "") ("c:/abc/def" "t" "c:/" "abc/def" "c:/abc" "def" "c:/abc/def" "") ("//abc" "t" "//abc" "" "//abc" "" "//abc" "") ("//abc/" "t" "//abc" "" "//abc" "" "//abc/" "") diff --git a/mats/8.ms b/mats/8.ms index 409086babc..6fa4d6d73f 100644 --- a/mats/8.ms +++ b/mats/8.ms @@ -8977,7 +8977,47 @@ (eval '(lookup f g) (environment '(testfile-lr-l3) '(lookup))))]) (eval '(lookup f g) (environment '(testfile-lr-l3) '(lookup)))))) "Exception in h: user requested failure with (make-it-fail) parameter\nException in h: user requested failure with (make-it-fail) parameter\n") -) + + ;; re-arm import code if it complains about a library that is not visible + (begin + (with-output-to-file "testfile-lr-l4.ss" + (lambda () + (pretty-print + '(library (testfile-lr-l4) + (export x) + (import (chezscheme)) + (define x 123)))) + 'replace) + (with-output-to-file "testfile-lr-p4.ss" + (lambda () + (for-each pretty-print + '((import (testfile-lr-l4) (scheme)) + (define (run args) + (guard (c [#t (display-condition c) (newline)]) + (pretty-print (top-level-value (car args) (environment (cdr args)))))) + (when (> x 0) ;; reference export + (let ([args (map string->symbol (command-line-arguments))]) + (if (= (length args) 2) + (begin + (run args) + (run args)) + (error #f "expected 2 args"))))))) + 'replace) + (separate-eval + '(parameterize ([compile-imported-libraries #t] [generate-wpo-files #t]) + (compile-program "testfile-lr-p4.ss") + (compile-whole-program "testfile-lr-p4.wpo" "testfile-lr-p4-visible" #t) + (compile-whole-program "testfile-lr-p4.wpo" "testfile-lr-p4-not-visible" #f))) + (equal? + (separate-eval + '(parameterize ([command-line-arguments '("x" "testfile-lr-l4")]) + (load-program "testfile-lr-p4-visible") + (load-program "testfile-lr-p4-not-visible"))) + (string-append + "123\n" + "123\n" + "Exception in visit: library (testfile-lr-l4) is not visible\n" + "Exception in visit: library (testfile-lr-l4) is not visible\n")))) (mat cross-library-optimization (begin diff --git a/mats/patch-compile-0-f-t-f b/mats/patch-compile-0-f-t-f index 287f4eaf0d..ed7d504886 100644 --- a/mats/patch-compile-0-f-t-f +++ b/mats/patch-compile-0-f-t-f @@ -1,5 +1,5 @@ -*** errors-compile-0-f-f-f 2018-07-24 22:17:12.000000000 -0600 ---- errors-compile-0-f-t-f 2018-07-24 21:07:12.000000000 -0600 +*** errors-compile-0-f-f-f 2018-07-15 22:22:57.502803909 -0600 +--- errors-compile-0-f-t-f 2018-07-15 21:23:08.670931178 -0600 *************** *** 125,131 **** 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a". @@ -58,7 +58,7 @@ 3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17". 3.mo:Expected error in mat mrvs: "returned two values to single value return context". *************** -*** 3716,3722 **** +*** 3697,3703 **** misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar". @@ -66,7 +66,7 @@ misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a". ---- 3716,3722 ---- +--- 3697,3703 ---- misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar". @@ -75,7 +75,7 @@ misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a". *************** -*** 7180,7187 **** +*** 7168,7175 **** 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat error: "a: hit me!". 7.mo:Expected error in mat error: "f: n is 0". @@ -84,7 +84,7 @@ record.mo:Expected error in mat record2: "invalid value 3 for foreign type double-float". record.mo:Expected error in mat record2: "3 is not of type #". record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)". ---- 7180,7187 ---- +--- 7168,7175 ---- 7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu". 7.mo:Expected error in mat error: "a: hit me!". 7.mo:Expected error in mat error: "f: n is 0". @@ -94,7 +94,7 @@ record.mo:Expected error in mat record2: "3 is not of type #". record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)". *************** -*** 7189,7203 **** +*** 7177,7191 **** record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)". record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car". record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound". @@ -110,7 +110,7 @@ record.mo:Expected error in mat record9: "record-reader: invalid input #f". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". ---- 7189,7203 ---- +--- 7177,7191 ---- record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)". record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car". record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound". @@ -127,7 +127,7 @@ record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge". *************** -*** 7210,7235 **** +*** 7198,7223 **** record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". @@ -154,7 +154,7 @@ record.mo:Expected error in mat foreign-data: "foreign-alloc: 0 is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum". ---- 7210,7235 ---- +--- 7198,7223 ---- record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type # at char 3 of #". @@ -182,7 +182,7 @@ record.mo:Expected error in mat foreign-data: "foreign-alloc: is not a positive fixnum". record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum". *************** -*** 7360,7398 **** +*** 7348,7386 **** record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #". @@ -222,7 +222,7 @@ record.mo:Expected error in mat record?: "record?: 4 is not a record type descriptor". record.mo:Expected error in mat record?: "record?: a is not a record type descriptor". record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor". ---- 7360,7398 ---- +--- 7348,7386 ---- record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)". record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #". @@ -263,7 +263,7 @@ record.mo:Expected error in mat record?: "record?: a is not a record type descriptor". record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor". *************** -*** 7407,7463 **** +*** 7395,7451 **** record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam". @@ -321,7 +321,7 @@ record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent". record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent". record.mo:Expected error in mat r6rs-records-syntactic: "cannot extend define-record-type parent fratrat". ---- 7407,7463 ---- +--- 7395,7451 ---- record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure". record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam". diff --git a/mats/patch-compile-0-t-f-f b/mats/patch-compile-0-t-f-f index 487cd24b79..08cf04e516 100644 --- a/mats/patch-compile-0-t-f-f +++ b/mats/patch-compile-0-t-f-f @@ -1,5 +1,5 @@ -*** errors-compile-0-f-f-f 2018-07-24 22:17:12.000000000 -0600 ---- errors-compile-0-t-f-f 2018-07-24 21:21:31.000000000 -0600 +*** errors-compile-0-f-f-f 2018-07-15 22:22:57.502803909 -0600 +--- errors-compile-0-t-f-f 2018-07-15 21:34:16.854239152 -0600 *************** *** 93,99 **** 3.mo:Expected error in mat case-lambda: "incorrect number of arguments to #". @@ -64,48 +64,7 @@ 4.mo:Expected error in mat apply: "apply: 4 is not a proper list". 4.mo:Expected error in mat apply: "apply: (3 4 5 6 7 8 . 9) is not a proper list". *************** -*** 527,545 **** - 4.mo:Expected error in mat dynamic-wind: "variable gook is not bound". - 4.mo:Expected error in mat dynamic-wind: "variable gook is not bound". - 4.mo:Expected error in mat call/1cc: "attempt to invoke shot one-shot continuation". -! 4.mo:Expected error in mat continuation-attachments: "incorrect argument count in call (current-continuation-attachments (quote ()))". -! 4.mo:Expected error in mat continuation-attachments: "incorrect argument count in call (call-setting-continuation-attachment (quote any))". - 4.mo:Expected error in mat continuation-attachments: "call-setting-continuation-attachment: 10 is not a procedure". -! 4.mo:Expected error in mat continuation-attachments: "incorrect argument count in call (call-setting-continuation-attachment (quote any) void (quote bad-more))". - 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". -! 4.mo:Expected error in mat continuation-attachments: "incorrect argument count in call (call-with-current-continuation-attachment (quote none))". - 4.mo:Expected error in mat continuation-attachments: "call-with-current-continuation-attachment: 10 is not a procedure". -! 4.mo:Expected error in mat continuation-attachments: "incorrect argument count in call (call-with-current-continuation-attachment (quote none) (lambda (a) a) (quote bad-more))". - 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". -! 4.mo:Expected error in mat continuation-attachments: "incorrect argument count in call (continuation-next-attachments)". - 4.mo:Expected error in mat continuation-attachments: "continuation-next-attachments: 10 is not a continuation". - 4.mo:Expected error in mat continuation-attachments: "continuation-next-attachments: # is not a continuation". -! 4.mo:Expected error in mat continuation-attachments: "incorrect argument count in call (continuation-next-attachments (call/cc (lambda (...) x)) (quote bad-more))". - 4.mo:Expected error in mat continuation-attachments: "attempt to apply non-procedure something-else". - 4.mo:Expected error in mat continuation-attachments: "attempt to apply non-procedure something-else". - 4.mo:Expected error in mat continuation-attachments: "attempt to apply non-procedure something-else". ---- 527,545 ---- - 4.mo:Expected error in mat dynamic-wind: "variable gook is not bound". - 4.mo:Expected error in mat dynamic-wind: "variable gook is not bound". - 4.mo:Expected error in mat call/1cc: "attempt to invoke shot one-shot continuation". -! 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". -! 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". - 4.mo:Expected error in mat continuation-attachments: "call-setting-continuation-attachment: 10 is not a procedure". -! 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". - 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". -! 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". - 4.mo:Expected error in mat continuation-attachments: "call-with-current-continuation-attachment: 10 is not a procedure". -! 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". - 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". -! 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". - 4.mo:Expected error in mat continuation-attachments: "continuation-next-attachments: 10 is not a continuation". - 4.mo:Expected error in mat continuation-attachments: "continuation-next-attachments: # is not a continuation". -! 4.mo:Expected error in mat continuation-attachments: "incorrect number of arguments to #". - 4.mo:Expected error in mat continuation-attachments: "attempt to apply non-procedure something-else". - 4.mo:Expected error in mat continuation-attachments: "attempt to apply non-procedure something-else". - 4.mo:Expected error in mat continuation-attachments: "attempt to apply non-procedure something-else". -*************** -*** 550,557 **** +*** 531,538 **** 4.mo:Expected error in mat $primitive: "invalid primitive name fubar". 4.mo:Expected error in mat $primitive: "incorrect argument count in call (car (quote a) (quote b))". 4.mo:Expected error in mat $primitive: "car: 3 is not a pair". @@ -114,7 +73,7 @@ 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". ---- 550,557 ---- +--- 531,538 ---- 4.mo:Expected error in mat $primitive: "invalid primitive name fubar". 4.mo:Expected error in mat $primitive: "incorrect argument count in call (car (quote a) (quote b))". 4.mo:Expected error in mat $primitive: "car: 3 is not a pair". @@ -124,7 +83,7 @@ 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". *************** -*** 561,568 **** +*** 542,549 **** 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". @@ -133,7 +92,7 @@ 5_1.mo:Expected error in mat symbol=?: "symbol=?: 3 is not a symbol". 5_1.mo:Expected error in mat symbol=?: "symbol=?: 3 is not a symbol". 5_1.mo:Expected error in mat symbol=?: "symbol=?: 3 is not a symbol". ---- 561,568 ---- +--- 542,549 ---- 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". 5_1.mo:Expected error in mat boolean=?: "boolean=?: 3 is not a boolean". @@ -143,7 +102,7 @@ 5_1.mo:Expected error in mat symbol=?: "symbol=?: 3 is not a symbol". 5_1.mo:Expected error in mat symbol=?: "symbol=?: 3 is not a symbol". *************** -*** 604,611 **** +*** 585,592 **** 5_2.mo:Expected error in mat c....r-errors: "cddadr: incorrect list structure (a . b)". 5_2.mo:Expected error in mat c....r-errors: "cdddar: incorrect list structure (a . b)". 5_2.mo:Expected error in mat c....r-errors: "cddddr: incorrect list structure (a . b)". @@ -152,7 +111,7 @@ 5_2.mo:Expected error in mat list-ref: "list-ref: a is not a proper list". 5_2.mo:Expected error in mat list-ref: "list-ref: (a b . c) is not a proper list". 5_2.mo:Expected error in mat list-ref: "list-ref: index 4 is out of range for list (a b)". ---- 604,611 ---- +--- 585,592 ---- 5_2.mo:Expected error in mat c....r-errors: "cddadr: incorrect list structure (a . b)". 5_2.mo:Expected error in mat c....r-errors: "cdddar: incorrect list structure (a . b)". 5_2.mo:Expected error in mat c....r-errors: "cddddr: incorrect list structure (a . b)". @@ -162,7 +121,7 @@ 5_2.mo:Expected error in mat list-ref: "list-ref: (a b . c) is not a proper list". 5_2.mo:Expected error in mat list-ref: "list-ref: index 4 is out of range for list (a b)". *************** -*** 692,704 **** +*** 673,685 **** 5_2.mo:Expected error in mat append!: "append!: (b a b a b a ...) is circular". 5_2.mo:Expected error in mat append!: "append!: (c d a b a b ...) is circular". 5_2.mo:Expected error in mat append!: "append!: (a b . c) is not a proper list". @@ -176,7 +135,7 @@ 5_2.mo:Expected error in mat reverse!: "reverse!: a is not a proper list". 5_2.mo:Expected error in mat reverse!: "reverse!: (a b . c) is not a proper list". 5_2.mo:Expected error in mat reverse!: "reverse!: (a b a b a b ...) is circular". ---- 692,704 ---- +--- 673,685 ---- 5_2.mo:Expected error in mat append!: "append!: (b a b a b a ...) is circular". 5_2.mo:Expected error in mat append!: "append!: (c d a b a b ...) is circular". 5_2.mo:Expected error in mat append!: "append!: (a b . c) is not a proper list". @@ -191,7 +150,7 @@ 5_2.mo:Expected error in mat reverse!: "reverse!: (a b . c) is not a proper list". 5_2.mo:Expected error in mat reverse!: "reverse!: (a b a b a b ...) is circular". *************** -*** 711,728 **** +*** 692,709 **** 5_2.mo:Expected error in mat find: "find: improper list (a b . c)". 5_2.mo:Expected error in mat find: "find: improper list (a b c . d)". 5_2.mo:Expected error in mat find: "find: a is not a procedure". @@ -210,7 +169,7 @@ 5_2.mo:Expected error in mat member: "member: improper list a". 5_2.mo:Expected error in mat member: "member: cyclic list (a b a b a b ...)". 5_2.mo:Expected error in mat member: "member: improper list (a b . c)". ---- 711,728 ---- +--- 692,709 ---- 5_2.mo:Expected error in mat find: "find: improper list (a b . c)". 5_2.mo:Expected error in mat find: "find: improper list (a b c . d)". 5_2.mo:Expected error in mat find: "find: a is not a procedure". @@ -230,7 +189,7 @@ 5_2.mo:Expected error in mat member: "member: cyclic list (a b a b a b ...)". 5_2.mo:Expected error in mat member: "member: improper list (a b . c)". *************** -*** 765,774 **** +*** 746,755 **** 5_2.mo:Expected error in mat assv: "assv: cyclic alist ((a . 1) (b . 2) (3.2 . 3) ("a" . 4) (a . 1) (b . 2) ...)". 5_2.mo:Expected error in mat assoc: "assoc: cyclic alist ((a . 1) (b . 2) (3.2 . 3) ("a" . 4) (a . 1) (b . 2) ...)". 5_2.mo:Expected error in mat assoc: "assoc: cyclic alist ((a . 1) (b . 2) (3.2 . 3) ("a" . 4) (a . 1) (b . 2) ...)". @@ -241,7 +200,7 @@ 5_2.mo:Expected error in mat sort: "sort: 3 is not a proper list". 5_2.mo:Expected error in mat sort: "sort: #(1 2 3) is not a proper list". 5_2.mo:Expected error in mat sort: "sort: (1 2 . 3) is not a proper list". ---- 765,774 ---- +--- 746,755 ---- 5_2.mo:Expected error in mat assv: "assv: cyclic alist ((a . 1) (b . 2) (3.2 . 3) ("a" . 4) (a . 1) (b . 2) ...)". 5_2.mo:Expected error in mat assoc: "assoc: cyclic alist ((a . 1) (b . 2) (3.2 . 3) ("a" . 4) (a . 1) (b . 2) ...)". 5_2.mo:Expected error in mat assoc: "assoc: cyclic alist ((a . 1) (b . 2) (3.2 . 3) ("a" . 4) (a . 1) (b . 2) ...)". @@ -253,7 +212,7 @@ 5_2.mo:Expected error in mat sort: "sort: #(1 2 3) is not a proper list". 5_2.mo:Expected error in mat sort: "sort: (1 2 . 3) is not a proper list". *************** -*** 777,786 **** +*** 758,767 **** 5_2.mo:Expected error in mat sort: "sort: (q p a b a b ...) is circular". 5_2.mo:Expected error in mat sort: "sort: (a b c) is not a procedure". 5_2.mo:Expected error in mat sort: ">: b is not a real number". @@ -264,7 +223,7 @@ 5_2.mo:Expected error in mat list-sort: "list-sort: 3 is not a proper list". 5_2.mo:Expected error in mat list-sort: "list-sort: #(1 2 3) is not a proper list". 5_2.mo:Expected error in mat list-sort: "list-sort: (1 2 . 3) is not a proper list". ---- 777,786 ---- +--- 758,767 ---- 5_2.mo:Expected error in mat sort: "sort: (q p a b a b ...) is circular". 5_2.mo:Expected error in mat sort: "sort: (a b c) is not a procedure". 5_2.mo:Expected error in mat sort: ">: b is not a real number". @@ -276,7 +235,7 @@ 5_2.mo:Expected error in mat list-sort: "list-sort: #(1 2 3) is not a proper list". 5_2.mo:Expected error in mat list-sort: "list-sort: (1 2 . 3) is not a proper list". *************** -*** 789,798 **** +*** 770,779 **** 5_2.mo:Expected error in mat list-sort: "list-sort: (q p a b a b ...) is circular". 5_2.mo:Expected error in mat list-sort: "list-sort: (a b c) is not a procedure". 5_2.mo:Expected error in mat list-sort: ">: b is not a real number". @@ -287,7 +246,7 @@ 5_2.mo:Expected error in mat sort!: "sort!: 3 is not a proper list". 5_2.mo:Expected error in mat sort!: "sort!: #(1 2 3) is not a proper list". 5_2.mo:Expected error in mat sort!: "sort!: (1 2 . 3) is not a proper list". ---- 789,798 ---- +--- 770,779 ---- 5_2.mo:Expected error in mat list-sort: "list-sort: (q p a b a b ...) is circular". 5_2.mo:Expected error in mat list-sort: "list-sort: (a b c) is not a procedure". 5_2.mo:Expected error in mat list-sort: ">: b is not a real number". @@ -299,7 +258,7 @@ 5_2.mo:Expected error in mat sort!: "sort!: #(1 2 3) is not a proper list". 5_2.mo:Expected error in mat sort!: "sort!: (1 2 . 3) is not a proper list". *************** -*** 821,838 **** +*** 802,819 **** 5_2.mo:Expected error in mat iota: "iota: -1 is not a nonnegative fixnum". 5_2.mo:Expected error in mat iota: "iota: 1000000000000000000000000000000 is not a nonnegative fixnum". 5_2.mo:Expected error in mat iota: "iota: 3/4 is not a nonnegative fixnum". @@ -318,7 +277,7 @@ 5_3.mo:Expected error in mat r6rs:string->number: "string->number: a is not a string". 5_3.mo:Expected error in mat r6rs:string->number: "string->number: 0 is not a valid radix". 5_3.mo:Expected error in mat r6rs:string->number: "string->number: 37 is not a valid radix". ---- 821,838 ---- +--- 802,819 ---- 5_2.mo:Expected error in mat iota: "iota: -1 is not a nonnegative fixnum". 5_2.mo:Expected error in mat iota: "iota: 1000000000000000000000000000000 is not a nonnegative fixnum". 5_2.mo:Expected error in mat iota: "iota: 3/4 is not a nonnegative fixnum". @@ -338,7 +297,7 @@ 5_3.mo:Expected error in mat r6rs:string->number: "string->number: 0 is not a valid radix". 5_3.mo:Expected error in mat r6rs:string->number: "string->number: 37 is not a valid radix". *************** -*** 843,849 **** +*** 824,830 **** 5_3.mo:Expected error in mat r6rs:string->number: "string->number: is not a valid radix". 5_3.mo:Expected error in mat r6rs:string->number: "string->number: 36 is not a valid radix". 5_3.mo:Expected error in mat r6rs:string->number: "string->number: a is not a valid radix". @@ -346,7 +305,7 @@ 5_3.mo:Expected error in mat number->string: "number->string: a is not a number". 5_3.mo:Expected error in mat number->string: "number->string: a is not a number". 5_3.mo:Expected error in mat number->string: "number->string: a is not a number". ---- 843,849 ---- +--- 824,830 ---- 5_3.mo:Expected error in mat r6rs:string->number: "string->number: is not a valid radix". 5_3.mo:Expected error in mat r6rs:string->number: "string->number: 36 is not a valid radix". 5_3.mo:Expected error in mat r6rs:string->number: "string->number: a is not a valid radix". @@ -355,7 +314,7 @@ 5_3.mo:Expected error in mat number->string: "number->string: a is not a number". 5_3.mo:Expected error in mat number->string: "number->string: a is not a number". *************** -*** 879,885 **** +*** 860,866 **** 5_3.mo:Expected error in mat r6rs:number->string: "number->string: a precision is specified and radix 16 is not 10". 5_3.mo:Expected error in mat exact?: "exact?: a is not a number". 5_3.mo:Expected error in mat inexact?: "inexact?: () is not a number". @@ -363,7 +322,7 @@ 5_3.mo:Expected error in mat =: "=: a is not a number". 5_3.mo:Expected error in mat =: "=: a is not a number". 5_3.mo:Expected error in mat =: "=: a is not a number". ---- 879,885 ---- +--- 860,866 ---- 5_3.mo:Expected error in mat r6rs:number->string: "number->string: a precision is specified and radix 16 is not 10". 5_3.mo:Expected error in mat exact?: "exact?: a is not a number". 5_3.mo:Expected error in mat inexact?: "inexact?: () is not a number". @@ -372,7 +331,7 @@ 5_3.mo:Expected error in mat =: "=: a is not a number". 5_3.mo:Expected error in mat =: "=: a is not a number". *************** -*** 888,894 **** +*** 869,875 **** 5_3.mo:Expected error in mat =: "=: a is not a number". 5_3.mo:Expected error in mat =: "=: a is not a number". 5_3.mo:Expected error in mat =: "=: a is not a number". @@ -380,7 +339,7 @@ 5_3.mo:Expected error in mat <: "<: a is not a real number". 5_3.mo:Expected error in mat <: "<: a is not a real number". 5_3.mo:Expected error in mat <: "<: a is not a real number". ---- 888,894 ---- +--- 869,875 ---- 5_3.mo:Expected error in mat =: "=: a is not a number". 5_3.mo:Expected error in mat =: "=: a is not a number". 5_3.mo:Expected error in mat =: "=: a is not a number". @@ -389,7 +348,7 @@ 5_3.mo:Expected error in mat <: "<: a is not a real number". 5_3.mo:Expected error in mat <: "<: a is not a real number". *************** -*** 908,914 **** +*** 889,895 **** 5_3.mo:Expected error in mat <: "<: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat <: "<: 2+1i is not a real number". 5_3.mo:Expected error in mat <: "<: 3+1i is not a real number". @@ -397,7 +356,7 @@ 5_3.mo:Expected error in mat <=: "<=: a is not a real number". 5_3.mo:Expected error in mat <=: "<=: a is not a real number". 5_3.mo:Expected error in mat <=: "<=: a is not a real number". ---- 908,914 ---- +--- 889,895 ---- 5_3.mo:Expected error in mat <: "<: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat <: "<: 2+1i is not a real number". 5_3.mo:Expected error in mat <: "<: 3+1i is not a real number". @@ -406,7 +365,7 @@ 5_3.mo:Expected error in mat <=: "<=: a is not a real number". 5_3.mo:Expected error in mat <=: "<=: a is not a real number". *************** -*** 928,934 **** +*** 909,915 **** 5_3.mo:Expected error in mat <=: "<=: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat <=: "<=: 2+1i is not a real number". 5_3.mo:Expected error in mat <=: "<=: 3+1i is not a real number". @@ -414,7 +373,7 @@ 5_3.mo:Expected error in mat >: ">: a is not a real number". 5_3.mo:Expected error in mat >: ">: a is not a real number". 5_3.mo:Expected error in mat >: ">: a is not a real number". ---- 928,934 ---- +--- 909,915 ---- 5_3.mo:Expected error in mat <=: "<=: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat <=: "<=: 2+1i is not a real number". 5_3.mo:Expected error in mat <=: "<=: 3+1i is not a real number". @@ -423,7 +382,7 @@ 5_3.mo:Expected error in mat >: ">: a is not a real number". 5_3.mo:Expected error in mat >: ">: a is not a real number". *************** -*** 948,954 **** +*** 929,935 **** 5_3.mo:Expected error in mat >: ">: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat >: ">: 2+1i is not a real number". 5_3.mo:Expected error in mat >: ">: 3+1i is not a real number". @@ -431,7 +390,7 @@ 5_3.mo:Expected error in mat >=: ">=: a is not a real number". 5_3.mo:Expected error in mat >=: ">=: a is not a real number". 5_3.mo:Expected error in mat >=: ">=: a is not a real number". ---- 948,954 ---- +--- 929,935 ---- 5_3.mo:Expected error in mat >: ">: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat >: ">: 2+1i is not a real number". 5_3.mo:Expected error in mat >: ">: 3+1i is not a real number". @@ -440,7 +399,7 @@ 5_3.mo:Expected error in mat >=: ">=: a is not a real number". 5_3.mo:Expected error in mat >=: ">=: a is not a real number". *************** -*** 968,975 **** +*** 949,956 **** 5_3.mo:Expected error in mat >=: ">=: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat >=: ">=: 2+1i is not a real number". 5_3.mo:Expected error in mat >=: ">=: 3+1i is not a real number". @@ -449,7 +408,7 @@ 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". ---- 968,975 ---- +--- 949,956 ---- 5_3.mo:Expected error in mat >=: ">=: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat >=: ">=: 2+1i is not a real number". 5_3.mo:Expected error in mat >=: ">=: 3+1i is not a real number". @@ -459,7 +418,7 @@ 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". *************** -*** 977,984 **** +*** 958,965 **** 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". @@ -468,7 +427,7 @@ 5_3.mo:Expected error in mat r6rs:<: "<: a is not a real number". 5_3.mo:Expected error in mat r6rs:<: "<: a is not a real number". 5_3.mo:Expected error in mat r6rs:<: "<: a is not a real number". ---- 977,984 ---- +--- 958,965 ---- 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". 5_3.mo:Expected error in mat r6rs:=: "=: a is not a number". @@ -478,7 +437,7 @@ 5_3.mo:Expected error in mat r6rs:<: "<: a is not a real number". 5_3.mo:Expected error in mat r6rs:<: "<: a is not a real number". *************** -*** 989,996 **** +*** 970,977 **** 5_3.mo:Expected error in mat r6rs:<: "<: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat r6rs:<: "<: 2+1i is not a real number". 5_3.mo:Expected error in mat r6rs:<: "<: 3+1i is not a real number". @@ -487,7 +446,7 @@ 5_3.mo:Expected error in mat r6rs:<=: "<=: a is not a real number". 5_3.mo:Expected error in mat r6rs:<=: "<=: a is not a real number". 5_3.mo:Expected error in mat r6rs:<=: "<=: a is not a real number". ---- 989,996 ---- +--- 970,977 ---- 5_3.mo:Expected error in mat r6rs:<: "<: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat r6rs:<: "<: 2+1i is not a real number". 5_3.mo:Expected error in mat r6rs:<: "<: 3+1i is not a real number". @@ -497,7 +456,7 @@ 5_3.mo:Expected error in mat r6rs:<=: "<=: a is not a real number". 5_3.mo:Expected error in mat r6rs:<=: "<=: a is not a real number". *************** -*** 1001,1008 **** +*** 982,989 **** 5_3.mo:Expected error in mat r6rs:<=: "<=: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat r6rs:<=: "<=: 2+1i is not a real number". 5_3.mo:Expected error in mat r6rs:<=: "<=: 3+1i is not a real number". @@ -506,7 +465,7 @@ 5_3.mo:Expected error in mat r6rs:>: ">: a is not a real number". 5_3.mo:Expected error in mat r6rs:>: ">: a is not a real number". 5_3.mo:Expected error in mat r6rs:>: ">: a is not a real number". ---- 1001,1008 ---- +--- 982,989 ---- 5_3.mo:Expected error in mat r6rs:<=: "<=: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat r6rs:<=: "<=: 2+1i is not a real number". 5_3.mo:Expected error in mat r6rs:<=: "<=: 3+1i is not a real number". @@ -516,7 +475,7 @@ 5_3.mo:Expected error in mat r6rs:>: ">: a is not a real number". 5_3.mo:Expected error in mat r6rs:>: ">: a is not a real number". *************** -*** 1013,1020 **** +*** 994,1001 **** 5_3.mo:Expected error in mat r6rs:>: ">: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat r6rs:>: ">: 2+1i is not a real number". 5_3.mo:Expected error in mat r6rs:>: ">: 3+1i is not a real number". @@ -525,7 +484,7 @@ 5_3.mo:Expected error in mat r6rs:>=: ">=: a is not a real number". 5_3.mo:Expected error in mat r6rs:>=: ">=: a is not a real number". 5_3.mo:Expected error in mat r6rs:>=: ">=: a is not a real number". ---- 1013,1020 ---- +--- 994,1001 ---- 5_3.mo:Expected error in mat r6rs:>: ">: 2.0+1.0i is not a real number". 5_3.mo:Expected error in mat r6rs:>: ">: 2+1i is not a real number". 5_3.mo:Expected error in mat r6rs:>: ">: 3+1i is not a real number". @@ -535,7 +494,7 @@ 5_3.mo:Expected error in mat r6rs:>=: ">=: a is not a real number". 5_3.mo:Expected error in mat r6rs:>=: ">=: a is not a real number". *************** -*** 1034,1040 **** +*** 1015,1021 **** 5_3.mo:Expected error in mat +: "oops". 5_3.mo:Expected error in mat +: "+: #f is not a number". 5_3.mo:Expected error in mat +: "+: #f is not a number". @@ -543,7 +502,7 @@ 5_3.mo:Expected error in mat -: "-: a is not a number". 5_3.mo:Expected error in mat -: "-: a is not a number". 5_3.mo:Expected error in mat -: "-: a is not a number". ---- 1034,1040 ---- +--- 1015,1021 ---- 5_3.mo:Expected error in mat +: "oops". 5_3.mo:Expected error in mat +: "+: #f is not a number". 5_3.mo:Expected error in mat +: "+: #f is not a number". @@ -552,7 +511,7 @@ 5_3.mo:Expected error in mat -: "-: a is not a number". 5_3.mo:Expected error in mat -: "-: a is not a number". *************** -*** 1047,1053 **** +*** 1028,1034 **** 5_3.mo:Expected error in mat *: "*: a is not a number". 5_3.mo:Expected error in mat *: "*: #f is not a number". 5_3.mo:Expected error in mat *: "*: #f is not a number". @@ -560,7 +519,7 @@ 5_3.mo:Expected error in mat /: "/: a is not a number". 5_3.mo:Expected error in mat /: "/: a is not a number". 5_3.mo:Expected error in mat /: "/: a is not a number". ---- 1047,1053 ---- +--- 1028,1034 ---- 5_3.mo:Expected error in mat *: "*: a is not a number". 5_3.mo:Expected error in mat *: "*: #f is not a number". 5_3.mo:Expected error in mat *: "*: #f is not a number". @@ -569,7 +528,7 @@ 5_3.mo:Expected error in mat /: "/: a is not a number". 5_3.mo:Expected error in mat /: "/: a is not a number". *************** -*** 1061,1128 **** +*** 1042,1109 **** 5_3.mo:Expected error in mat infinite?: "infinite?: a is not a real number". 5_3.mo:Expected error in mat infinite?: "infinite?: 3+4i is not a real number". 5_3.mo:Expected error in mat infinite?: "infinite?: 3.0-0.0i is not a real number". @@ -638,7 +597,7 @@ 5_3.mo:Expected error in mat quotient: "quotient: a is not an integer". 5_3.mo:Expected error in mat quotient: "quotient: a is not an integer". 5_3.mo:Expected error in mat quotient: "quotient: 2/5 is not an integer". ---- 1061,1128 ---- +--- 1042,1109 ---- 5_3.mo:Expected error in mat infinite?: "infinite?: a is not a real number". 5_3.mo:Expected error in mat infinite?: "infinite?: 3+4i is not a real number". 5_3.mo:Expected error in mat infinite?: "infinite?: 3.0-0.0i is not a real number". @@ -708,7 +667,7 @@ 5_3.mo:Expected error in mat quotient: "quotient: a is not an integer". 5_3.mo:Expected error in mat quotient: "quotient: 2/5 is not an integer". *************** -*** 1135,1144 **** +*** 1116,1125 **** 5_3.mo:Expected error in mat quotient: "quotient: 2+1i is not an integer". 5_3.mo:Expected error in mat quotient: "quotient: 2+1i is not an integer". 5_3.mo:Expected error in mat quotient: "quotient: 2.0+1.0i is not an integer". @@ -719,7 +678,7 @@ 5_3.mo:Expected error in mat remainder: "remainder: a is not an integer". 5_3.mo:Expected error in mat remainder: "remainder: a is not an integer". 5_3.mo:Expected error in mat remainder: "remainder: 2/5 is not an integer". ---- 1135,1144 ---- +--- 1116,1125 ---- 5_3.mo:Expected error in mat quotient: "quotient: 2+1i is not an integer". 5_3.mo:Expected error in mat quotient: "quotient: 2+1i is not an integer". 5_3.mo:Expected error in mat quotient: "quotient: 2.0+1.0i is not an integer". @@ -731,7 +690,7 @@ 5_3.mo:Expected error in mat remainder: "remainder: a is not an integer". 5_3.mo:Expected error in mat remainder: "remainder: 2/5 is not an integer". *************** -*** 1149,1157 **** +*** 1130,1138 **** 5_3.mo:Expected error in mat remainder: "remainder: 2.5 is not an integer". 5_3.mo:Expected error in mat remainder: "remainder: 2.5 is not an integer". 5_3.mo:Expected error in mat remainder: "remainder: -3+2i is not an integer". @@ -741,7 +700,7 @@ 5_3.mo:Expected error in mat modulo: "modulo: a is not an integer". 5_3.mo:Expected error in mat modulo: "modulo: a is not an integer". 5_3.mo:Expected error in mat modulo: "modulo: 3/5 is not an integer". ---- 1149,1157 ---- +--- 1130,1138 ---- 5_3.mo:Expected error in mat remainder: "remainder: 2.5 is not an integer". 5_3.mo:Expected error in mat remainder: "remainder: 2.5 is not an integer". 5_3.mo:Expected error in mat remainder: "remainder: -3+2i is not an integer". @@ -752,7 +711,7 @@ 5_3.mo:Expected error in mat modulo: "modulo: a is not an integer". 5_3.mo:Expected error in mat modulo: "modulo: 3/5 is not an integer". *************** -*** 1161,1206 **** +*** 1142,1187 **** 5_3.mo:Expected error in mat modulo: "modulo: 3.2 is not an integer". 5_3.mo:Expected error in mat modulo: "modulo: -3.2 is not an integer". 5_3.mo:Expected error in mat modulo: "modulo: -3+2i is not an integer". @@ -799,7 +758,7 @@ 5_3.mo:Expected error in mat min: "min: a is not a real number". 5_3.mo:Expected error in mat min: "min: a is not a real number". 5_3.mo:Expected error in mat min: "min: a is not a real number". ---- 1161,1206 ---- +--- 1142,1187 ---- 5_3.mo:Expected error in mat modulo: "modulo: 3.2 is not an integer". 5_3.mo:Expected error in mat modulo: "modulo: -3.2 is not an integer". 5_3.mo:Expected error in mat modulo: "modulo: -3+2i is not an integer". @@ -847,7 +806,7 @@ 5_3.mo:Expected error in mat min: "min: a is not a real number". 5_3.mo:Expected error in mat min: "min: a is not a real number". *************** -*** 1259,1281 **** +*** 1240,1262 **** 5_3.mo:Expected error in mat lcm: "lcm: +nan.0 is not an integer". 5_3.mo:Expected error in mat lcm: "lcm: +nan.0 is not an integer". 5_3.mo:Expected error in mat lcm: "lcm: +nan.0 is not an integer". @@ -871,7 +830,7 @@ 5_3.mo:Expected error in mat random: "random: invalid argument a". 5_3.mo:Expected error in mat random: "random: invalid argument -3". 5_3.mo:Expected error in mat random: "random: invalid argument 0". ---- 1259,1281 ---- +--- 1240,1262 ---- 5_3.mo:Expected error in mat lcm: "lcm: +nan.0 is not an integer". 5_3.mo:Expected error in mat lcm: "lcm: +nan.0 is not an integer". 5_3.mo:Expected error in mat lcm: "lcm: +nan.0 is not an integer". @@ -896,7 +855,7 @@ 5_3.mo:Expected error in mat random: "random: invalid argument -3". 5_3.mo:Expected error in mat random: "random: invalid argument 0". *************** -*** 1288,1326 **** +*** 1269,1307 **** 5_3.mo:Expected error in mat random-seed: "random-seed: invalid argument 0". 5_3.mo:Expected error in mat random-seed: "random-seed: invalid argument -1". 5_3.mo:Expected error in mat random-seed: "random-seed: invalid argument ". @@ -936,7 +895,7 @@ 5_3.mo:Expected error in mat imag-part: "imag-part: a is not a complex number". 5_3.mo:Expected error in mat make-rectangular: "make-rectangular: a is not a real number". 5_3.mo:Expected error in mat make-rectangular: "make-rectangular: b is not a real number". ---- 1288,1326 ---- +--- 1269,1307 ---- 5_3.mo:Expected error in mat random-seed: "random-seed: invalid argument 0". 5_3.mo:Expected error in mat random-seed: "random-seed: invalid argument -1". 5_3.mo:Expected error in mat random-seed: "random-seed: invalid argument ". @@ -977,7 +936,7 @@ 5_3.mo:Expected error in mat make-rectangular: "make-rectangular: a is not a real number". 5_3.mo:Expected error in mat make-rectangular: "make-rectangular: b is not a real number". *************** -*** 1330,1406 **** +*** 1311,1387 **** 5_3.mo:Expected error in mat make-polar: "make-polar: b is not a real number". 5_3.mo:Expected error in mat make-polar: "make-polar: 3.4+0.0i is not a real number". 5_3.mo:Expected error in mat make-polar: "make-polar: 3.4+0.0i is not a real number". @@ -1055,7 +1014,7 @@ 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: 35.0 is not an exact integer". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid start index 5.0". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index 8.0". ---- 1330,1406 ---- +--- 1311,1387 ---- 5_3.mo:Expected error in mat make-polar: "make-polar: b is not a real number". 5_3.mo:Expected error in mat make-polar: "make-polar: 3.4+0.0i is not a real number". 5_3.mo:Expected error in mat make-polar: "make-polar: 3.4+0.0i is not a real number". @@ -1134,7 +1093,7 @@ 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid start index 5.0". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index 8.0". *************** -*** 1411,1421 **** +*** 1392,1402 **** 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index -8". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index 3". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index ". @@ -1146,7 +1105,7 @@ 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: a is not an exact integer". 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid start index 0.0". 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index 2.0". ---- 1411,1421 ---- +--- 1392,1402 ---- 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index -8". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index 3". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-bit-field: invalid end index ". @@ -1159,7 +1118,7 @@ 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid start index 0.0". 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index 2.0". *************** -*** 1428,1438 **** +*** 1409,1419 **** 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index 5". 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index ". 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index ". @@ -1171,7 +1130,7 @@ 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: a is not an exact integer". 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid start index 0.0". 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index 2.0". ---- 1428,1438 ---- +--- 1409,1419 ---- 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index 5". 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index ". 5_3.mo:Expected error in mat bitwise-copy-bit-field: "bitwise-copy-bit-field: invalid end index ". @@ -1184,7 +1143,7 @@ 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid start index 0.0". 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index 2.0". *************** -*** 1446,1455 **** +*** 1427,1436 **** 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index 5". 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index ". 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index ". @@ -1195,7 +1154,7 @@ 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: 35.0 is not an exact integer". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: invalid start index 5.0". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: invalid end index 8.0". ---- 1446,1455 ---- +--- 1427,1436 ---- 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index 5". 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index ". 5_3.mo:Expected error in mat bitwise-rotate-bit-field: "bitwise-rotate-bit-field: invalid end index ". @@ -1207,7 +1166,7 @@ 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: invalid start index 5.0". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: invalid end index 8.0". *************** -*** 1460,1483 **** +*** 1441,1464 **** 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: invalid end index -8". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: start index 5 is greater than end index 3". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: start index is greater than end index ". @@ -1232,7 +1191,7 @@ 5_3.mo:Expected error in mat bitwise-first-bit-set: "bitwise-first-bit-set: 3.0 is not an exact integer". 5_3.mo:Expected error in mat bitwise-first-bit-set: "bitwise-first-bit-set: a is not an exact integer". 5_3.mo:Expected error in mat $quotient-remainder: "incorrect number of arguments to #". ---- 1460,1483 ---- +--- 1441,1464 ---- 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: invalid end index -8". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: start index 5 is greater than end index 3". 5_3.mo:Expected error in mat bitwise-bit-field: "bitwise-reverse-bit-field: start index is greater than end index ". @@ -1258,7 +1217,7 @@ 5_3.mo:Expected error in mat bitwise-first-bit-set: "bitwise-first-bit-set: a is not an exact integer". 5_3.mo:Expected error in mat $quotient-remainder: "incorrect number of arguments to #". *************** -*** 1603,1658 **** +*** 1584,1639 **** 5_3.mo:Expected error in mat bitwise-xor: "bitwise-xor: 3.4-2.3i is not an exact integer". 5_3.mo:Expected error in mat bitwise-xor: "bitwise-xor: 3.4-2.3i is not an exact integer". 5_3.mo:Expected error in mat bitwise-xor: "bitwise-xor: 3.0 is not an exact integer". @@ -1315,7 +1274,7 @@ 5_3.mo:Expected error in mat real->flonum: "real->flonum: a is not a real number". 5_3.mo:Expected error in mat real->flonum: "real->flonum: 3+4i is not a real number". 5_3.mo:Expected error in mat div-and-mod: "div-and-mod: undefined for 0". ---- 1603,1658 ---- +--- 1584,1639 ---- 5_3.mo:Expected error in mat bitwise-xor: "bitwise-xor: 3.4-2.3i is not an exact integer". 5_3.mo:Expected error in mat bitwise-xor: "bitwise-xor: 3.4-2.3i is not an exact integer". 5_3.mo:Expected error in mat bitwise-xor: "bitwise-xor: 3.0 is not an exact integer". @@ -1373,7 +1332,7 @@ 5_3.mo:Expected error in mat real->flonum: "real->flonum: 3+4i is not a real number". 5_3.mo:Expected error in mat div-and-mod: "div-and-mod: undefined for 0". *************** -*** 1685,1845 **** +*** 1666,1826 **** 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for 0". 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for a". 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for (a)". @@ -1535,7 +1494,7 @@ 5_4.mo:Expected error in mat integer->char: "integer->char: a is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: #f is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: #\a is not a valid unicode scalar value". ---- 1685,1845 ---- +--- 1666,1826 ---- 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for 0". 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for a". 5_3.mo:Expected error in mat div0-and-mod0: "mod0: undefined for (a)". @@ -1698,7 +1657,7 @@ 5_4.mo:Expected error in mat integer->char: "integer->char: #f is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: #\a is not a valid unicode scalar value". *************** -*** 1858,1870 **** +*** 1839,1851 **** 5_4.mo:Expected error in mat integer->char: "integer->char: 1114112 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: 1179648 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: is not a valid unicode scalar value". @@ -1712,7 +1671,7 @@ 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". ---- 1858,1870 ---- +--- 1839,1851 ---- 5_4.mo:Expected error in mat integer->char: "integer->char: 1114112 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: 1179648 is not a valid unicode scalar value". 5_4.mo:Expected error in mat integer->char: "integer->char: is not a valid unicode scalar value". @@ -1727,7 +1686,7 @@ 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". 5_4.mo:Expected error in mat string-for-each: "string-for-each: "" is not a procedure". *************** -*** 1879,2024 **** +*** 1860,2005 **** 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "" and "x" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". @@ -1874,7 +1833,7 @@ 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". ---- 1879,2024 ---- +--- 1860,2005 ---- 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "" and "x" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". 5_4.mo:Expected error in mat string-for-each: "string-for-each: lengths of input string "y" and "" differ". @@ -2022,7 +1981,7 @@ 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". 5_5.mo:Expected error in mat r6rs:string>=?/r6rs:string-ci>=?: "string-ci>=?: a is not a string". *************** -*** 2026,2064 **** +*** 2007,2045 **** 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". @@ -2062,7 +2021,7 @@ 5_5.mo:Expected error in mat string-copy!: "string-copy!: 0 is not a string". 5_5.mo:Expected error in mat string-copy!: "string-copy!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-copy!: "string-copy!: invalid start value -1". ---- 2026,2064 ---- +--- 2007,2045 ---- 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". 5_5.mo:Expected error in mat string: "string: a is not a character". @@ -2103,7 +2062,7 @@ 5_5.mo:Expected error in mat string-copy!: "string-copy!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-copy!: "string-copy!: invalid start value -1". *************** -*** 2082,2090 **** +*** 2063,2071 **** 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 4 + count 1 is beyond the end of "1234"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 0 + count 500 is beyond the end of "abcdefghi"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 500 + count 0 is beyond the end of "abcdefghi"". @@ -2113,7 +2072,7 @@ 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: 0 is not a mutable string". 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: invalid new length -1 for "abcdefghi"". ---- 2082,2090 ---- +--- 2063,2071 ---- 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 4 + count 1 is beyond the end of "1234"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 0 + count 500 is beyond the end of "abcdefghi"". 5_5.mo:Expected error in mat string-copy!: "string-copy!: index 500 + count 0 is beyond the end of "abcdefghi"". @@ -2124,7 +2083,7 @@ 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: #vu8(1 2 3) is not a mutable string". 5_5.mo:Expected error in mat string-truncate!: "string-truncate!: invalid new length -1 for "abcdefghi"". *************** -*** 2096,2148 **** +*** 2077,2129 **** 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-copy: a is not a string". @@ -2178,7 +2137,7 @@ bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: -1 is not a valid bytevector length". bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: -1 is not a valid bytevector length". bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: is not a valid bytevector length". ---- 2096,2148 ---- +--- 2077,2129 ---- 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-append: b is not a string". 5_5.mo:Expected error in mat string-append: "string-copy: a is not a string". @@ -2233,7 +2192,7 @@ bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: -1 is not a valid bytevector length". bytevector.mo:Expected error in mat make-bytevector: "make-bytevector: is not a valid bytevector length". *************** -*** 2159,2188 **** +*** 2140,2169 **** bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value -500". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 1e100". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000". @@ -2264,7 +2223,7 @@ bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: 3 is not a valid index for #vu8(3 4 5)". ---- 2159,2188 ---- +--- 2140,2169 ---- bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value -500". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 1e100". bytevector.mo:Expected error in mat bytevector: "bytevector: invalid value 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000". @@ -2296,7 +2255,7 @@ bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: 3 is not a valid index for #vu8(3 4 5)". *************** -*** 2191,2200 **** +*** 2172,2181 **** bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value -129". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value 128". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value d". @@ -2307,7 +2266,7 @@ bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: 3 is not a valid index for #vu8(3 4 5)". ---- 2191,2200 ---- +--- 2172,2181 ---- bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value -129". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value 128". bytevector.mo:Expected error in mat bytevector-s8-set!: "bytevector-s8-set!: invalid value d". @@ -2319,7 +2278,7 @@ bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: (3 4 5) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: 3 is not a valid index for #vu8(3 4 5)". *************** -*** 2203,2211 **** +*** 2184,2192 **** bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value 256". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value d". @@ -2329,7 +2288,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2203,2211 ---- +--- 2184,2192 ---- bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value 256". bytevector.mo:Expected error in mat bytevector-u8-set!: "bytevector-u8-set!: invalid value d". @@ -2340,7 +2299,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2213,2221 **** +*** 2194,2202 **** bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2350,7 +2309,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2213,2221 ---- +--- 2194,2202 ---- bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-s16-native-ref: "bytevector-s16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2361,7 +2320,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2223,2232 **** +*** 2204,2213 **** bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2372,7 +2331,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2223,2232 ---- +--- 2204,2213 ---- bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 2 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 3 for bytevector #vu8(3 252 5)". bytevector.mo:Expected error in mat bytevector-u16-native-ref: "bytevector-u16-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5)". @@ -2384,7 +2343,7 @@ bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2240,2249 **** +*** 2221,2230 **** bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value 32768". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value -32769". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value "hello"". @@ -2395,7 +2354,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2240,2249 ---- +--- 2221,2230 ---- bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value 32768". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value -32769". bytevector.mo:Expected error in mat bytevector-s16-native-set!: "bytevector-s16-native-set!: invalid value "hello"". @@ -2407,7 +2366,7 @@ bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2257,2265 **** +*** 2238,2246 **** bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value 65536". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value "hello"". @@ -2417,7 +2376,7 @@ bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2257,2265 ---- +--- 2238,2246 ---- bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value 65536". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u16-native-set!: "bytevector-u16-native-set!: invalid value "hello"". @@ -2428,7 +2387,7 @@ bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2269,2277 **** +*** 2250,2258 **** bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness #t". @@ -2438,7 +2397,7 @@ bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: invalid index -1 for bytevector #vu8(3 252 5)". ---- 2269,2277 ---- +--- 2250,2258 ---- bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-ref: "bytevector-s16-ref: unrecognized endianness #t". @@ -2449,7 +2408,7 @@ bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: #(3 252 5) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: invalid index -1 for bytevector #vu8(3 252 5)". *************** -*** 2281,2290 **** +*** 2262,2271 **** bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness #t". @@ -2460,7 +2419,7 @@ bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2281,2290 ---- +--- 2262,2271 ---- bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-ref: "bytevector-u16-ref: unrecognized endianness #t". @@ -2472,7 +2431,7 @@ bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2300,2309 **** +*** 2281,2290 **** bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness #t". @@ -2483,7 +2442,7 @@ bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2300,2309 ---- +--- 2281,2290 ---- bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s16-set!: "bytevector-s16-set!: unrecognized endianness #t". @@ -2495,7 +2454,7 @@ bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2319,2328 **** +*** 2300,2309 **** bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness #t". @@ -2506,7 +2465,7 @@ bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2319,2328 ---- +--- 2300,2309 ---- bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u16-set!: "bytevector-u16-set!: unrecognized endianness #t". @@ -2518,7 +2477,7 @@ bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2332,2341 **** +*** 2313,2322 **** bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness #t". @@ -2529,7 +2488,7 @@ bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2332,2341 ---- +--- 2313,2322 ---- bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s24-ref: "bytevector-s24-ref: unrecognized endianness #t". @@ -2541,7 +2500,7 @@ bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2345,2355 **** +*** 2326,2336 **** bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness #t". @@ -2553,7 +2512,7 @@ bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2345,2355 ---- +--- 2326,2336 ---- bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u24-ref: "bytevector-u24-ref: unrecognized endianness #t". @@ -2566,7 +2525,7 @@ bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2363,2373 **** +*** 2344,2354 **** bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2578,7 +2537,7 @@ bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2363,2373 ---- +--- 2344,2354 ---- bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s24-set!: "bytevector-s24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2591,7 +2550,7 @@ bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2381,2389 **** +*** 2362,2370 **** bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2601,7 +2560,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2381,2389 ---- +--- 2362,2370 ---- bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u24-set!: "bytevector-u24-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2612,7 +2571,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2395,2403 **** +*** 2376,2384 **** bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2622,7 +2581,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2395,2403 ---- +--- 2376,2384 ---- bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s32-native-ref: "bytevector-s32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2633,7 +2592,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2409,2418 **** +*** 2390,2399 **** bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2644,7 +2603,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2409,2418 ---- +--- 2390,2399 ---- bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 6 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 7 for bytevector #vu8(3 252 5 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u32-native-ref: "bytevector-u32-native-ref: invalid index 4.0 for bytevector #vu8(3 252 5 0 0 0 ...)". @@ -2656,7 +2615,7 @@ bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2439,2448 **** +*** 2420,2429 **** bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value "hello"". @@ -2667,7 +2626,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2439,2448 ---- +--- 2420,2429 ---- bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s32-native-set!: "bytevector-s32-native-set!: invalid value "hello"". @@ -2679,7 +2638,7 @@ bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2469,2478 **** +*** 2450,2459 **** bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value "hello"". @@ -2690,7 +2649,7 @@ bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2469,2478 ---- +--- 2450,2459 ---- bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u32-native-set!: "bytevector-u32-native-set!: invalid value "hello"". @@ -2702,7 +2661,7 @@ bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2482,2491 **** +*** 2463,2472 **** bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness #t". @@ -2713,7 +2672,7 @@ bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2482,2491 ---- +--- 2463,2472 ---- bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s32-ref: "bytevector-s32-ref: unrecognized endianness #t". @@ -2725,7 +2684,7 @@ bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2495,2505 **** +*** 2476,2486 **** bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness #t". @@ -2737,7 +2696,7 @@ bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2495,2505 ---- +--- 2476,2486 ---- bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u32-ref: "bytevector-u32-ref: unrecognized endianness #t". @@ -2750,7 +2709,7 @@ bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2514,2524 **** +*** 2495,2505 **** bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2762,7 +2721,7 @@ bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2514,2524 ---- +--- 2495,2505 ---- bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s32-set!: "bytevector-s32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2775,7 +2734,7 @@ bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2533,2542 **** +*** 2514,2523 **** bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2786,7 +2745,7 @@ bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2533,2542 ---- +--- 2514,2523 ---- bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u32-set!: "bytevector-u32-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2798,7 +2757,7 @@ bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2546,2555 **** +*** 2527,2536 **** bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness #t". @@ -2809,7 +2768,7 @@ bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2546,2555 ---- +--- 2527,2536 ---- bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s40-ref: "bytevector-s40-ref: unrecognized endianness #t". @@ -2821,7 +2780,7 @@ bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2559,2569 **** +*** 2540,2550 **** bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness #t". @@ -2833,7 +2792,7 @@ bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2559,2569 ---- +--- 2540,2550 ---- bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u40-ref: "bytevector-u40-ref: unrecognized endianness #t". @@ -2846,7 +2805,7 @@ bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2577,2587 **** +*** 2558,2568 **** bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2858,7 +2817,7 @@ bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2577,2587 ---- +--- 2558,2568 ---- bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s40-set!: "bytevector-s40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2871,7 +2830,7 @@ bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2595,2604 **** +*** 2576,2585 **** bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2882,7 +2841,7 @@ bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2595,2604 ---- +--- 2576,2585 ---- bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u40-set!: "bytevector-u40-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2894,7 +2853,7 @@ bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2608,2617 **** +*** 2589,2598 **** bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness #t". @@ -2905,7 +2864,7 @@ bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2608,2617 ---- +--- 2589,2598 ---- bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s48-ref: "bytevector-s48-ref: unrecognized endianness #t". @@ -2917,7 +2876,7 @@ bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2621,2631 **** +*** 2602,2612 **** bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness #t". @@ -2929,7 +2888,7 @@ bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2621,2631 ---- +--- 2602,2612 ---- bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u48-ref: "bytevector-u48-ref: unrecognized endianness #t". @@ -2942,7 +2901,7 @@ bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2639,2649 **** +*** 2620,2630 **** bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2954,7 +2913,7 @@ bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2639,2649 ---- +--- 2620,2630 ---- bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s48-set!: "bytevector-s48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2967,7 +2926,7 @@ bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2657,2666 **** +*** 2638,2647 **** bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2978,7 +2937,7 @@ bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2657,2666 ---- +--- 2638,2647 ---- bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u48-set!: "bytevector-u48-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -2990,7 +2949,7 @@ bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2670,2679 **** +*** 2651,2660 **** bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness #t". @@ -3001,7 +2960,7 @@ bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". ---- 2670,2679 ---- +--- 2651,2660 ---- bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-s56-ref: "bytevector-s56-ref: unrecognized endianness #t". @@ -3013,7 +2972,7 @@ bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: invalid index -1 for bytevector #vu8(3 252 5 0 0 0 ...)". *************** -*** 2683,2693 **** +*** 2664,2674 **** bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness #t". @@ -3025,7 +2984,7 @@ bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2683,2693 ---- +--- 2664,2674 ---- bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness bigger". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness "little"". bytevector.mo:Expected error in mat bytevector-u56-ref: "bytevector-u56-ref: unrecognized endianness #t". @@ -3038,7 +2997,7 @@ bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2701,2711 **** +*** 2682,2692 **** bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3050,7 +3009,7 @@ bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2701,2711 ---- +--- 2682,2692 ---- bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-s56-set!: "bytevector-s56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3063,7 +3022,7 @@ bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2719,2727 **** +*** 2700,2708 **** bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3073,7 +3032,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2719,2727 ---- +--- 2700,2708 ---- bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness huge". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness "tiny"". bytevector.mo:Expected error in mat bytevector-u56-set!: "bytevector-u56-set!: unrecognized endianness #vu8(173 173 173 173 173 173 ...)". @@ -3084,7 +3043,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2751,2759 **** +*** 2732,2740 **** bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3094,7 +3053,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2751,2759 ---- +--- 2732,2740 ---- bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-s64-native-ref: "bytevector-s64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3105,7 +3064,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2783,2792 **** +*** 2764,2773 **** bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3116,7 +3075,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2783,2792 ---- +--- 2764,2773 ---- bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 102 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 103 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-u64-native-ref: "bytevector-u64-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3128,7 +3087,7 @@ bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2820,2829 **** +*** 2801,2810 **** bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value "hello"". @@ -3139,7 +3098,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2820,2829 ---- +--- 2801,2810 ---- bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value <-int>". bytevector.mo:Expected error in mat bytevector-s64-native-set!: "bytevector-s64-native-set!: invalid value "hello"". @@ -3151,7 +3110,7 @@ bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2857,2866 **** +*** 2838,2847 **** bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value "hello"". @@ -3162,7 +3121,7 @@ bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2857,2866 ---- +--- 2838,2847 ---- bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value ". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value -1". bytevector.mo:Expected error in mat bytevector-u64-native-set!: "bytevector-u64-native-set!: invalid value "hello"". @@ -3174,7 +3133,7 @@ bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2876,2885 **** +*** 2857,2866 **** bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness 1e23". @@ -3185,7 +3144,7 @@ bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2876,2885 ---- +--- 2857,2866 ---- bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-s64-ref: "bytevector-s64-ref: unrecognized endianness 1e23". @@ -3197,7 +3156,7 @@ bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2895,2905 **** +*** 2876,2886 **** bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness 1e23". @@ -3209,7 +3168,7 @@ bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2895,2905 ---- +--- 2876,2886 ---- bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness (quote bonkers)". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness get-real". bytevector.mo:Expected error in mat bytevector-u64-ref: "bytevector-u64-ref: unrecognized endianness 1e23". @@ -3222,7 +3181,7 @@ bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2918,2928 **** +*** 2899,2909 **** bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #t". @@ -3234,7 +3193,7 @@ bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". ---- 2918,2928 ---- +--- 2899,2909 ---- bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-s64-set!: "bytevector-s64-set!: unrecognized endianness #t". @@ -3247,7 +3206,7 @@ bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: #(0 0 0 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: invalid index -1 for bytevector #vu8(173 173 173 173 173 173 ...)". *************** -*** 2941,2949 **** +*** 2922,2930 **** bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #t". @@ -3257,7 +3216,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2941,2949 ---- +--- 2922,2930 ---- bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness gorgeous". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #(ravenous)". bytevector.mo:Expected error in mat bytevector-u64-set!: "bytevector-u64-set!: unrecognized endianness #t". @@ -3268,7 +3227,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 2979,2987 **** +*** 2960,2968 **** bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 38 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 39 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3278,7 +3237,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 2979,2987 ---- +--- 2960,2968 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 38 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 39 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-single-native-ref: "bytevector-ieee-single-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3289,7 +3248,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3021,3030 **** +*** 3002,3011 **** bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 70 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 71 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3300,7 +3259,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3021,3030 ---- +--- 3002,3011 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 70 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 71 for bytevector #vu8(0 0 0 0 0 0 ...)". bytevector.mo:Expected error in mat bytevector-ieee-double-native-ref: "bytevector-ieee-double-native-ref: invalid index 4.0 for bytevector #vu8(0 0 0 0 0 0 ...)". @@ -3312,7 +3271,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3058,3067 **** +*** 3039,3048 **** bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: "oops" is not a real number". @@ -3323,7 +3282,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3058,3067 ---- +--- 3039,3048 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-single-native-set!: "bytevector-ieee-single-native-set!: "oops" is not a real number". @@ -3335,7 +3294,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3107,3116 **** +*** 3088,3097 **** bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: "oops" is not a real number". @@ -3346,7 +3305,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: invalid index -1 for bytevector #vu8(0 0 0 0 199 0 ...)". ---- 3107,3116 ---- +--- 3088,3097 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0+0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: 1.0-0.0i is not a real number". bytevector.mo:Expected error in mat bytevector-ieee-double-native-set!: "bytevector-ieee-double-native-set!: "oops" is not a real number". @@ -3358,7 +3317,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: invalid index -1 for bytevector #vu8(0 0 0 0 199 0 ...)". *************** -*** 3122,3131 **** +*** 3103,3112 **** bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness 35". @@ -3369,7 +3328,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3122,3131 ---- +--- 3103,3112 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-single-ref: "bytevector-ieee-single-ref: unrecognized endianness 35". @@ -3381,7 +3340,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3141,3151 **** +*** 3122,3132 **** bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness 35". @@ -3393,7 +3352,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3141,3151 ---- +--- 3122,3132 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness "nuts"". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness crazy". bytevector.mo:Expected error in mat bytevector-ieee-double-ref: "bytevector-ieee-double-ref: unrecognized endianness 35". @@ -3406,7 +3365,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3162,3172 **** +*** 3143,3153 **** bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness #\newline". @@ -3418,7 +3377,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". ---- 3162,3172 ---- +--- 3143,3153 ---- bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-single-set!: "bytevector-ieee-single-set!: unrecognized endianness #\newline". @@ -3431,7 +3390,7 @@ bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: invalid index -1 for bytevector #vu8(235 235 235 235 235 235 ...)". *************** -*** 3187,3197 **** +*** 3168,3178 **** bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness #\newline". @@ -3443,7 +3402,7 @@ bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3187,3197 ---- +--- 3168,3178 ---- bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness "ouch"". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness what?". bytevector.mo:Expected error in mat bytevector-ieee-double-set!: "bytevector-ieee-double-set!: unrecognized endianness #\newline". @@ -3456,7 +3415,7 @@ bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3226,3236 **** +*** 3207,3217 **** bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size byte". @@ -3468,7 +3427,7 @@ bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3226,3236 ---- +--- 3207,3217 ---- bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-ref: "bytevector-sint-ref: invalid size byte". @@ -3481,7 +3440,7 @@ bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: #(3 252 5 0 0 0 ...) is not a bytevector". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3268,3279 **** +*** 3249,3260 **** bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size for bytevector #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size byte". @@ -3494,7 +3453,7 @@ bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3268,3279 ---- +--- 3249,3260 ---- bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size for bytevector #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-ref: "bytevector-uint-ref: invalid size byte". @@ -3508,7 +3467,7 @@ bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3332,3343 **** +*** 3313,3324 **** bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size byte". @@ -3521,7 +3480,7 @@ bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". ---- 3332,3343 ---- +--- 3313,3324 ---- bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-sint-set!: "bytevector-sint-set!: invalid size byte". @@ -3535,7 +3494,7 @@ bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: #(3 252 5 0 0 0 ...) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid index -1 for bytevector #vu8(0 0 0 0 0 0 ...)". *************** -*** 3396,3411 **** +*** 3377,3392 **** bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size byte". @@ -3552,7 +3511,7 @@ bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: 0 is not a bytevector". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: #(1 2 3) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: invalid start value -1". ---- 3396,3411 ---- +--- 3377,3392 ---- bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size 0". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size -1". bytevector.mo:Expected error in mat bytevector-uint-set!: "bytevector-uint-set!: invalid size byte". @@ -3570,7 +3529,7 @@ bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: #(1 2 3) is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: invalid start value -1". *************** -*** 3429,3437 **** +*** 3410,3418 **** bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 4 + count 1 is beyond the end of #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 0 + count 500 is beyond the end of #vu8(255 254 253 252 251 250 ...)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 500 + count 0 is beyond the end of #vu8(255 254 253 252 251 250 ...)". @@ -3580,7 +3539,7 @@ bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: 0 is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: "abc" is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length -1 for #vu8(1 2 3 4 5 6 ...)". ---- 3429,3437 ---- +--- 3410,3418 ---- bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 4 + count 1 is beyond the end of #vu8(1 2 3 4)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 0 + count 500 is beyond the end of #vu8(255 254 253 252 251 250 ...)". bytevector.mo:Expected error in mat bytevector-copy!: "bytevector-copy!: index 500 + count 0 is beyond the end of #vu8(255 254 253 252 251 250 ...)". @@ -3591,7 +3550,7 @@ bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: "abc" is not a mutable bytevector". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length -1 for #vu8(1 2 3 4 5 6 ...)". *************** -*** 3439,3479 **** +*** 3420,3460 **** bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length 1000 for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length a for #vu8(1 2 3 4 5 6 ...)". @@ -3633,7 +3592,7 @@ bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: (1 2 . 3) is not a proper list". ---- 3439,3479 ---- +--- 3420,3460 ---- bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length 1000 for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length for #vu8(1 2 3 4 5 6 ...)". bytevector.mo:Expected error in mat bytevector-truncate!: "bytevector-truncate!: invalid new length a for #vu8(1 2 3 4 5 6 ...)". @@ -3676,7 +3635,7 @@ bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: (1 2 . 3) is not a proper list". *************** -*** 3512,3520 **** +*** 3493,3501 **** bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size "oops"". @@ -3686,7 +3645,7 @@ bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: (1 2 . 3) is not a proper list". ---- 3512,3520 ---- +--- 3493,3501 ---- bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat sint-list->bytevector: "sint-list->bytevector: invalid size "oops"". @@ -3697,7 +3656,7 @@ bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: #(a b c) is not a proper list". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: (1 2 . 3) is not a proper list". *************** -*** 3553,3561 **** +*** 3534,3542 **** bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size "oops"". @@ -3707,7 +3666,7 @@ bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: unrecognized endianness spam". ---- 3553,3561 ---- +--- 3534,3542 ---- bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size 1.0". bytevector.mo:Expected error in mat uint-list->bytevector: "uint-list->bytevector: invalid size "oops"". @@ -3718,7 +3677,7 @@ bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: unrecognized endianness spam". *************** -*** 3575,3583 **** +*** 3556,3564 **** bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 50". @@ -3728,7 +3687,7 @@ bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: unrecognized endianness spam". ---- 3575,3583 ---- +--- 3556,3564 ---- bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->sint-list: "bytevector->sint-list: bytevector length 12 is not a multiple of size 50". @@ -3739,7 +3698,7 @@ bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: #(a b c) is not a bytevector". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: unrecognized endianness spam". *************** -*** 3597,3605 **** +*** 3578,3586 **** bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 50". @@ -3749,7 +3708,7 @@ bytevector.mo:Expected error in mat bytevector=?: "bytevector=?: a is not a bytevector". bytevector.mo:Expected error in mat bytevector=?: "bytevector=?: "a" is not a bytevector". bytevector.mo:Expected error in mat tspl/csug-examples: "invalid endianness "spam"". ---- 3597,3605 ---- +--- 3578,3586 ---- bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 10". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 11". bytevector.mo:Expected error in mat bytevector->uint-list: "bytevector->uint-list: bytevector length 12 is not a multiple of size 50". @@ -3760,7 +3719,7 @@ bytevector.mo:Expected error in mat bytevector=?: "bytevector=?: "a" is not a bytevector". bytevector.mo:Expected error in mat tspl/csug-examples: "invalid endianness "spam"". *************** -*** 3646,3657 **** +*** 3627,3638 **** bytevector.mo:Expected error in mat bytevector-compress: "bytevector-uncompress: bytevector #vu8(255 255 255 255 255 255 ...) claims invalid uncompressed size ". misc.mo:Expected error in mat compiler1: "variable i-am-not-bound is not bound". misc.mo:Expected error in mat compiler1: "attempt to apply non-procedure oops". @@ -3773,7 +3732,7 @@ misc.mo:Expected error in mat compiler3: "incorrect argument count in call (consumer 1 2) at line 3, char 19 of testfile.ss". misc.mo:Expected error in mat compiler3: "incorrect argument count in call (consumer 1 2)". misc.mo:Expected error in mat compiler3: "variable goto is not bound". ---- 3646,3657 ---- +--- 3627,3638 ---- bytevector.mo:Expected error in mat bytevector-compress: "bytevector-uncompress: bytevector #vu8(255 255 255 255 255 255 ...) claims invalid uncompressed size ". misc.mo:Expected error in mat compiler1: "variable i-am-not-bound is not bound". misc.mo:Expected error in mat compiler1: "attempt to apply non-procedure oops". @@ -3787,7 +3746,7 @@ misc.mo:Expected error in mat compiler3: "incorrect argument count in call (consumer 1 2)". misc.mo:Expected error in mat compiler3: "variable goto is not bound". *************** -*** 3723,3743 **** +*** 3704,3724 **** misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to assign undefined variable b". misc.mo:Expected error in mat compile-profile: "compile-profile: invalid mode src [must be #f, #t, source, or block]". @@ -3809,7 +3768,7 @@ misc.mo:Expected error in mat compile-profile: "profile-dump-data: #t is not a string". misc.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump 17". misc.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump (17)". ---- 3723,3743 ---- +--- 3704,3724 ---- misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b". misc.mo:Expected error in mat cpletrec: "attempt to assign undefined variable b". misc.mo:Expected error in mat compile-profile: "compile-profile: invalid mode src [must be #f, #t, source, or block]". @@ -3832,7 +3791,7 @@ misc.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump 17". misc.mo:Expected error in mat compile-profile: "profile-dump-data: invalid dump (17)". *************** -*** 3770,3776 **** +*** 3751,3757 **** misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: record comparison failed while comparing testfile-fatfib1.so and testfile-fatfib3.so within fasl entry 2". @@ -3840,7 +3799,7 @@ misc.mo:Expected error in mat cost-center: "with-cost-center: foo is not a cost center". misc.mo:Expected error in mat cost-center: "with-cost-center: bar is not a procedure". misc.mo:Expected error in mat cost-center: "cost-center-instruction-count: 5 is not a cost center". ---- 3770,3776 ---- +--- 3751,3757 ---- misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: failed for probably-does-not-exist: no such file or directory". misc.mo:Expected error in mat $fasl-file-equal?: "$fasl-file-equal?: record comparison failed while comparing testfile-fatfib1.so and testfile-fatfib3.so within fasl entry 2". @@ -3849,7 +3808,7 @@ misc.mo:Expected error in mat cost-center: "with-cost-center: bar is not a procedure". misc.mo:Expected error in mat cost-center: "cost-center-instruction-count: 5 is not a cost center". *************** -*** 3824,3831 **** +*** 3805,3812 **** misc.mo:Expected error in mat apropos: "apropos: 3 is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos: (hit me) is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos-list: b is not an environment". @@ -3858,7 +3817,7 @@ misc.mo:Expected error in mat apropos: "variable $apropos-unbound1 is not bound". misc.mo:Expected error in mat apropos: "variable $apropos-unbound2 is not bound". misc.mo:Expected error in mat simplify-if: "textual-port?: a is not a port". ---- 3824,3831 ---- +--- 3805,3812 ---- misc.mo:Expected error in mat apropos: "apropos: 3 is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos: (hit me) is not a symbol or string". misc.mo:Expected error in mat apropos: "apropos-list: b is not an environment". @@ -3868,7 +3827,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". *************** -*** 3851,3859 **** +*** 3821,3829 **** + 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". +--- 3821,3829 ---- + 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 #". +! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #". +! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #". + 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". +*************** +*** 3831,3843 **** + 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: # is not an arity wrapper procedure". + misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: # 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!: # is not an arity wrapper procedure". + misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: # 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!: # is not an arity wrapper procedure". + misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: # is not an arity wrapper procedure". +--- 3831,3843 ---- + 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: # is not an arity wrapper procedure". + misc.mo:Expected error in mat arity-wrapper-procedure: "arity-wrapper-procedure-data: # is not an arity wrapper procedure". +! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #". +! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #". + 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!: # is not an arity wrapper procedure". + misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: # is not an arity wrapper procedure". +! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #". +! misc.mo:Expected error in mat arity-wrapper-procedure: "incorrect number of arguments to #". + 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!: # is not an arity wrapper procedure". + misc.mo:Expected error in mat arity-wrapper-procedure: "set-arity-wrapper-procedure!: # is not an arity wrapper procedure". +*************** +*** 3852,3860 **** 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". @@ -3878,7 +3887,7 @@ cp0.mo:Expected error in mat expand-output: "expand-output: #t is not a textual output port or #f". cp0.mo:Expected error in mat expand-output: "expand-output: # is not a textual output port or #f". cp0.mo:Expected error in mat expand/optimize-output: "expand/optimize-output: #t is not a textual output port or #f". ---- 3851,3859 ---- +--- 3852,3860 ---- 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". @@ -3889,7 +3898,7 @@ cp0.mo:Expected error in mat expand-output: "expand-output: # is not a textual output port or #f". cp0.mo:Expected error in mat expand/optimize-output: "expand/optimize-output: #t is not a textual output port or #f". *************** -*** 3917,3925 **** +*** 3918,3926 **** 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". @@ -3899,7 +3908,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". ---- 3917,3925 ---- +--- 3918,3926 ---- 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". @@ -3910,7 +3919,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". *************** -*** 3934,3942 **** +*** 3935,3943 **** 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". @@ -3920,7 +3929,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". ---- 3934,3942 ---- +--- 3935,3943 ---- 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". @@ -3931,7 +3940,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". *************** -*** 3951,3968 **** +*** 3952,3969 **** 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". @@ -3950,7 +3959,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". ---- 3951,3968 ---- +--- 3952,3969 ---- 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". @@ -3970,47 +3979,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". *************** -*** 3973,3981 **** - 5_6.mo:Expected error in mat vector->immutable-vector: "vector-sort!: #(1 2 3) is not a mutable vector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-set!: #vfx(1 2 3) is not a mutable fxvector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-fill!: #vfx(1 2 3) is not a mutable fxvector". -! 5_6.mo:Expected error in mat vector-cas!: "incorrect argument count in call (vector-cas! vec1)". -! 5_6.mo:Expected error in mat vector-cas!: "incorrect argument count in call (vector-cas! vec1 1)". -! 5_6.mo:Expected error in mat vector-cas!: "incorrect argument count in call (vector-cas! vec1 1 2)". - 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: 1 is not a mutable vector". - 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a mutable vector". - 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a valid index for #(4 5 3)". ---- 3973,3981 ---- - 5_6.mo:Expected error in mat vector->immutable-vector: "vector-sort!: #(1 2 3) is not a mutable vector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-set!: #vfx(1 2 3) is not a mutable fxvector". - 5_6.mo:Expected error in mat fxvector->immutable-fxvector: "fxvector-fill!: #vfx(1 2 3) is not a mutable fxvector". -! 5_6.mo:Expected error in mat vector-cas!: "incorrect number of arguments to #". -! 5_6.mo:Expected error in mat vector-cas!: "incorrect number of arguments to #". -! 5_6.mo:Expected error in mat vector-cas!: "incorrect number of arguments to #". - 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: 1 is not a mutable vector". - 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a mutable vector". - 5_6.mo:Expected error in mat vector-cas!: "vector-cas!: #(4 5 3) is not a valid index for #(4 5 3)". -*************** -*** 4004,4011 **** - 5_7.mo:Expected error in mat putprop-getprop: "getprop: 3 is not a symbol". - 5_7.mo:Expected error in mat putprop-getprop: "putprop: "hi" is not a symbol". - 5_7.mo:Expected error in mat putprop-getprop: "property-list: (a b c) is not a symbol". -! 5_8.mo:Expected error in mat box-cas!: "incorrect argument count in call (box-cas! bx1)". -! 5_8.mo:Expected error in mat box-cas!: "incorrect argument count in call (box-cas! bx1 1)". - 5_8.mo:Expected error in mat box-cas!: "box-cas!: 1 is not a mutable box". - 5_8.mo:Expected error in mat box-cas!: "box-cas!: #&1 is not a mutable box". - 6.mo:Expected error in mat port-operations: "open-input-file: failed for nonexistent file: no such file or directory". ---- 4004,4011 ---- - 5_7.mo:Expected error in mat putprop-getprop: "getprop: 3 is not a symbol". - 5_7.mo:Expected error in mat putprop-getprop: "putprop: "hi" is not a symbol". - 5_7.mo:Expected error in mat putprop-getprop: "property-list: (a b c) is not a symbol". -! 5_8.mo:Expected error in mat box-cas!: "incorrect number of arguments to #". -! 5_8.mo:Expected error in mat box-cas!: "incorrect number of arguments to #". - 5_8.mo:Expected error in mat box-cas!: "box-cas!: 1 is not a mutable box". - 5_8.mo:Expected error in mat box-cas!: "box-cas!: #&1 is not a mutable box". - 6.mo:Expected error in mat port-operations: "open-input-file: failed for nonexistent file: no such file or directory". -*************** -*** 4043,4064 **** +*** 4031,4052 **** 6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #". 6.mo:Expected error in mat port-operations: "current-output-port: a is not a textual output port". 6.mo:Expected error in mat port-operations: "current-input-port: a is not a textual input port". @@ -4033,7 +4002,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". ---- 4043,4064 ---- +--- 4031,4052 ---- 6.mo:Expected error in mat port-operations: "clear-output-port: not permitted on closed port #". 6.mo:Expected error in mat port-operations: "current-output-port: a is not a textual output port". 6.mo:Expected error in mat port-operations: "current-input-port: a is not a textual input port". @@ -4057,7 +4026,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". *************** -*** 4067,4073 **** +*** 4055,4061 **** 6.mo:Expected error in mat port-operations1: "truncate-file: all-the-way is not a valid length". 6.mo:Expected error in mat port-operations1: "truncate-file: # is not an output port". 6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port". @@ -4065,7 +4034,7 @@ 6.mo:Expected error in mat port-operations1: "truncate-file: not permitted on closed port #". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". ---- 4067,4073 ---- +--- 4055,4061 ---- 6.mo:Expected error in mat port-operations1: "truncate-file: all-the-way is not a valid length". 6.mo:Expected error in mat port-operations1: "truncate-file: # is not an output port". 6.mo:Expected error in mat port-operations1: "truncate-file: animal-crackers is not an output port". @@ -4074,7 +4043,7 @@ 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". 6.mo:Expected error in mat port-operations1: "get-output-string: # is not a string output port". *************** -*** 4084,4091 **** +*** 4072,4079 **** 6.mo:Expected error in mat string-port-file-position: "file-position: -1 is not a valid position". 6.mo:Expected error in mat fresh-line: "fresh-line: 3 is not a textual output port". 6.mo:Expected error in mat fresh-line: "fresh-line: # is not a textual output port". @@ -4083,7 +4052,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". ---- 4084,4091 ---- +--- 4072,4079 ---- 6.mo:Expected error in mat string-port-file-position: "file-position: -1 is not a valid position". 6.mo:Expected error in mat fresh-line: "fresh-line: 3 is not a textual output port". 6.mo:Expected error in mat fresh-line: "fresh-line: # is not a textual output port". @@ -4093,7 +4062,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". *************** -*** 6569,6600 **** +*** 6557,6588 **** io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #". io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #". io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #". @@ -4126,7 +4095,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". ---- 6569,6600 ---- +--- 6557,6588 ---- io.mo:Expected error in mat port-operations: "put-u8: not permitted on closed port #". io.mo:Expected error in mat port-operations: "put-bytevector: not permitted on closed port #". io.mo:Expected error in mat port-operations: "flush-output-port: not permitted on closed port #". @@ -4160,7 +4129,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". *************** -*** 6605,6611 **** +*** 6593,6599 **** io.mo:Expected error in mat port-operations1: "set-port-length!: all-the-way is not a valid length". io.mo:Expected error in mat port-operations1: "truncate-port: # is not an output port". io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port". @@ -4168,7 +4137,7 @@ io.mo:Expected error in mat port-operations1: "truncate-port: not permitted on closed port #". io.mo:Expected error in mat port-operations3: "file-port?: "not a port" is not a port". io.mo:Expected error in mat port-operations3: "port-file-descriptor: oops is not a port". ---- 6605,6611 ---- +--- 6593,6599 ---- io.mo:Expected error in mat port-operations1: "set-port-length!: all-the-way is not a valid length". io.mo:Expected error in mat port-operations1: "truncate-port: # is not an output port". io.mo:Expected error in mat port-operations1: "truncate-port: animal-crackers is not an output port". @@ -4177,7 +4146,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". *************** -*** 6788,6800 **** +*** 6776,6788 **** io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: #vu8(1 2 3) is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #". @@ -4191,7 +4160,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". ---- 6788,6800 ---- +--- 6776,6788 ---- io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: #vu8(1 2 3) is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: -1 is not a valid size for #". io.mo:Expected error in mat low-level-port-operations: "set-binary-port-output-size!: 6 is not a valid size for #". @@ -4206,7 +4175,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". *************** -*** 6802,6817 **** +*** 6790,6805 **** 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!: # is not a file port". io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". @@ -4223,7 +4192,7 @@ io.mo:Expected error in mat custom-binary-ports: "unget-u8: cannot unget 255 on #". io.mo:Expected error in mat custom-binary-ports: "put-u8: # is not a binary output port". io.mo:Expected error in mat custom-binary-ports: "port-length: # does not support operation". ---- 6802,6817 ---- +--- 6790,6805 ---- 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!: # is not a file port". io.mo:Expected error in mat compression: "port-file-compressed!: cannot compress input/output port #". @@ -4241,7 +4210,7 @@ io.mo:Expected error in mat custom-binary-ports: "put-u8: # is not a binary output port". io.mo:Expected error in mat custom-binary-ports: "port-length: # does not support operation". *************** -*** 6883,6898 **** +*** 6871,6886 **** io.mo:Expected error in mat current-ports: "console-output-port: # is not a textual output port". io.mo:Expected error in mat current-ports: "console-error-port: # is not a textual output port". io.mo:Expected error in mat current-transcoder: "current-transcoder: # is not a transcoder". @@ -4258,7 +4227,7 @@ io.mo:Expected error in mat utf-16-codec: "utf-16-codec: invalid endianness #f". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 0 of #". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #". ---- 6883,6898 ---- +--- 6871,6886 ---- io.mo:Expected error in mat current-ports: "console-output-port: # is not a textual output port". io.mo:Expected error in mat current-ports: "console-error-port: # is not a textual output port". io.mo:Expected error in mat current-transcoder: "current-transcoder: # is not a transcoder". @@ -4276,7 +4245,7 @@ io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 0 of #". io.mo:Expected error in mat to-fold-or-not-to-fold: "get-datum: invalid character name #\newLine at char 15 of #". *************** -*** 7063,7069 **** +*** 7051,7057 **** 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". @@ -4284,7 +4253,7 @@ 7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in visit: library (testfile-wpo-lib) is not visible 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 ---- 7063,7069 ---- +--- 7051,7057 ---- 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". @@ -4293,7 +4262,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 *************** -*** 7078,7104 **** +*** 7066,7092 **** 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". @@ -4321,7 +4290,7 @@ 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: hello is not an environment". 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: # is not a symbol". 7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound". ---- 7078,7104 ---- +--- 7066,7092 ---- 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". @@ -4350,7 +4319,7 @@ 7.mo:Expected error in mat top-level-value-functions: "define-top-level-value: # is not a symbol". 7.mo:Expected error in mat top-level-value-functions: "variable i-am-not-bound-i-hope is not bound". *************** -*** 7503,7596 **** +*** 7491,7584 **** 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 #". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #". @@ -4445,7 +4414,7 @@ hash.mo:Expected error in mat hashtable-arguments: "hashtable-ephemeron?: (hash . table) is not a hashtable". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value 3.5 for any". ---- 7503,7596 ---- +--- 7491,7584 ---- 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 #". hash.mo:Expected error in mat old-hash-table: "incorrect number of arguments to #". @@ -4541,7 +4510,7 @@ hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-ref: invalid hash-function # return value 3.5 for any". *************** -*** 7610,7716 **** +*** 7598,7704 **** hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 3.5 for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 1+2i for any". @@ -4649,7 +4618,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". ---- 7610,7716 ---- +--- 7598,7704 ---- hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value "oops" for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 3.5 for any". hash.mo:Expected error in mat hash-return-value: "hashtable-delete!: invalid hash-function # return value 1+2i for any". @@ -4758,7 +4727,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". *************** -*** 7718,7733 **** +*** 7706,7721 **** hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". @@ -4775,7 +4744,7 @@ hash.mo:Expected error in mat hash-functions: "string-ci-hash: hello is not a string". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". ---- 7718,7733 ---- +--- 7706,7721 ---- hash.mo:Expected error in mat generic-hashtable: "hashtable-delete!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". hash.mo:Expected error in mat generic-hashtable: "hashtable-update!: # is not mutable". @@ -4793,7 +4762,7 @@ hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". hash.mo:Expected error in mat fasl-other-hashtable: "fasl-write: invalid fasl object #". *************** -*** 7843,7850 **** +*** 7831,7838 **** 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)". @@ -4802,7 +4771,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 #". ---- 7843,7850 ---- +--- 7831,7838 ---- 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)". @@ -4812,7 +4781,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 #". *************** -*** 8432,8447 **** +*** 8420,8435 **** 8.mo:Expected error in mat rnrs-eval: "attempt to assign unbound identifier foo". 8.mo:Expected error in mat rnrs-eval: "invalid definition in immutable environment (define cons (quote #))". 8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol". @@ -4829,7 +4798,7 @@ 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: hello is not an environment". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: # is not a symbol". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #". ---- 8432,8447 ---- +--- 8420,8435 ---- 8.mo:Expected error in mat rnrs-eval: "attempt to assign unbound identifier foo". 8.mo:Expected error in mat rnrs-eval: "invalid definition in immutable environment (define cons (quote #))". 8.mo:Expected error in mat top-level-syntax-functions: "top-level-syntax: "hello" is not a symbol". @@ -4847,7 +4816,7 @@ 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: # is not a symbol". 8.mo:Expected error in mat top-level-syntax-functions: "define-top-level-syntax: cannot modify immutable environment #". *************** -*** 8540,8562 **** +*** 8528,8550 **** fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum". @@ -4871,7 +4840,7 @@ fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #". fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #". fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum". ---- 8540,8562 ---- +--- 8528,8550 ---- fx.mo:Expected error in mat fx=?: "fx=?: (a) is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: is not a fixnum". fx.mo:Expected error in mat fx=?: "fx=?: <-int> is not a fixnum". @@ -4896,7 +4865,7 @@ fx.mo:Expected error in mat $fxu<: "incorrect number of arguments to #". fx.mo:Expected error in mat $fxu<: "$fxu<: <-int> is not a fixnum". *************** -*** 8588,8600 **** +*** 8576,8588 **** 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". @@ -4910,7 +4879,7 @@ fx.mo:Expected error in mat r6rs:fx*: "fx*: is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum". fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum". ---- 8588,8600 ---- +--- 8576,8588 ---- 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". @@ -4925,7 +4894,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". *************** -*** 8644,8656 **** +*** 8632,8644 **** fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum". @@ -4939,7 +4908,7 @@ fx.mo:Expected error in mat fxmax: "fxmax: a is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum". ---- 8644,8656 ---- +--- 8632,8644 ---- fx.mo:Expected error in mat fx1+: "fx1+: <-int> is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: is not a fixnum". fx.mo:Expected error in mat fx1+: "fx1+: a is not a fixnum". @@ -4954,7 +4923,7 @@ fx.mo:Expected error in mat fxmax: "fxmax: is not a fixnum". fx.mo:Expected error in mat fxmax: "fxmax: <-int> is not a fixnum". *************** -*** 8748,8757 **** +*** 8736,8745 **** fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments and 10". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and ". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1". @@ -4965,7 +4934,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". ---- 8748,8757 ---- +--- 8736,8745 ---- fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments and 10". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments -4097 and ". fx.mo:Expected error in mat fxarithmetic-shift: "fxarithmetic-shift: fixnum overflow with arguments <-int> and 1". @@ -4977,7 +4946,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". *************** -*** 8765,8798 **** +*** 8753,8786 **** fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". @@ -5012,7 +4981,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". ---- 8765,8798 ---- +--- 8753,8786 ---- fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid start index". fx.mo:Expected error in mat fxbit-field: "fxbit-field: is not a valid end index". @@ -5048,7 +5017,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". *************** -*** 8802,8845 **** +*** 8790,8833 **** 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". @@ -5093,7 +5062,7 @@ fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: 3.4 is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: is not a fixnum". ---- 8802,8845 ---- +--- 8790,8833 ---- 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". @@ -5139,7 +5108,7 @@ fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: "3" is not a fixnum". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: is not a fixnum". *************** -*** 8848,8858 **** +*** 8836,8846 **** fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index -1". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". @@ -5151,7 +5120,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". ---- 8848,8858 ---- +--- 8836,8846 ---- fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index -1". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". fx.mo:Expected error in mat fxcopy-bit: "fxcopy-bit: invalid bit index ". @@ -5164,7 +5133,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". *************** -*** 8912,8921 **** +*** 8900,8909 **** 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". @@ -5175,7 +5144,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". ---- 8912,8921 ---- +--- 8900,8909 ---- 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". @@ -5187,7 +5156,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". *************** -*** 8931,8940 **** +*** 8919,8928 **** 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". @@ -5198,7 +5167,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". ---- 8931,8940 ---- +--- 8919,8928 ---- 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". @@ -5210,7 +5179,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". *************** -*** 8950,8959 **** +*** 8938,8947 **** 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". @@ -5221,7 +5190,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". ---- 8950,8959 ---- +--- 8938,8947 ---- 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". @@ -5233,7 +5202,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". *************** -*** 8969,8979 **** +*** 8957,8967 **** 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". @@ -5245,7 +5214,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". ---- 8969,8979 ---- +--- 8957,8967 ---- 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". @@ -5258,7 +5227,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". *************** -*** 8996,9005 **** +*** 8984,8993 **** fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: count 1 is greater than difference between end index 5 and start index 5". @@ -5269,7 +5238,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". ---- 8996,9005 ---- +--- 8984,8993 ---- fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: invalid end index ". fx.mo:Expected error in mat fxrotate-bit-field: "fxrotate-bit-field: count 1 is greater than difference between end index 5 and start index 5". @@ -5281,7 +5250,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". *************** -*** 9015,9032 **** +*** 9003,9020 **** fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index ". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index <-int>". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: start index 7 is greater than end index 5". @@ -5300,7 +5269,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". ---- 9015,9032 ---- +--- 9003,9020 ---- fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index ". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: invalid end index <-int>". fx.mo:Expected error in mat fxreverse-bit-field: "fxreverse-bit-field: start index 7 is greater than end index 5". @@ -5320,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". *************** -*** 9034,9040 **** +*** 9022,9028 **** 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". @@ -5328,7 +5297,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". ---- 9034,9040 ---- +--- 9022,9028 ---- 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". @@ -5337,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". *************** -*** 9042,9048 **** +*** 9030,9036 **** 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". @@ -5345,7 +5314,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". ---- 9042,9048 ---- +--- 9030,9036 ---- 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". @@ -5354,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". *************** -*** 9050,9056 **** +*** 9038,9044 **** 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". @@ -5362,7 +5331,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". ---- 9050,9056 ---- +--- 9038,9044 ---- 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". @@ -5371,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". *************** -*** 9058,9064 **** +*** 9046,9052 **** 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". @@ -5379,7 +5348,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". ---- 9058,9064 ---- +--- 9046,9052 ---- 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". @@ -5388,7 +5357,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". *************** -*** 9066,9105 **** +*** 9054,9093 **** 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". @@ -5429,7 +5398,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". ---- 9066,9105 ---- +--- 9054,9093 ---- 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". @@ -5471,7 +5440,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". *************** -*** 9109,9115 **** +*** 9097,9103 **** 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". @@ -5479,7 +5448,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". ---- 9109,9115 ---- +--- 9097,9103 ---- 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". @@ -5488,7 +5457,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". *************** -*** 9119,9201 **** +*** 9107,9189 **** 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". @@ -5572,7 +5541,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". ---- 9119,9201 ---- +--- 9107,9189 ---- 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". @@ -5657,7 +5626,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". *************** -*** 9215,9250 **** +*** 9203,9238 **** 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". @@ -5694,7 +5663,7 @@ fl.mo:Expected error in mat fleven?: "fleven?: a is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3 is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3.2 is not an integer". ---- 9215,9250 ---- +--- 9203,9238 ---- 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". @@ -5732,7 +5701,7 @@ fl.mo:Expected error in mat fleven?: "fleven?: 3 is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: 3.2 is not an integer". *************** -*** 9252,9259 **** +*** 9240,9247 **** fl.mo:Expected error in mat fleven?: "fleven?: 1+1i is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: +inf.0 is not an integer". fl.mo:Expected error in mat fleven?: "fleven?: +nan.0 is not an integer". @@ -5741,7 +5710,7 @@ fl.mo:Expected error in mat flodd?: "flodd?: a is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3 is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3.2 is not an integer". ---- 9252,9259 ---- +--- 9240,9247 ---- fl.mo:Expected error in mat fleven?: "fleven?: 1+1i is not a flonum". fl.mo:Expected error in mat fleven?: "fleven?: +inf.0 is not an integer". fl.mo:Expected error in mat fleven?: "fleven?: +nan.0 is not an integer". @@ -5751,7 +5720,7 @@ fl.mo:Expected error in mat flodd?: "flodd?: 3 is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: 3.2 is not an integer". *************** -*** 9261,9267 **** +*** 9249,9255 **** fl.mo:Expected error in mat flodd?: "flodd?: 3+1i is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: +inf.0 is not an integer". fl.mo:Expected error in mat flodd?: "flodd?: +nan.0 is not an integer". @@ -5759,7 +5728,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". ---- 9261,9267 ---- +--- 9249,9255 ---- fl.mo:Expected error in mat flodd?: "flodd?: 3+1i is not a flonum". fl.mo:Expected error in mat flodd?: "flodd?: +inf.0 is not an integer". fl.mo:Expected error in mat flodd?: "flodd?: +nan.0 is not an integer". @@ -5768,7 +5737,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". *************** -*** 9269,9275 **** +*** 9257,9263 **** 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". @@ -5776,7 +5745,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". ---- 9269,9275 ---- +--- 9257,9263 ---- 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". @@ -5785,7 +5754,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". *************** -*** 9277,9290 **** +*** 9265,9278 **** 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". @@ -5800,7 +5769,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". ---- 9277,9290 ---- +--- 9265,9278 ---- 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". @@ -5816,7 +5785,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". *************** -*** 9330,9336 **** +*** 9318,9324 **** 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". @@ -5824,7 +5793,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". ---- 9330,9336 ---- +--- 9318,9324 ---- 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". @@ -5833,7 +5802,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". *************** -*** 9340,9353 **** +*** 9328,9341 **** 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". @@ -5848,7 +5817,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"". ---- 9340,9353 ---- +--- 9328,9341 ---- 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". @@ -5864,7 +5833,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"". *************** -*** 9382,9389 **** +*** 9370,9377 **** 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". @@ -5873,7 +5842,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"". ---- 9382,9389 ---- +--- 9370,9377 ---- 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". @@ -5883,7 +5852,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"". *************** -*** 9881,9893 **** +*** 9869,9881 **** 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". @@ -5897,7 +5866,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". ---- 9881,9893 ---- +--- 9869,9881 ---- 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". @@ -5912,7 +5881,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". *************** -*** 9915,9986 **** +*** 9903,9974 **** 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". @@ -5985,7 +5954,7 @@ date.mo:Expected error in mat time: "time>=?: 3 is not a time record". date.mo:Expected error in mat time: "time>=?: # is not a time record". date.mo:Expected error in mat time: "time>=?: types of