Wed Feb 12 02:59:34 UTC 2025  I: starting to build scm/unstable/amd64 on jenkins on '2025-02-12 02:59'
Wed Feb 12 02:59:34 UTC 2025  I: The jenkins build log is/was available at https://jenkins.debian.net/userContent/reproducible/debian/build_service/amd64_8/47835/console.log
Wed Feb 12 02:59:34 UTC 2025  I: Downloading source for unstable/scm=5f4-3
--2025-02-12 02:59:35--  http://deb.debian.org/debian/pool/main/s/scm/scm_5f4-3.dsc
Connecting to 46.16.76.132:3128... connected.
Proxy request sent, awaiting response... 200 OK
Length: 2274 (2.2K) [text/prs.lines.tag]
Saving to: ‘scm_5f4-3.dsc’

     0K ..                                                    100%  361M=0s

2025-02-12 02:59:35 (361 MB/s) - ‘scm_5f4-3.dsc’ saved [2274/2274]

Wed Feb 12 02:59:35 UTC 2025  I: scm_5f4-3.dsc
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512

Format: 3.0 (quilt)
Source: scm
Binary: scm, libscm-dev
Architecture: any
Version: 5f4-3
Maintainer: Debian Scheme Dream Team <debian-scheme@lists.debian.org>
Uploaders: Bryan Newbold <bnewbold@robocracy.org>, Barak A. Pearlmutter <bap@debian.org>, Gwen Weinholt <weinholt@debian.org>
Homepage: https://people.csail.mit.edu/jaffer/SCM.html
Standards-Version: 4.6.1
Vcs-Browser: https://salsa.debian.org/scheme-team/scm
Vcs-Git: https://salsa.debian.org/scheme-team/scm.git
Build-Depends: debhelper-compat (= 13), slib, libncurses-dev, libreadline-dev, texinfo, libx11-dev
Package-List:
 libscm-dev deb libdevel optional arch=any
 scm deb interpreters optional arch=any
Checksums-Sha1:
 39c34712f61a7c36ae51e77368902388d4da475b 902111 scm_5f4.orig.tar.gz
 a7f883ecf87f389c887e93f7877d28579cff6c1d 488 scm_5f4.orig.tar.gz.asc
 539be7eea1eadd884dd70e78ecfe7cee8e2026e8 21176 scm_5f4-3.debian.tar.xz
Checksums-Sha256:
 af8d36c22131e85d40e42fe261a27fe8fcbf02878c86b0adf7859b81281bbbb5 902111 scm_5f4.orig.tar.gz
 19d6b99f44824351bf1f2d0894820cb54d776c33a36fb264e1fcd1379e947887 488 scm_5f4.orig.tar.gz.asc
 b291f23de0b56618650712ba9e5725c6cc3badd3e4b69fa37175581627928fca 21176 scm_5f4-3.debian.tar.xz
Files:
 b0a64075e2cc7078ab3fba776c882c02 902111 scm_5f4.orig.tar.gz
 d2725e053ee451447b028710c57e05ea 488 scm_5f4.orig.tar.gz.asc
 04ea19e034448016db2d2ea4fd19707d 21176 scm_5f4-3.debian.tar.xz

-----BEGIN PGP SIGNATURE-----

iQIzBAEBCgAdFiEENcUspJdnK0ANRheT3YObdI8QrU0FAmeETa0ACgkQ3YObdI8Q
rU223g/9GpybM0Cai0fT1T2rTTf85h9ds8ACUEQgGkpIT+u5uSOpKZw2qnbX+557
ts5R2dWhDnTGTG9egC0fTsa2zOqL0rh8G94MACRFt9nY2NhF4rPHJ7R12w4adfhI
qy6pD6oOILP/iCXDrrsDqOc526qZ93XzNYzz0SLNEf9s3BWAJu9mDzA/qFyd8DR2
xAYfr05j3NTO58rziwDzE3zCZaleRkxrYRNvq11qguuS47e9s40MJK28A4f1U2I2
vymKmqy2Yn8Z30Hjvf8j2gp9aF9JyV0GnEz3E0s4NgGq5g+g02CfWLfgj/T2jz7Y
ojjRo775IGc1IaUThsAi4CH2t3x7SCKAzU/hDlix4f2bTwqnocyQ4McBqLl8IRM8
3aTAqjBI1sN8yvYRIXKUprglN7JsAqa7MjGhHFlY91ykBlP00S5Vwe5LcWd7pDHg
5jFaoUJ5YYJNrbfJrEFPfFZGFswhBJpu6I4oWTHSIX+HsdMmAGWrReQ0qUr3P+2N
T1JwwaAmr8023YguYFrwGYZ6ngzHEbYtE1shnfSSTZ+1PIBESoGthnFgHb8JSOsp
UCIMJ76yp/Kd8D5IaHyilIYbyuXJokWDuFIZi9M81LXf61QhrZ8MNvVqP6vEUfJG
6iSZYRgCOuaeOHkrcgOLBzqspD8QgC+nnT25z5XEhDFV671KS00=
=aor4
-----END PGP SIGNATURE-----
Wed Feb 12 02:59:35 UTC 2025  I: Checking whether the package is not for us
Wed Feb 12 02:59:35 UTC 2025  I: Starting 1st build on remote node ionos15-amd64.debian.net.
Wed Feb 12 02:59:35 UTC 2025  I: Preparing to do remote build '1' on ionos15-amd64.debian.net.
Wed Feb 12 03:00:40 UTC 2025  I: Deleting $TMPDIR on ionos15-amd64.debian.net.
I: pbuilder: network access will be disabled during build
I: Current time: Mon Mar 16 21:22:36 -12 2026
I: pbuilder-time-stamp: 1773739356
I: Building the build Environment
I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz]
I: copying local configuration
W: --override-config is not set; not updating apt.conf Read the manpage for details.
I: mounting /proc filesystem
I: mounting /sys filesystem
I: creating /{dev,run}/shm
I: mounting /dev/pts filesystem
I: redirecting /dev/ptmx to /dev/pts/ptmx
I: policy-rc.d already exists
I: Copying source file
I: copying [scm_5f4-3.dsc]
I: copying [./scm_5f4.orig.tar.gz]
I: copying [./scm_5f4.orig.tar.gz.asc]
I: copying [./scm_5f4-3.debian.tar.xz]
I: Extracting source
dpkg-source: warning: cannot verify inline signature for ./scm_5f4-3.dsc: unsupported subcommand
dpkg-source: info: extracting scm in scm-5f4
dpkg-source: info: unpacking scm_5f4.orig.tar.gz
dpkg-source: info: unpacking scm_5f4-3.debian.tar.xz
dpkg-source: info: using patch list from debian/patches/series
dpkg-source: info: applying not-usr-local.patch
dpkg-source: info: applying kfreebsd_support.patch
dpkg-source: info: applying ppc64_short_int.patch
dpkg-source: info: applying hurd_maxpathlen.patch
dpkg-source: info: applying add-missing-edit-line-feature.patch
dpkg-source: info: applying fix-argument-imm-being-ignored-in-m_letstar1.patch
dpkg-source: info: applying fix-readline-related-bug.patch
dpkg-source: info: applying use-compiler-flags.patch
dpkg-source: info: applying disable-bigrecy.patch
dpkg-source: info: applying support-rv64-mips64el-s390x.patch
dpkg-source: info: applying fix-build-with-opaque-ncurses.patch
dpkg-source: info: applying fix-implicit-decl-libc.patch
dpkg-source: info: applying fix-implicit-decl-init.patch
dpkg-source: info: applying do-not-use-catalog-expand-path.patch
dpkg-source: info: applying fix-numerous-compilation-errors.patch
dpkg-source: info: applying support-loong64.patch
dpkg-source: info: applying fix-i386-build.patch
dpkg-source: info: applying fix-arm-builds.patch
dpkg-source: info: applying define-scm-llong-for-64-bit-archs.patch
I: Not using root during the build.
I: Installing the build-deps
I: user script /srv/workspace/pbuilder/3341747/tmp/hooks/D02_print_environment starting
I: set
  BUILDDIR='/build/reproducible-path'
  BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other'
  BUILDUSERNAME='pbuilder1'
  BUILD_ARCH='amd64'
  DEBIAN_FRONTEND='noninteractive'
  DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=42 '
  DISTRIBUTION='unstable'
  HOME='/root'
  HOST_ARCH='amd64'
  IFS=' 	
  '
  INVOCATION_ID='dd6cc436252b4bf980e8396092ed4fbf'
  LANG='C'
  LANGUAGE='en_US:en'
  LC_ALL='C'
  MAIL='/var/mail/root'
  OPTIND='1'
  PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games'
  PBCURRENTCOMMANDLINEOPERATION='build'
  PBUILDER_OPERATION='build'
  PBUILDER_PKGDATADIR='/usr/share/pbuilder'
  PBUILDER_PKGLIBDIR='/usr/lib/pbuilder'
  PBUILDER_SYSCONFDIR='/etc'
  PPID='3341747'
  PS1='# '
  PS2='> '
  PS4='+ '
  PWD='/'
  SHELL='/bin/bash'
  SHLVL='2'
  SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.YavhaPO7/pbuilderrc_ji9b --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.YavhaPO7/b1 --logfile b1/build.log scm_5f4-3.dsc'
  SUDO_GID='111'
  SUDO_UID='106'
  SUDO_USER='jenkins'
  TERM='unknown'
  TZ='/usr/share/zoneinfo/Etc/GMT+12'
  USER='root'
  _='/usr/bin/systemd-run'
  http_proxy='http://213.165.73.152:3128'
I: uname -a
  Linux ionos15-amd64 6.12.9+bpo-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.12.9-1~bpo12+1 (2025-01-19) x86_64 GNU/Linux
I: ls -l /bin
  lrwxrwxrwx 1 root root 7 Nov 22  2024 /bin -> usr/bin
I: user script /srv/workspace/pbuilder/3341747/tmp/hooks/D02_print_environment finished
 -> Attempting to satisfy build-dependencies
 -> Creating pbuilder-satisfydepends-dummy package
Package: pbuilder-satisfydepends-dummy
Version: 0.invalid.0
Architecture: amd64
Maintainer: Debian Pbuilder Team <pbuilder-maint@lists.alioth.debian.org>
Description: Dummy package to satisfy dependencies with aptitude - created by pbuilder
 This package was created automatically by pbuilder to satisfy the
 build-dependencies of the package being currently built.
Depends: debhelper-compat (= 13), slib, libncurses-dev, libreadline-dev, texinfo, libx11-dev
dpkg-deb: building package 'pbuilder-satisfydepends-dummy' in '/tmp/satisfydepends-aptitude/pbuilder-satisfydepends-dummy.deb'.
Selecting previously unselected package pbuilder-satisfydepends-dummy.
(Reading database ... 19806 files and directories currently installed.)
Preparing to unpack .../pbuilder-satisfydepends-dummy.deb ...
Unpacking pbuilder-satisfydepends-dummy (0.invalid.0) ...
dpkg: pbuilder-satisfydepends-dummy: dependency problems, but configuring anyway as you requested:
 pbuilder-satisfydepends-dummy depends on debhelper-compat (= 13); however:
  Package debhelper-compat is not installed.
 pbuilder-satisfydepends-dummy depends on slib; however:
  Package slib is not installed.
 pbuilder-satisfydepends-dummy depends on libncurses-dev; however:
  Package libncurses-dev is not installed.
 pbuilder-satisfydepends-dummy depends on libreadline-dev; however:
  Package libreadline-dev is not installed.
 pbuilder-satisfydepends-dummy depends on texinfo; however:
  Package texinfo is not installed.
 pbuilder-satisfydepends-dummy depends on libx11-dev; however:
  Package libx11-dev is not installed.

Setting up pbuilder-satisfydepends-dummy (0.invalid.0) ...
Reading package lists...
Building dependency tree...
Reading state information...
Initializing package states...
Writing extended state information...
Building tag database...
pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0)
pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0)
The following NEW packages will be installed:
  autoconf{a} automake{a} autopoint{a} autotools-dev{a} bsdextrautils{a} debhelper{a} dh-autoreconf{a} dh-strip-nondeterminism{a} dwz{a} file{a} gettext{a} gettext-base{a} groff-base{a} intltool-debian{a} libarchive-zip-perl{a} libdebhelper-perl{a} libelf1t64{a} libfile-stripnondeterminism-perl{a} libicu72{a} libmagic-mgc{a} libmagic1t64{a} libncurses-dev{a} libncurses6{a} libpipeline1{a} libproc2-0{a} libreadline-dev{a} libreadline8t64{a} libtext-charwidth-perl{a} libtext-unidecode-perl{a} libtext-wrapi18n-perl{a} libtool{a} libuchardet0{a} libunistring5{a} libx11-6{a} libx11-data{a} libx11-dev{a} libxau-dev{a} libxau6{a} libxcb1{a} libxcb1-dev{a} libxdmcp-dev{a} libxdmcp6{a} libxml-libxml-perl{a} libxml-namespacesupport-perl{a} libxml-sax-base-perl{a} libxml-sax-perl{a} libxml2{a} m4{a} man-db{a} po-debconf{a} procps{a} readline-common{a} sensible-utils{a} slib{a} tex-common{a} texinfo{a} texinfo-lib{a} ucf{a} x11proto-dev{a} xorg-sgml-doctools{a} xtrans-dev{a} 
The following packages are RECOMMENDED but will NOT be installed:
  curl libarchive-cpio-perl libgpm2 libltdl-dev libmail-sendmail-perl libwww-perl libxml-sax-expat-perl linux-sysctl-defaults lynx psmisc wget 
0 packages upgraded, 61 newly installed, 0 to remove and 0 not upgraded.
Need to get 29.0 MB of archives. After unpacking 112 MB will be used.
Writing extended state information...
Get: 1 http://deb.debian.org/debian unstable/main amd64 libproc2-0 amd64 2:4.0.4-7 [64.9 kB]
Get: 2 http://deb.debian.org/debian unstable/main amd64 procps amd64 2:4.0.4-7 [878 kB]
Get: 3 http://deb.debian.org/debian unstable/main amd64 readline-common all 8.2-6 [69.4 kB]
Get: 4 http://deb.debian.org/debian unstable/main amd64 sensible-utils all 0.0.24 [24.8 kB]
Get: 5 http://deb.debian.org/debian unstable/main amd64 libmagic-mgc amd64 1:5.45-3+b1 [314 kB]
Get: 6 http://deb.debian.org/debian unstable/main amd64 libmagic1t64 amd64 1:5.45-3+b1 [108 kB]
Get: 7 http://deb.debian.org/debian unstable/main amd64 file amd64 1:5.45-3+b1 [43.3 kB]
Get: 8 http://deb.debian.org/debian unstable/main amd64 gettext-base amd64 0.23.1-1 [243 kB]
Get: 9 http://deb.debian.org/debian unstable/main amd64 libuchardet0 amd64 0.0.8-1+b2 [68.9 kB]
Get: 10 http://deb.debian.org/debian unstable/main amd64 groff-base amd64 1.23.0-7 [1185 kB]
Get: 11 http://deb.debian.org/debian unstable/main amd64 bsdextrautils amd64 2.40.4-3 [92.1 kB]
Get: 12 http://deb.debian.org/debian unstable/main amd64 libpipeline1 amd64 1.5.8-1 [42.0 kB]
Get: 13 http://deb.debian.org/debian unstable/main amd64 man-db amd64 2.13.0-1 [1420 kB]
Get: 14 http://deb.debian.org/debian unstable/main amd64 libtext-charwidth-perl amd64 0.04-11+b4 [9476 B]
Get: 15 http://deb.debian.org/debian unstable/main amd64 libtext-wrapi18n-perl all 0.06-10 [8808 B]
Get: 16 http://deb.debian.org/debian unstable/main amd64 ucf all 3.0049 [42.5 kB]
Get: 17 http://deb.debian.org/debian unstable/main amd64 m4 amd64 1.4.19-5 [294 kB]
Get: 18 http://deb.debian.org/debian unstable/main amd64 autoconf all 2.72-3 [493 kB]
Get: 19 http://deb.debian.org/debian unstable/main amd64 autotools-dev all 20220109.1 [51.6 kB]
Get: 20 http://deb.debian.org/debian unstable/main amd64 automake all 1:1.17-3 [862 kB]
Get: 21 http://deb.debian.org/debian unstable/main amd64 autopoint all 0.23.1-1 [770 kB]
Get: 22 http://deb.debian.org/debian unstable/main amd64 libdebhelper-perl all 13.24.1 [90.9 kB]
Get: 23 http://deb.debian.org/debian unstable/main amd64 libtool all 2.5.4-3 [539 kB]
Get: 24 http://deb.debian.org/debian unstable/main amd64 dh-autoreconf all 20 [17.1 kB]
Get: 25 http://deb.debian.org/debian unstable/main amd64 libarchive-zip-perl all 1.68-1 [104 kB]
Get: 26 http://deb.debian.org/debian unstable/main amd64 libfile-stripnondeterminism-perl all 1.14.1-2 [19.7 kB]
Get: 27 http://deb.debian.org/debian unstable/main amd64 dh-strip-nondeterminism all 1.14.1-2 [8620 B]
Get: 28 http://deb.debian.org/debian unstable/main amd64 libelf1t64 amd64 0.192-4 [189 kB]
Get: 29 http://deb.debian.org/debian unstable/main amd64 dwz amd64 0.15-1+b1 [110 kB]
Get: 30 http://deb.debian.org/debian unstable/main amd64 libunistring5 amd64 1.3-1 [476 kB]
Get: 31 http://deb.debian.org/debian unstable/main amd64 libicu72 amd64 72.1-6 [9421 kB]
Get: 32 http://deb.debian.org/debian unstable/main amd64 libxml2 amd64 2.12.7+dfsg+really2.9.14-0.2+b1 [699 kB]
Get: 33 http://deb.debian.org/debian unstable/main amd64 gettext amd64 0.23.1-1 [1680 kB]
Get: 34 http://deb.debian.org/debian unstable/main amd64 intltool-debian all 0.35.0+20060710.6 [22.9 kB]
Get: 35 http://deb.debian.org/debian unstable/main amd64 po-debconf all 1.0.21+nmu1 [248 kB]
Get: 36 http://deb.debian.org/debian unstable/main amd64 debhelper all 13.24.1 [920 kB]
Get: 37 http://deb.debian.org/debian unstable/main amd64 libncurses6 amd64 6.5+20250125-2 [105 kB]
Get: 38 http://deb.debian.org/debian unstable/main amd64 libncurses-dev amd64 6.5+20250125-2 [353 kB]
Get: 39 http://deb.debian.org/debian unstable/main amd64 libreadline8t64 amd64 8.2-6 [169 kB]
Get: 40 http://deb.debian.org/debian unstable/main amd64 libreadline-dev amd64 8.2-6 [153 kB]
Get: 41 http://deb.debian.org/debian unstable/main amd64 libtext-unidecode-perl all 1.30-3 [101 kB]
Get: 42 http://deb.debian.org/debian unstable/main amd64 libxau6 amd64 1:1.0.11-1 [20.4 kB]
Get: 43 http://deb.debian.org/debian unstable/main amd64 libxdmcp6 amd64 1:1.1.5-1 [27.8 kB]
Get: 44 http://deb.debian.org/debian unstable/main amd64 libxcb1 amd64 1.17.0-2+b1 [144 kB]
Get: 45 http://deb.debian.org/debian unstable/main amd64 libx11-data all 2:1.8.10-2 [337 kB]
Get: 46 http://deb.debian.org/debian unstable/main amd64 libx11-6 amd64 2:1.8.10-2 [813 kB]
Get: 47 http://deb.debian.org/debian unstable/main amd64 xorg-sgml-doctools all 1:1.11-1.1 [22.1 kB]
Get: 48 http://deb.debian.org/debian unstable/main amd64 x11proto-dev all 2024.1-1 [603 kB]
Get: 49 http://deb.debian.org/debian unstable/main amd64 libxau-dev amd64 1:1.0.11-1 [23.6 kB]
Get: 50 http://deb.debian.org/debian unstable/main amd64 libxdmcp-dev amd64 1:1.1.5-1 [44.3 kB]
Get: 51 http://deb.debian.org/debian unstable/main amd64 xtrans-dev all 1.4.0-1 [98.7 kB]
Get: 52 http://deb.debian.org/debian unstable/main amd64 libxcb1-dev amd64 1.17.0-2+b1 [181 kB]
Get: 53 http://deb.debian.org/debian unstable/main amd64 libx11-dev amd64 2:1.8.10-2 [891 kB]
Get: 54 http://deb.debian.org/debian unstable/main amd64 libxml-namespacesupport-perl all 1.12-2 [15.1 kB]
Get: 55 http://deb.debian.org/debian unstable/main amd64 libxml-sax-base-perl all 1.09-3 [20.6 kB]
Get: 56 http://deb.debian.org/debian unstable/main amd64 libxml-sax-perl all 1.02+dfsg-4 [53.4 kB]
Get: 57 http://deb.debian.org/debian unstable/main amd64 libxml-libxml-perl amd64 2.0207+dfsg+really+2.0134-5+b2 [314 kB]
Get: 58 http://deb.debian.org/debian unstable/main amd64 slib all 3c1-2 [836 kB]
Get: 59 http://deb.debian.org/debian unstable/main amd64 tex-common all 6.18 [32.5 kB]
Get: 60 http://deb.debian.org/debian unstable/main amd64 texinfo-lib amd64 7.1.1-1+b1 [232 kB]
Get: 61 http://deb.debian.org/debian unstable/main amd64 texinfo all 7.1.1-1 [1753 kB]
Fetched 29.0 MB in 3s (8954 kB/s)
Preconfiguring packages ...
Selecting previously unselected package libproc2-0:amd64.
(Reading database ... 
(Reading database ... 5%
(Reading database ... 10%
(Reading database ... 15%
(Reading database ... 20%
(Reading database ... 25%
(Reading database ... 30%
(Reading database ... 35%
(Reading database ... 40%
(Reading database ... 45%
(Reading database ... 50%
(Reading database ... 55%
(Reading database ... 60%
(Reading database ... 65%
(Reading database ... 70%
(Reading database ... 75%
(Reading database ... 80%
(Reading database ... 85%
(Reading database ... 90%
(Reading database ... 95%
(Reading database ... 100%
(Reading database ... 19806 files and directories currently installed.)
Preparing to unpack .../00-libproc2-0_2%3a4.0.4-7_amd64.deb ...
Unpacking libproc2-0:amd64 (2:4.0.4-7) ...
Selecting previously unselected package procps.
Preparing to unpack .../01-procps_2%3a4.0.4-7_amd64.deb ...
Unpacking procps (2:4.0.4-7) ...
Selecting previously unselected package readline-common.
Preparing to unpack .../02-readline-common_8.2-6_all.deb ...
Unpacking readline-common (8.2-6) ...
Selecting previously unselected package sensible-utils.
Preparing to unpack .../03-sensible-utils_0.0.24_all.deb ...
Unpacking sensible-utils (0.0.24) ...
Selecting previously unselected package libmagic-mgc.
Preparing to unpack .../04-libmagic-mgc_1%3a5.45-3+b1_amd64.deb ...
Unpacking libmagic-mgc (1:5.45-3+b1) ...
Selecting previously unselected package libmagic1t64:amd64.
Preparing to unpack .../05-libmagic1t64_1%3a5.45-3+b1_amd64.deb ...
Unpacking libmagic1t64:amd64 (1:5.45-3+b1) ...
Selecting previously unselected package file.
Preparing to unpack .../06-file_1%3a5.45-3+b1_amd64.deb ...
Unpacking file (1:5.45-3+b1) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../07-gettext-base_0.23.1-1_amd64.deb ...
Unpacking gettext-base (0.23.1-1) ...
Selecting previously unselected package libuchardet0:amd64.
Preparing to unpack .../08-libuchardet0_0.0.8-1+b2_amd64.deb ...
Unpacking libuchardet0:amd64 (0.0.8-1+b2) ...
Selecting previously unselected package groff-base.
Preparing to unpack .../09-groff-base_1.23.0-7_amd64.deb ...
Unpacking groff-base (1.23.0-7) ...
Selecting previously unselected package bsdextrautils.
Preparing to unpack .../10-bsdextrautils_2.40.4-3_amd64.deb ...
Unpacking bsdextrautils (2.40.4-3) ...
Selecting previously unselected package libpipeline1:amd64.
Preparing to unpack .../11-libpipeline1_1.5.8-1_amd64.deb ...
Unpacking libpipeline1:amd64 (1.5.8-1) ...
Selecting previously unselected package man-db.
Preparing to unpack .../12-man-db_2.13.0-1_amd64.deb ...
Unpacking man-db (2.13.0-1) ...
Selecting previously unselected package libtext-charwidth-perl:amd64.
Preparing to unpack .../13-libtext-charwidth-perl_0.04-11+b4_amd64.deb ...
Unpacking libtext-charwidth-perl:amd64 (0.04-11+b4) ...
Selecting previously unselected package libtext-wrapi18n-perl.
Preparing to unpack .../14-libtext-wrapi18n-perl_0.06-10_all.deb ...
Unpacking libtext-wrapi18n-perl (0.06-10) ...
Selecting previously unselected package ucf.
Preparing to unpack .../15-ucf_3.0049_all.deb ...
Moving old data out of the way
Unpacking ucf (3.0049) ...
Selecting previously unselected package m4.
Preparing to unpack .../16-m4_1.4.19-5_amd64.deb ...
Unpacking m4 (1.4.19-5) ...
Selecting previously unselected package autoconf.
Preparing to unpack .../17-autoconf_2.72-3_all.deb ...
Unpacking autoconf (2.72-3) ...
Selecting previously unselected package autotools-dev.
Preparing to unpack .../18-autotools-dev_20220109.1_all.deb ...
Unpacking autotools-dev (20220109.1) ...
Selecting previously unselected package automake.
Preparing to unpack .../19-automake_1%3a1.17-3_all.deb ...
Unpacking automake (1:1.17-3) ...
Selecting previously unselected package autopoint.
Preparing to unpack .../20-autopoint_0.23.1-1_all.deb ...
Unpacking autopoint (0.23.1-1) ...
Selecting previously unselected package libdebhelper-perl.
Preparing to unpack .../21-libdebhelper-perl_13.24.1_all.deb ...
Unpacking libdebhelper-perl (13.24.1) ...
Selecting previously unselected package libtool.
Preparing to unpack .../22-libtool_2.5.4-3_all.deb ...
Unpacking libtool (2.5.4-3) ...
Selecting previously unselected package dh-autoreconf.
Preparing to unpack .../23-dh-autoreconf_20_all.deb ...
Unpacking dh-autoreconf (20) ...
Selecting previously unselected package libarchive-zip-perl.
Preparing to unpack .../24-libarchive-zip-perl_1.68-1_all.deb ...
Unpacking libarchive-zip-perl (1.68-1) ...
Selecting previously unselected package libfile-stripnondeterminism-perl.
Preparing to unpack .../25-libfile-stripnondeterminism-perl_1.14.1-2_all.deb ...
Unpacking libfile-stripnondeterminism-perl (1.14.1-2) ...
Selecting previously unselected package dh-strip-nondeterminism.
Preparing to unpack .../26-dh-strip-nondeterminism_1.14.1-2_all.deb ...
Unpacking dh-strip-nondeterminism (1.14.1-2) ...
Selecting previously unselected package libelf1t64:amd64.
Preparing to unpack .../27-libelf1t64_0.192-4_amd64.deb ...
Unpacking libelf1t64:amd64 (0.192-4) ...
Selecting previously unselected package dwz.
Preparing to unpack .../28-dwz_0.15-1+b1_amd64.deb ...
Unpacking dwz (0.15-1+b1) ...
Selecting previously unselected package libunistring5:amd64.
Preparing to unpack .../29-libunistring5_1.3-1_amd64.deb ...
Unpacking libunistring5:amd64 (1.3-1) ...
Selecting previously unselected package libicu72:amd64.
Preparing to unpack .../30-libicu72_72.1-6_amd64.deb ...
Unpacking libicu72:amd64 (72.1-6) ...
Selecting previously unselected package libxml2:amd64.
Preparing to unpack .../31-libxml2_2.12.7+dfsg+really2.9.14-0.2+b1_amd64.deb ...
Unpacking libxml2:amd64 (2.12.7+dfsg+really2.9.14-0.2+b1) ...
Selecting previously unselected package gettext.
Preparing to unpack .../32-gettext_0.23.1-1_amd64.deb ...
Unpacking gettext (0.23.1-1) ...
Selecting previously unselected package intltool-debian.
Preparing to unpack .../33-intltool-debian_0.35.0+20060710.6_all.deb ...
Unpacking intltool-debian (0.35.0+20060710.6) ...
Selecting previously unselected package po-debconf.
Preparing to unpack .../34-po-debconf_1.0.21+nmu1_all.deb ...
Unpacking po-debconf (1.0.21+nmu1) ...
Selecting previously unselected package debhelper.
Preparing to unpack .../35-debhelper_13.24.1_all.deb ...
Unpacking debhelper (13.24.1) ...
Selecting previously unselected package libncurses6:amd64.
Preparing to unpack .../36-libncurses6_6.5+20250125-2_amd64.deb ...
Unpacking libncurses6:amd64 (6.5+20250125-2) ...
Selecting previously unselected package libncurses-dev:amd64.
Preparing to unpack .../37-libncurses-dev_6.5+20250125-2_amd64.deb ...
Unpacking libncurses-dev:amd64 (6.5+20250125-2) ...
Selecting previously unselected package libreadline8t64:amd64.
Preparing to unpack .../38-libreadline8t64_8.2-6_amd64.deb ...
Adding 'diversion of /lib/x86_64-linux-gnu/libhistory.so.8 to /lib/x86_64-linux-gnu/libhistory.so.8.usr-is-merged by libreadline8t64'
Adding 'diversion of /lib/x86_64-linux-gnu/libhistory.so.8.2 to /lib/x86_64-linux-gnu/libhistory.so.8.2.usr-is-merged by libreadline8t64'
Adding 'diversion of /lib/x86_64-linux-gnu/libreadline.so.8 to /lib/x86_64-linux-gnu/libreadline.so.8.usr-is-merged by libreadline8t64'
Adding 'diversion of /lib/x86_64-linux-gnu/libreadline.so.8.2 to /lib/x86_64-linux-gnu/libreadline.so.8.2.usr-is-merged by libreadline8t64'
Unpacking libreadline8t64:amd64 (8.2-6) ...
Selecting previously unselected package libreadline-dev:amd64.
Preparing to unpack .../39-libreadline-dev_8.2-6_amd64.deb ...
Unpacking libreadline-dev:amd64 (8.2-6) ...
Selecting previously unselected package libtext-unidecode-perl.
Preparing to unpack .../40-libtext-unidecode-perl_1.30-3_all.deb ...
Unpacking libtext-unidecode-perl (1.30-3) ...
Selecting previously unselected package libxau6:amd64.
Preparing to unpack .../41-libxau6_1%3a1.0.11-1_amd64.deb ...
Unpacking libxau6:amd64 (1:1.0.11-1) ...
Selecting previously unselected package libxdmcp6:amd64.
Preparing to unpack .../42-libxdmcp6_1%3a1.1.5-1_amd64.deb ...
Unpacking libxdmcp6:amd64 (1:1.1.5-1) ...
Selecting previously unselected package libxcb1:amd64.
Preparing to unpack .../43-libxcb1_1.17.0-2+b1_amd64.deb ...
Unpacking libxcb1:amd64 (1.17.0-2+b1) ...
Selecting previously unselected package libx11-data.
Preparing to unpack .../44-libx11-data_2%3a1.8.10-2_all.deb ...
Unpacking libx11-data (2:1.8.10-2) ...
Selecting previously unselected package libx11-6:amd64.
Preparing to unpack .../45-libx11-6_2%3a1.8.10-2_amd64.deb ...
Unpacking libx11-6:amd64 (2:1.8.10-2) ...
Selecting previously unselected package xorg-sgml-doctools.
Preparing to unpack .../46-xorg-sgml-doctools_1%3a1.11-1.1_all.deb ...
Unpacking xorg-sgml-doctools (1:1.11-1.1) ...
Selecting previously unselected package x11proto-dev.
Preparing to unpack .../47-x11proto-dev_2024.1-1_all.deb ...
Unpacking x11proto-dev (2024.1-1) ...
Selecting previously unselected package libxau-dev:amd64.
Preparing to unpack .../48-libxau-dev_1%3a1.0.11-1_amd64.deb ...
Unpacking libxau-dev:amd64 (1:1.0.11-1) ...
Selecting previously unselected package libxdmcp-dev:amd64.
Preparing to unpack .../49-libxdmcp-dev_1%3a1.1.5-1_amd64.deb ...
Unpacking libxdmcp-dev:amd64 (1:1.1.5-1) ...
Selecting previously unselected package xtrans-dev.
Preparing to unpack .../50-xtrans-dev_1.4.0-1_all.deb ...
Unpacking xtrans-dev (1.4.0-1) ...
Selecting previously unselected package libxcb1-dev:amd64.
Preparing to unpack .../51-libxcb1-dev_1.17.0-2+b1_amd64.deb ...
Unpacking libxcb1-dev:amd64 (1.17.0-2+b1) ...
Selecting previously unselected package libx11-dev:amd64.
Preparing to unpack .../52-libx11-dev_2%3a1.8.10-2_amd64.deb ...
Unpacking libx11-dev:amd64 (2:1.8.10-2) ...
Selecting previously unselected package libxml-namespacesupport-perl.
Preparing to unpack .../53-libxml-namespacesupport-perl_1.12-2_all.deb ...
Unpacking libxml-namespacesupport-perl (1.12-2) ...
Selecting previously unselected package libxml-sax-base-perl.
Preparing to unpack .../54-libxml-sax-base-perl_1.09-3_all.deb ...
Unpacking libxml-sax-base-perl (1.09-3) ...
Selecting previously unselected package libxml-sax-perl.
Preparing to unpack .../55-libxml-sax-perl_1.02+dfsg-4_all.deb ...
Unpacking libxml-sax-perl (1.02+dfsg-4) ...
Selecting previously unselected package libxml-libxml-perl.
Preparing to unpack .../56-libxml-libxml-perl_2.0207+dfsg+really+2.0134-5+b2_amd64.deb ...
Unpacking libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+b2) ...
Selecting previously unselected package slib.
Preparing to unpack .../57-slib_3c1-2_all.deb ...
Unpacking slib (3c1-2) ...
Selecting previously unselected package tex-common.
Preparing to unpack .../58-tex-common_6.18_all.deb ...
Unpacking tex-common (6.18) ...
Selecting previously unselected package texinfo-lib.
Preparing to unpack .../59-texinfo-lib_7.1.1-1+b1_amd64.deb ...
Unpacking texinfo-lib (7.1.1-1+b1) ...
Selecting previously unselected package texinfo.
Preparing to unpack .../60-texinfo_7.1.1-1_all.deb ...
Unpacking texinfo (7.1.1-1) ...
Setting up libpipeline1:amd64 (1.5.8-1) ...
Setting up libtext-charwidth-perl:amd64 (0.04-11+b4) ...
Setting up libxau6:amd64 (1:1.0.11-1) ...
Setting up libxdmcp6:amd64 (1:1.1.5-1) ...
Setting up libxcb1:amd64 (1.17.0-2+b1) ...
Setting up libicu72:amd64 (72.1-6) ...
Setting up bsdextrautils (2.40.4-3) ...
Setting up libmagic-mgc (1:5.45-3+b1) ...
Setting up libarchive-zip-perl (1.68-1) ...
Setting up libdebhelper-perl (13.24.1) ...
Setting up libmagic1t64:amd64 (1:5.45-3+b1) ...
Setting up libxml-namespacesupport-perl (1.12-2) ...
Setting up gettext-base (0.23.1-1) ...
Setting up m4 (1.4.19-5) ...
Setting up file (1:5.45-3+b1) ...
Setting up texinfo-lib (7.1.1-1+b1) ...
Setting up libtext-wrapi18n-perl (0.06-10) ...
Setting up libelf1t64:amd64 (0.192-4) ...
Setting up libxml-sax-base-perl (1.09-3) ...
Setting up xtrans-dev (1.4.0-1) ...
Setting up autotools-dev (20220109.1) ...
Setting up libx11-data (2:1.8.10-2) ...
Setting up libncurses6:amd64 (6.5+20250125-2) ...
Setting up libproc2-0:amd64 (2:4.0.4-7) ...
Setting up libunistring5:amd64 (1.3-1) ...
Setting up autopoint (0.23.1-1) ...
Setting up autoconf (2.72-3) ...
Setting up dwz (0.15-1+b1) ...
Setting up sensible-utils (0.0.24) ...
Setting up libuchardet0:amd64 (0.0.8-1+b2) ...
Setting up procps (2:4.0.4-7) ...
Setting up libx11-6:amd64 (2:1.8.10-2) ...
Setting up xorg-sgml-doctools (1:1.11-1.1) ...
Setting up libtext-unidecode-perl (1.30-3) ...
Setting up readline-common (8.2-6) ...
Setting up libxml2:amd64 (2.12.7+dfsg+really2.9.14-0.2+b1) ...
Setting up automake (1:1.17-3) ...
update-alternatives: using /usr/bin/automake-1.17 to provide /usr/bin/automake (automake) in auto mode
Setting up x11proto-dev (2024.1-1) ...
Setting up libfile-stripnondeterminism-perl (1.14.1-2) ...
Setting up libncurses-dev:amd64 (6.5+20250125-2) ...
Setting up gettext (0.23.1-1) ...
Setting up libxau-dev:amd64 (1:1.0.11-1) ...
Setting up libtool (2.5.4-3) ...
Setting up intltool-debian (0.35.0+20060710.6) ...
Setting up slib (3c1-2) ...
Setting up dh-autoreconf (20) ...
Setting up libxdmcp-dev:amd64 (1:1.1.5-1) ...
Setting up ucf (3.0049) ...
Setting up libreadline8t64:amd64 (8.2-6) ...
Setting up dh-strip-nondeterminism (1.14.1-2) ...
Setting up groff-base (1.23.0-7) ...
Setting up libxcb1-dev:amd64 (1.17.0-2+b1) ...
Setting up po-debconf (1.0.21+nmu1) ...
Setting up libx11-dev:amd64 (2:1.8.10-2) ...
Setting up libreadline-dev:amd64 (8.2-6) ...
Setting up man-db (2.13.0-1) ...
Not building database; man-db/auto-update is not 'true'.
Setting up libxml-sax-perl (1.02+dfsg-4) ...
update-perl-sax-parsers: Registering Perl SAX parser XML::SAX::PurePerl with priority 10...
update-perl-sax-parsers: Updating overall Perl SAX parser modules info file...
Creating config file /etc/perl/XML/SAX/ParserDetails.ini with new version
Setting up tex-common (6.18) ...
update-language: texlive-base not installed and configured, doing nothing!
Setting up libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+b2) ...
update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX::Parser with priority 50...
update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX with priority 50...
update-perl-sax-parsers: Updating overall Perl SAX parser modules info file...
Replacing config file /etc/perl/XML/SAX/ParserDetails.ini with new version
Setting up debhelper (13.24.1) ...
Setting up texinfo (7.1.1-1) ...
Processing triggers for libc-bin (2.40-6) ...
Reading package lists...
Building dependency tree...
Reading state information...
Reading extended state information...
Initializing package states...
Writing extended state information...
Building tag database...
 -> Finished parsing the build-deps
I: Building the package
I: Running cd /build/reproducible-path/scm-5f4/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S  > ../scm_5f4-3_source.changes
dpkg-buildpackage: info: source package scm
dpkg-buildpackage: info: source version 5f4-3
dpkg-buildpackage: info: source distribution unstable
dpkg-buildpackage: info: source changed by Gwen Weinholt <weinholt@debian.org>
 dpkg-source --before-build .
dpkg-buildpackage: info: host architecture amd64
 debian/rules clean
dh clean
   debian/rules override_dh_testdir
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
dh_testdir
test -e /usr/share/slib || \
	(echo "Must have slib installed for compile" && exit 1)
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   dh_auto_clean
	make -j42 distclean
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
rm -f core a.out ramap.o ramap.obj scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o lints
rm -rf *temp
rm -f  *.o *.obj a.out TAGS implcat slibcat gdbscm
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   dh_clean
 debian/rules binary
dh binary
   debian/rules override_dh_testdir
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
dh_testdir
test -e /usr/share/slib || \
	(echo "Must have slib installed for compile" && exit 1)
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   dh_update_autotools_config
   dh_autoreconf
   debian/rules override_dh_auto_configure
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
./configure
#! /bin/cat
# Generated by configure for scm 5f4.
# This file (config.status) is included by the (scm) Makefile.

PACKAGE_NAME=scm
PACKAGE_TARNAME=scm
PACKAGE_VERSION=5f4
PACKAGE_STRING=scm 5f4
PACKAGE_BUGREPORT=scm-discuss@gnu.org
srcdir=/build/reproducible-path/scm-5f4/
prefix=/usr/local/
exec_prefix=${prefix}
bindir=${exec_prefix}bin/
sbindir=${exec_prefix}sbin/
libexecdir=${exec_prefix}libexec/
datarootdir=${prefix}share/
datadir=${datarootdir}
sysconfdir=${prefix}etc/
sharedstatedir=${prefix}com/
localstatedir=${prefix}var/
includedir=${prefix}include/
oldincludedir=/usr/include/
docdir=${datarootdir}doc/${PACKAGE_TARNAME}/
infodir=${datarootdir}info/
htmldir=${docdir}
dvidir=${docdir}
pdfdir=${docdir}
psdir=${docdir}
libdir=${exec_prefix}lib/
localedir=${datarootdir}locale/
mandir=${datarootdir}man/
distdir=${srcdir}
snapdir=${srcdir}
cp debian/require.scm.debian require.scm
cp debian/scm.opt.debian libscm.opt
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   debian/rules override_dh_auto_build
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
make scmlit
make[2]: Entering directory '/build/reproducible-path/scm-5f4'
echo "#ifndef IMPLINIT" > newflags.h
echo "#define IMPLINIT \"/build/reproducible-path/scm-5f4/Init5f4.scm\"" >> newflags.h
echo "#endif" >> newflags.h
echo "#define CHEAP_CONTINUATIONS" >> newflags.h
echo "#define CAUTIOUS" >> newflags.h
if (cmp -s newflags.h scmflags.h) then rm newflags.h; \
	 else mv newflags.h scmflags.h; fi
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 scm.c -o scm.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 time.c -o time.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 repl.c -o repl.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 scl.c -o scl.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 sys.c -o sys.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 eval.c -o eval.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 subr.c -o subr.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 unif.c -o unif.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 rope.c -o rope.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 continue.c -o continue.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 findexec.c -o findexec.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 script.c -o script.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 debug.c -o debug.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 scmmain.c -o scmmain.o
cc -o scmlit scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o -Wl,-z,relro -Wl,-z,now 
/usr/bin/ld: sys.o: in function `ltmpnam':
././sys.c:267:(.text+0x874): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
make checklit
make[3]: Entering directory '/build/reproducible-path/scm-5f4'
./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \
-e '(or (null? errs) (quit 1))' < /dev/null
SECTION(2 1)
SECTION(3 4)
 #<primitive-procedure boolean?>
    #<primitive-procedure char?>
       #<primitive-procedure null?>
          #<primitive-procedure number?>
             #<primitive-procedure pair?>
                #<primitive-procedure procedure?>
                   #<primitive-procedure string?>
                      #<primitive-procedure symbol?>
                         #<primitive-procedure vector?>
(#t #f #f #f #f #f #f #f #f)#t
(#t #f #f #f #f #f #f #f #f)#f
(#f #t #f #f #f #f #f #f #f)#\a
(#f #f #t #f #f #f #f #f #f)()
(#f #f #f #t #f #f #f #f #f)9739
(#f #f #f #f #t #f #f #f #f)(test)
(#f #f #f #f #f #t #f #f #f)#<CLOSURE record-error "r4rstest.scm": (e) (set! errs (cons (list cur-section e) errs))>
(#f #f #f #f #f #f #t #f #f)"test"
(#f #f #f #f #f #f #t #f #f)""
(#f #f #f #f #f #f #f #t #f)test
(#f #f #f #f #f #f #f #f #t)#()
(#f #f #f #f #f #f #f #f #t)#(a b c)
SECTION(4 1 2)
(quote (quote a))  ==> (quote a)
(quote (quote a))  ==> (quote a)
SECTION(4 1 3)
(#<primitive-procedure *> 3 4)  ==> 12
SECTION(4 1 4)
(#<CLOSURE <anon> "r4rstest.scm": (x) (+ x x)> 4)  ==> 8
(#<CLOSURE reverse-subtract "r4rstest.scm": (x y) (- y x)> 7 10)  ==> 3
(#<CLOSURE <anon> "r4rstest.scm": (y) (+ x y)> 6)  ==> 10
(#<CLOSURE <anon> "r4rstest.scm": x x> 3 4 5 6)  ==> (3 4 5 6)
(#<CLOSURE <anon> "r4rstest.scm": (x y . z) z> 3 4 5 6)  ==> (5 6)
SECTION(4 1 5)
(if yes)  ==> yes
(if no)  ==> no
(if 1)  ==> 1
SECTION(4 1 6)
(define 3)  ==> 3
(set! 5)  ==> 5
SECTION(4 2 1)
(cond greater)  ==> greater
(cond equal)  ==> equal
(cond 2)  ==> 2
(case composite)  ==> composite
(case consonant)  ==> consonant
(and #t)  ==> #t
(and #f)  ==> #f
(and (f g))  ==> (f g)
(and #t)  ==> #t
(or #t)  ==> #t
(or #t)  ==> #t
(or #f)  ==> #f
(or #f)  ==> #f
(or (b c))  ==> (b c)
SECTION(4 2 2)
(let 6)  ==> 6
(let 35)  ==> 35
(let* 70)  ==> 70
(letrec #t)  ==> #t
(let 5)  ==> 5
(let 34)  ==> 34
(let 6)  ==> 6
(let 34)  ==> 34
(let 34)  ==> 34
(let* 7)  ==> 7
(let* 34)  ==> 34
(let* 8)  ==> 8
(let* 34)  ==> 34
(letrec 9)  ==> 9
(letrec 34)  ==> 34
(letrec 10)  ==> 10
(letrec 34)  ==> 34
SECTION(4 2 3)
(begin 6)  ==> 6
SECTION(4 2 4)
(do #(0 1 2 3 4))  ==> #(0 1 2 3 4)
(do 25)  ==> 25
(do 25)  ==> 25
(let 1)  ==> 1
(let ((6 1 3) (-5 -2)))  ==> ((6 1 3) (-5 -2))
(let -1)  ==> -1
SECTION(4 2 6)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (list a (quote a)))  ==> (list a (quote a))
(quasiquote (a 3 4 5 6 b))  ==> (a 3 4 5 6 b)
(quasiquote ((foo 7) . cons))  ==> ((foo 7) . cons)
(quasiquote #(10 5 2 4 3 8))  ==> #(10 5 2 4 3 8)
(quasiquote 5)  ==> 5
(quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f))  ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)
(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e))  ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (quasiquote (list (unquote (+ 1 2)) 4)))  ==> (quasiquote (list (unquote (+ 1 2)) 4))
SECTION(5 2 1)
(tprint #t)  ==> #t
(define 6)  ==> 6
(define 1)  ==> 1
(define 9)  ==> 9
(define 9)  ==> 9
(define 10)  ==> 10
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6)  ==> (3 6)
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6)  ==> 9
SECTION(5 2 2)
(define 45)  ==> 45
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE foo "r4rstest.scm": (x) ((lambda () (define x 5) x)) x> 88)  ==> 88
(#<CLOSURE foo "r4rstest.scm": (x) (#@let ()  (#@define ((x 5))  #@x)) #@x> 4)  ==> 4
(define 34)  ==> 34
(internal-define 99)  ==> 99
(internal-define 77)  ==> 77
SECTION(6 1)
(#<primitive-procedure not> #t)  ==> #f
(#<primitive-procedure not> 3)  ==> #f
(#<primitive-procedure not> (3))  ==> #f
(#<primitive-procedure not> #f)  ==> #t
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> nil)  ==> #f
SECTION(6 2)
(#<primitive-procedure eqv?> a a)  ==> #t
(#<primitive-procedure eqv?> a b)  ==> #f
(#<primitive-procedure eqv?> 2 2)  ==> #t
(#<primitive-procedure eqv?> () ())  ==> #t
(#<primitive-procedure eqv?> 10000 10000)  ==> #t
(#<primitive-procedure eqv?> (1 . 2) (1 . 2))  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () 1> #<CLOSURE <anon> "r4rstest.scm": () 2>)  ==> #f
(#<primitive-procedure eqv?> #f nil)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE p "r4rstest.scm": (x) x> #<CLOSURE p "r4rstest.scm": (x) x>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE f "r4rstest.scm": () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE g "r4rstest.scm": () (if (eqv? f g) (quote g) (quote both))>)  ==> #f
(#<primitive-procedure eq?> a a)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #f
(#<primitive-procedure eq?> () ())  ==> #t
(#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #t
(#<primitive-procedure eq?> #() #())  ==> #t
(#<primitive-procedure eq?> #<CLOSURE x "r4rstest.scm": (x) x> #<CLOSURE x "r4rstest.scm": (x) x>)  ==> #t
(#<primitive-procedure equal?> a a)  ==> #t
(#<primitive-procedure equal?> (a) (a))  ==> #t
(#<primitive-procedure equal?> (a (b) c) (a (b) c))  ==> #t
(#<primitive-procedure equal?> "abc" "abc")  ==> #t
(#<primitive-procedure equal?> 2 2)  ==> #t
(#<primitive-procedure equal?> #(a a a a a) #(a a a a a))  ==> #t
SECTION(6 3)
(dot (a b c d e))  ==> (a b c d e)
(#<primitive-procedure list?> (a b c))  ==> #t
(set-cdr! (a . 4))  ==> (a . 4)
(#<primitive-procedure eqv?> (a . 4) (a . 4))  ==> #t
(dot (a b c . d))  ==> (a b c . d)
(#<primitive-procedure list?> (a . 4))  ==> #f
(list? #f)  ==> #f
(#<primitive-procedure cons> a ())  ==> (a)
(#<primitive-procedure cons> (a) (b c d))  ==> ((a) b c d)
(#<primitive-procedure cons> "a" (b c))  ==> ("a" b c)
(#<primitive-procedure cons> a 3)  ==> (a . 3)
(#<primitive-procedure cons> (a b) c)  ==> ((a b) . c)
(#<primitive-procedure car> (a b c))  ==> a
(#<primitive-procedure car> ((a) b c d))  ==> (a)
(#<primitive-procedure car> (1 . 2))  ==> 1
(#<primitive-procedure cdr> ((a) b c d))  ==> (b c d)
(#<primitive-procedure cdr> (1 . 2))  ==> 2
(#<primitive-procedure list> a 7 c)  ==> (a 7 c)
(#<primitive-procedure list>)  ==> ()
(#<primitive-procedure length> (a b c))  ==> 3
(#<primitive-procedure length> (a (b) (c d e)))  ==> 3
(#<primitive-procedure length> ())  ==> 0
(#<primitive-procedure append> (x) (y))  ==> (x y)
(#<primitive-procedure append> (a) (b c d))  ==> (a b c d)
(#<primitive-procedure append> (a (b)) ((c)))  ==> (a (b) (c))
(#<primitive-procedure append>)  ==> ()
(#<primitive-procedure append> (a b) (c . d))  ==> (a b c . d)
(#<primitive-procedure append> () a)  ==> a
(#<primitive-procedure reverse> (a b c))  ==> (c b a)
(#<primitive-procedure reverse> (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
(#<primitive-procedure list-ref> (a b c d) 2)  ==> c
(#<primitive-procedure memq> a (a b c))  ==> (a b c)
(#<primitive-procedure memq> b (a b c))  ==> (b c)
(#<primitive-procedure memq> a (b c d))  ==> #f
(#<primitive-procedure memq> (a) (b (a) c))  ==> #f
(#<primitive-procedure member> (a) (b (a) c))  ==> ((a) c)
(#<primitive-procedure memv> 101 (100 101 102))  ==> (101 102)
(#<primitive-procedure assq> a ((a 1) (b 2) (c 3)))  ==> (a 1)
(#<primitive-procedure assq> b ((a 1) (b 2) (c 3)))  ==> (b 2)
(#<primitive-procedure assq> d ((a 1) (b 2) (c 3)))  ==> #f
(#<primitive-procedure assq> (a) (((a)) ((b)) ((c))))  ==> #f
(#<primitive-procedure assoc> (a) (((a)) ((b)) ((c))))  ==> ((a))
(#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
SECTION(6 4)
(#<primitive-procedure symbol?> a)  ==> #t
(standard-case #t)  ==> #t
(standard-case #t)  ==> #t
(#<primitive-procedure symbol->string> flying-fish)  ==> "flying-fish"
(#<primitive-procedure symbol->string> martin)  ==> "martin"
(#<primitive-procedure symbol->string> \Malvina)  ==> "Malvina"
(standard-case #t)  ==> #t
(string-set! "cb")  ==> "cb"
(#<primitive-procedure symbol->string> ab)  ==> "ab"
(#<primitive-procedure string->symbol> "ab")  ==> ab
(#<primitive-procedure eq?> mississippi mississippi)  ==> #t
(string->symbol #f)  ==> #f
(#<primitive-procedure string->symbol> "jollywog")  ==> jollywog
SECTION(6 5 5)
(#<primitive-procedure number?> 3)  ==> #t
(#<primitive-procedure complex?> 3)  ==> #t
(#<primitive-procedure real?> 3)  ==> #t
(#<primitive-procedure rational?> 3)  ==> #t
(#<primitive-procedure integer?> 3)  ==> #t
(#<primitive-procedure exact?> 3)  ==> #t
(#<primitive-procedure inexact?> 3)  ==> #f
(#<primitive-procedure integer-expt> 0 0)  ==> 1
(#<primitive-procedure integer-expt> 0 1)  ==> 0
(#<primitive-procedure integer-expt> 0 256)  ==> 0
(#<primitive-procedure integer-expt> -1 256)  ==> 1
(#<primitive-procedure integer-expt> -1 255)  ==> -1
(#<primitive-procedure integer-expt> -1 -256)  ==> 1
(#<primitive-procedure integer-expt> -1 -255)  ==> -1
(#<primitive-procedure integer-expt> 256 0)  ==> 1
(#<primitive-procedure integer-expt> -256 0)  ==> 1
(#<primitive-procedure integer-expt> 256 1)  ==> 256
(#<primitive-procedure integer-expt> -256 1)  ==> -256
(#<primitive-procedure integer-expt> 2 3)  ==> 8
(#<primitive-procedure integer-expt> -2 3)  ==> -8
(#<primitive-procedure integer-expt> 3 2)  ==> 9
(#<primitive-procedure integer-expt> -3 2)  ==> 9
(#<primitive-procedure => 22 22 22)  ==> #t
(#<primitive-procedure => 22 22)  ==> #t
(#<primitive-procedure => 34 34 35)  ==> #f
(#<primitive-procedure => 34 35)  ==> #f
(#<primitive-procedure >> 3 -6246)  ==> #t
(#<primitive-procedure >> 9 9 -2424)  ==> #f
(#<primitive-procedure >=> 3 -4 -6246)  ==> #t
(#<primitive-procedure >=> 9 9)  ==> #t
(#<primitive-procedure >=> 8 9)  ==> #f
(#<primitive-procedure <> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <> -1 2 3 4 4 5 6 7)  ==> #f
(#<primitive-procedure <=> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <=> -1 2 3 4 4 5 6 7)  ==> #t
(#<primitive-procedure <> 1 3 2)  ==> #f
(#<primitive-procedure >=> 1 3 2)  ==> #f
(#<primitive-procedure zero?> 0)  ==> #t
(#<primitive-procedure zero?> 1)  ==> #f
(#<primitive-procedure zero?> -1)  ==> #f
(#<primitive-procedure zero?> -100)  ==> #f
(#<primitive-procedure positive?> 4)  ==> #t
(#<primitive-procedure positive?> -4)  ==> #f
(#<primitive-procedure positive?> 0)  ==> #f
(#<primitive-procedure negative?> 4)  ==> #f
(#<primitive-procedure negative?> -4)  ==> #t
(#<primitive-procedure negative?> 0)  ==> #f
(#<primitive-procedure odd?> 3)  ==> #t
(#<primitive-procedure odd?> 2)  ==> #f
(#<primitive-procedure odd?> -4)  ==> #f
(#<primitive-procedure odd?> -1)  ==> #t
(#<primitive-procedure even?> 3)  ==> #f
(#<primitive-procedure even?> 2)  ==> #t
(#<primitive-procedure even?> -4)  ==> #t
(#<primitive-procedure even?> -1)  ==> #f
(#<primitive-procedure max> 34 5 7 38 6)  ==> 38
(#<primitive-procedure min> 3 5 5 330 4 -24)  ==> -24
(#<primitive-procedure +> 3 4)  ==> 7
(#<primitive-procedure +> 3)  ==> 3
(#<primitive-procedure +>)  ==> 0
(#<primitive-procedure *> 4)  ==> 4
(#<primitive-procedure *>)  ==> 1
(#<primitive-procedure /> 1)  ==> 1
(#<primitive-procedure /> -1)  ==> -1
(#<primitive-procedure /> 6 3)  ==> 2
(#<primitive-procedure /> 6 -2)  ==> -3
(#<primitive-procedure /> -6 2)  ==> -3
(#<primitive-procedure /> -6 -2)  ==> 3
(#<primitive-procedure -> 3 4)  ==> -1
(#<primitive-procedure -> 3)  ==> -3
(#<primitive-procedure abs> -7)  ==> 7
(#<primitive-procedure abs> 7)  ==> 7
(#<primitive-procedure abs> 0)  ==> 0
(#<primitive-procedure quotient> 35 7)  ==> 5
(#<primitive-procedure quotient> -35 7)  ==> -5
(#<primitive-procedure quotient> 35 -7)  ==> -5
(#<primitive-procedure quotient> -35 -7)  ==> 5
(#<primitive-procedure modulo> 13 4)  ==> 1
(#<primitive-procedure remainder> 13 4)  ==> 1
(#<primitive-procedure modulo> -13 4)  ==> 3
(#<primitive-procedure remainder> -13 4)  ==> -1
(#<primitive-procedure modulo> 13 -4)  ==> -3
(#<primitive-procedure remainder> 13 -4)  ==> 1
(#<primitive-procedure modulo> -13 -4)  ==> -1
(#<primitive-procedure remainder> -13 -4)  ==> -1
(#<primitive-procedure modulo> 0 86400)  ==> 0
(#<primitive-procedure modulo> 0 -86400)  ==> 0
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9)  ==> #t
(#<primitive-procedure gcd> 0 4)  ==> 4
(#<primitive-procedure gcd> -4 0)  ==> 4
(#<primitive-procedure gcd> 32 -36)  ==> 4
(#<primitive-procedure gcd>)  ==> 0
(#<primitive-procedure lcm> 32 -36)  ==> 288
(#<primitive-procedure lcm>)  ==> 1
SECTION(6 5 5)
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (string->number str)))  (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0")  ==> #t
SECTION(6 5 9)
(#<primitive-procedure number->string> 0)  ==> "0"
(#<primitive-procedure number->string> 100)  ==> "100"
(#<primitive-procedure number->string> 256 16)  ==> "100"
(#<primitive-procedure string->number> "100")  ==> 100
(#<primitive-procedure string->number> "100" 16)  ==> 256
(#<primitive-procedure string->number> "")  ==> #f
(#<primitive-procedure string->number> ".")  ==> #f
(#<primitive-procedure string->number> "d")  ==> #f
(#<primitive-procedure string->number> "D")  ==> #f
(#<primitive-procedure string->number> "i")  ==> #f
(#<primitive-procedure string->number> "I")  ==> #f
(#<primitive-procedure string->number> "3i")  ==> #f
(#<primitive-procedure string->number> "3I")  ==> #f
(#<primitive-procedure string->number> "33i")  ==> #f
(#<primitive-procedure string->number> "33I")  ==> #f
(#<primitive-procedure string->number> "3.3i")  ==> #f
(#<primitive-procedure string->number> "3.3I")  ==> #f
(#<primitive-procedure string->number> "-")  ==> #f
(#<primitive-procedure string->number> "+")  ==> #f
(string->number #t)  ==> #t
(string->number #t)  ==> #t
SECTION(6 6)
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure char?> #\a)  ==> #t
(#<primitive-procedure char?> #\()  ==> #t
(#<primitive-procedure char?> #\space)  ==> #t
(#<primitive-procedure char?> #\nl)  ==> #t
(#<primitive-procedure char=?> #\A #\B)  ==> #f
(#<primitive-procedure char=?> #\a #\b)  ==> #f
(#<primitive-procedure char=?> #\9 #\0)  ==> #f
(#<primitive-procedure char=?> #\A #\A)  ==> #t
(#<primitive-procedure char<?> #\A #\B)  ==> #t
(#<primitive-procedure char<?> #\a #\b)  ==> #t
(#<primitive-procedure char<?> #\9 #\0)  ==> #f
(#<primitive-procedure char<?> #\A #\A)  ==> #f
(#<primitive-procedure char>?> #\A #\B)  ==> #f
(#<primitive-procedure char>?> #\a #\b)  ==> #f
(#<primitive-procedure char>?> #\9 #\0)  ==> #t
(#<primitive-procedure char>?> #\A #\A)  ==> #f
(#<primitive-procedure char<=?> #\A #\B)  ==> #t
(#<primitive-procedure char<=?> #\a #\b)  ==> #t
(#<primitive-procedure char<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char<=?> #\A #\A)  ==> #t
(#<primitive-procedure char>=?> #\A #\B)  ==> #f
(#<primitive-procedure char>=?> #\a #\b)  ==> #f
(#<primitive-procedure char>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\A)  ==> #t
(#<primitive-procedure char-alphabetic?> #\z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\Z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\0)  ==> #f
(#<primitive-procedure char-alphabetic?> #\9)  ==> #f
(#<primitive-procedure char-alphabetic?> #\space)  ==> #f
(#<primitive-procedure char-alphabetic?> #\;)  ==> #f
(#<primitive-procedure char-numeric?> #\a)  ==> #f
(#<primitive-procedure char-numeric?> #\A)  ==> #f
(#<primitive-procedure char-numeric?> #\z)  ==> #f
(#<primitive-procedure char-numeric?> #\Z)  ==> #f
(#<primitive-procedure char-numeric?> #\0)  ==> #t
(#<primitive-procedure char-numeric?> #\9)  ==> #t
(#<primitive-procedure char-numeric?> #\space)  ==> #f
(#<primitive-procedure char-numeric?> #\;)  ==> #f
(#<primitive-procedure char-whitespace?> #\a)  ==> #f
(#<primitive-procedure char-whitespace?> #\A)  ==> #f
(#<primitive-procedure char-whitespace?> #\z)  ==> #f
(#<primitive-procedure char-whitespace?> #\Z)  ==> #f
(#<primitive-procedure char-whitespace?> #\0)  ==> #f
(#<primitive-procedure char-whitespace?> #\9)  ==> #f
(#<primitive-procedure char-whitespace?> #\space)  ==> #t
(#<primitive-procedure char-whitespace?> #\;)  ==> #f
(#<primitive-procedure char-upper-case?> #\0)  ==> #f
(#<primitive-procedure char-upper-case?> #\9)  ==> #f
(#<primitive-procedure char-upper-case?> #\space)  ==> #f
(#<primitive-procedure char-upper-case?> #\;)  ==> #f
(#<primitive-procedure char-lower-case?> #\0)  ==> #f
(#<primitive-procedure char-lower-case?> #\9)  ==> #f
(#<primitive-procedure char-lower-case?> #\space)  ==> #f
(#<primitive-procedure char-lower-case?> #\;)  ==> #f
(#<primitive-procedure integer->char> 46)  ==> #\.
(#<primitive-procedure integer->char> 65)  ==> #\A
(#<primitive-procedure integer->char> 97)  ==> #\a
(#<primitive-procedure char-upcase> #\A)  ==> #\A
(#<primitive-procedure char-upcase> #\a)  ==> #\A
(#<primitive-procedure char-downcase> #\A)  ==> #\a
(#<primitive-procedure char-downcase> #\a)  ==> #\a
SECTION(6 7)
(#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.")  ==> #t
(string-set! "?**")  ==> "?**"
(#<primitive-procedure string> #\a #\b #\c)  ==> "abc"
(#<primitive-procedure string>)  ==> ""
(#<primitive-procedure string-length> "abc")  ==> 3
(#<primitive-procedure string-ref> "abc" 0)  ==> #\a
(#<primitive-procedure string-ref> "abc" 2)  ==> #\c
(#<primitive-procedure string-length> "")  ==> 0
(#<primitive-procedure substring> "ab" 0 0)  ==> ""
(#<primitive-procedure substring> "ab" 1 1)  ==> ""
(#<primitive-procedure substring> "ab" 2 2)  ==> ""
(#<primitive-procedure substring> "ab" 0 1)  ==> "a"
(#<primitive-procedure substring> "ab" 1 2)  ==> "b"
(#<primitive-procedure substring> "ab" 0 2)  ==> "ab"
(#<primitive-procedure string-append> "foo" "bar")  ==> "foobar"
(#<primitive-procedure string-append> "foo")  ==> "foo"
(#<primitive-procedure string-append> "foo" "")  ==> "foo"
(#<primitive-procedure string-append> "" "foo")  ==> "foo"
(#<primitive-procedure string-append>)  ==> ""
(#<primitive-procedure make-string> 0)  ==> ""
(#<primitive-procedure string=?> "" "")  ==> #t
(#<primitive-procedure string<?> "" "")  ==> #f
(#<primitive-procedure string>?> "" "")  ==> #f
(#<primitive-procedure string<=?> "" "")  ==> #t
(#<primitive-procedure string>=?> "" "")  ==> #t
(#<primitive-procedure string-ci=?> "" "")  ==> #t
(#<primitive-procedure string-ci<?> "" "")  ==> #f
(#<primitive-procedure string-ci>?> "" "")  ==> #f
(#<primitive-procedure string-ci<=?> "" "")  ==> #t
(#<primitive-procedure string-ci>=?> "" "")  ==> #t
(#<primitive-procedure string=?> "A" "B")  ==> #f
(#<primitive-procedure string=?> "a" "b")  ==> #f
(#<primitive-procedure string=?> "9" "0")  ==> #f
(#<primitive-procedure string=?> "A" "A")  ==> #t
(#<primitive-procedure string<?> "A" "B")  ==> #t
(#<primitive-procedure string<?> "a" "b")  ==> #t
(#<primitive-procedure string<?> "9" "0")  ==> #f
(#<primitive-procedure string<?> "A" "A")  ==> #f
(#<primitive-procedure string>?> "A" "B")  ==> #f
(#<primitive-procedure string>?> "a" "b")  ==> #f
(#<primitive-procedure string>?> "9" "0")  ==> #t
(#<primitive-procedure string>?> "A" "A")  ==> #f
(#<primitive-procedure string<=?> "A" "B")  ==> #t
(#<primitive-procedure string<=?> "a" "b")  ==> #t
(#<primitive-procedure string<=?> "9" "0")  ==> #f
(#<primitive-procedure string<=?> "A" "A")  ==> #t
(#<primitive-procedure string>=?> "A" "B")  ==> #f
(#<primitive-procedure string>=?> "a" "b")  ==> #f
(#<primitive-procedure string>=?> "9" "0")  ==> #t
(#<primitive-procedure string>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci<?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<?> "A" "A")  ==> #f
(#<primitive-procedure string-ci<?> "A" "a")  ==> #f
(#<primitive-procedure string-ci>?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>?> "A" "A")  ==> #f
(#<primitive-procedure string-ci>?> "A" "a")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "a")  ==> #t
SECTION(6 8)
(#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna"))  ==> #t
(#<primitive-procedure vector> a b c)  ==> #(a b c)
(#<primitive-procedure vector>)  ==> #()
(#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna"))  ==> 3
(#<primitive-procedure vector-length> #())  ==> 0
(#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5)  ==> 8
(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
(#<primitive-procedure make-vector> 2 hi)  ==> #(hi hi)
(#<primitive-procedure make-vector> 0)  ==> #()
(#<primitive-procedure make-vector> 0 a)  ==> #()
SECTION(6 9)
(#<primitive-procedure procedure?> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure procedure?> car)  ==> #f
(#<primitive-procedure procedure?> #<CLOSURE <anon> "r4rstest.scm": (x) (* x x)>)  ==> #t
(#<primitive-procedure procedure?> (lambda (x) (* x x)))  ==> #f
(#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>)  ==> #t
(#<primitive-procedure procedure?> #<primitive-procedure />)  ==> #t
(#<primitive-procedure apply> #<primitive-procedure +> (3 4))  ==> 7
(#<primitive-procedure apply> #<CLOSURE <anon> "r4rstest.scm": (a b) (+ a b)> (3 4))  ==> 7
(#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4))  ==> 17
(#<primitive-procedure apply> #<primitive-procedure list> ())  ==> ()
(#<CLOSURE <anon> "r4rstest.scm": args (f (apply g args))> 12 75)  ==> 30
(#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h)))  ==> (b e h)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6))  ==> (5 7 9)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure *> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure -> (1 2 3))  ==> (-1 -2 -3)
(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
(#<primitive-procedure call-with-current-continuation> #<CLOSURE <anon> "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>)  ==> -3
(#<CLOSURE list-length "r4rstest.scm": (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4))  ==> 4
(#<CLOSURE list-length "r4rstest.scm": (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f))))))  (#@r #@obj))))> (a b . c))  ==> #f
(#<primitive-procedure map> #<primitive-procedure cadr> ())  ==> ()
SECTION(6 10 1)
(#<primitive-procedure input-port?> #<input-port 0>)  ==> #t
(#<primitive-procedure output-port?> #<output-port 1 L1 C1>)  ==> #t
(#<CLOSURE call-with-input-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>)  ==> #t
(#<primitive-procedure input-port?> #<input-port "r4rstest.scm">)  ==> #t
SECTION(6 10 2)
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define cur-section (quote ()))
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\(
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define errs (quote ()))
SECTION(6 10 3)
(#<CLOSURE call-with-output-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp1" #<CLOSURE <anon> "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>)  ==> #t
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure output-port?> #<output-port "tmp2">)  ==> #t
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))

Passed all tests

To fully test continuations, Scheme 4, and DELAY/FORCE do:
(test-cont) (test-sc4) (test-delay)

;testing scheme 4 functions; 
SECTION(6 7)
(#<primitive-procedure string->list> "P l")  ==> (#\P #\space #\l)
(#<primitive-procedure string->list> "")  ==> ()
(#<primitive-procedure list->string> (#\1 #\\ #\"))  ==> "1\\\""
(#<primitive-procedure list->string> ())  ==> ""
SECTION(6 8)
(#<primitive-procedure vector->list> #(dah dah didah))  ==> (dah dah didah)
(#<primitive-procedure vector->list> #())  ==> ()
(#<primitive-procedure list->vector> (dididit dah))  ==> #(dididit dah)
(#<primitive-procedure list->vector> ())  ==> #()
SECTION(6 10 4)
(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))

Passed all tests

;testing DELAY and FORCE; 
SECTION(6 9)
(delay 3)  ==> 3
(delay (3 3))  ==> (3 3)
(delay 2)  ==> 2
(#<primitive-procedure force> #<promise #<CLOSURE test-delay "r4rstest.scm": () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>)  ==> 6
(#<primitive-procedure force> #<promise 6>)  ==> 6
(force 3)  ==> 3

Passed all tests
make[3]: Leaving directory '/build/reproducible-path/scm-5f4'
make[2]: Leaving directory '/build/reproducible-path/scm-5f4'
# Use the same options for both static library and executable
./build -p linux -hsystem -f libscm.opt
; Scheme (linux) script created by SLIB/batch 
; [-p linux]
; used options from: libscm.opt
; ================ Write file with C defines
(delete-file "scmflags.h")
(call-with-output-file
  "scmflags.h"
  (lambda (fp)
    (for-each
      (lambda (string) (write-line string fp))
      '("#define IMPLINIT \"Init.scm\""
        "#define INITS init_sc2();init_ioext();"
        "#define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();"
        "#define CAUTIOUS"
        "#define BIGNUMS"
        "#define ARRAYS"
        "#define FLOATS"
        "#define CCLO"
        "#define TICKS"
        "#define CAN_DUMP"
        "#define MACRO"))))
; ================ Compile C source files
(system "gcc -c -I/usr/include/X11 -DX11 -DSUN_DL -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 sc2.c ramap.c record.c gsubr.c ioext.c edline.c rgx.c socket.c posix.c unix.c crs.c dynl.c x.c differ.c continue.c scm.c scmmain.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c unexelf.c gmalloc.c")
differ.c:33:9: warning: "I32" redefined
   33 | #define I32 long
      |         ^~~
differ.c:27:10: note: this is the location of the previous definition
   27 | # define I32 int
      |          ^~~
unexelf.c: In function 'unexec':
unexelf.c:712:12: warning: too many arguments for format [-Wformat-extra-args]
  712 |     fatal ("Can't allocate buffer for %s\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:783:12: warning: too many arguments for format [-Wformat-extra-args]
  783 |     fatal (".bss shrank when undumping???\n", 0, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:801:12: warning: too many arguments for format [-Wformat-extra-args]
  801 |     fatal ("Can't allocate buffer for %s\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:856:18: warning: too many arguments for format [-Wformat-extra-args]
  856 |           fatal ("Program segment above .bss in %s\n", old_name, 0);
      |                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:866:12: warning: too many arguments for format [-Wformat-extra-args]
  866 |     fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:896:12: warning: too many arguments for format [-Wformat-extra-args]
  896 |     fatal ("Can't find .data in %s.\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
; ================ Link C object files
(system "gcc -rdynamic -o scm -Wl,-z,relro -Wl,-z,now sc2.o ramap.o record.o gsubr.o ioext.o edline.o rgx.o socket.o posix.o unix.o crs.o dynl.o x.o differ.o continue.o scm.o scmmain.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o unexelf.o gmalloc.o -lm -lreadline -ltermcap -lcurses -ldl -L/usr/X11R6/lib -lX11 -lc")
/usr/bin/ld: sys.o: in function `ltmpnam':
././sys.c:267:(.text+0x8bf): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
./build -p linux -hsystem -f libscm.opt -t lib
; Scheme (linux) script created by SLIB/batch 
; [-p linux]
; used options from: libscm.opt
; ================ Write file with C defines
(delete-file "scmflags.h")
(call-with-output-file
  "scmflags.h"
  (lambda (fp)
    (for-each
      (lambda (string) (write-line string fp))
      '("#define IMPLINIT \"Init.scm\""
        "#define INITS init_sc2();init_ioext();"
        "#define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();"
        "#define CAUTIOUS"
        "#define BIGNUMS"
        "#define ARRAYS"
        "#define FLOATS"
        "#define CCLO"
        "#define TICKS"
        "#define CAN_DUMP"
        "#define MACRO"))))
; ================ Compile C source files
(system "gcc -c -I/usr/include/X11 -DX11 -DSUN_DL -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 sc2.c ramap.c record.c gsubr.c ioext.c edline.c rgx.c socket.c posix.c unix.c crs.c dynl.c x.c differ.c continue.c scm.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c unexelf.c gmalloc.c")
differ.c:33:9: warning: "I32" redefined
   33 | #define I32 long
      |         ^~~
differ.c:27:10: note: this is the location of the previous definition
   27 | # define I32 int
      |          ^~~
unexelf.c: In function 'unexec':
unexelf.c:712:12: warning: too many arguments for format [-Wformat-extra-args]
  712 |     fatal ("Can't allocate buffer for %s\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:783:12: warning: too many arguments for format [-Wformat-extra-args]
  783 |     fatal (".bss shrank when undumping???\n", 0, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:801:12: warning: too many arguments for format [-Wformat-extra-args]
  801 |     fatal ("Can't allocate buffer for %s\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:856:18: warning: too many arguments for format [-Wformat-extra-args]
  856 |           fatal ("Program segment above .bss in %s\n", old_name, 0);
      |                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:866:12: warning: too many arguments for format [-Wformat-extra-args]
  866 |     fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
unexelf.c:896:12: warning: too many arguments for format [-Wformat-extra-args]
  896 |     fatal ("Can't find .data in %s.\n", old_name, 0);
      |            ^~~~~~~~~~~~~~~~~~~~~~~~~~~
unexelf.c:406:41: note: in definition of macro 'fatal'
  406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
      |                                         ^
; ================ Link C object files
(system "ar rc libscm.a sc2.o ramap.o record.o gsubr.o ioext.o edline.o rgx.o socket.o posix.o unix.o crs.o dynl.o x.o differ.o continue.o scm.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o unexelf.o gmalloc.o")
(system "ranlib libscm.a")
makeinfo --html --no-split scm.texi
makeinfo --html --no-split Xlibscm.texi
cp XlibScm.html Xlibscm.html
cp ChangeLog changelog
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   dh_auto_test
	make -j42 check "TESTSUITEFLAGS=-j42 --verbose" VERBOSE=1
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
./scm -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \
-e '(or (null? errs) (quit 1))' < /dev/null
SECTION(2 1)
SECTION(3 4)
 #<primitive-procedure boolean?>
    #<primitive-procedure char?>
       #<primitive-procedure null?>
          #<primitive-procedure number?>
             #<primitive-procedure pair?>
                #<primitive-procedure procedure?>
                   #<primitive-procedure string?>
                      #<primitive-procedure symbol?>
                         #<primitive-procedure vector?>
(#t #f #f #f #f #f #f #f #f)#t
(#t #f #f #f #f #f #f #f #f)#f
(#f #t #f #f #f #f #f #f #f)#\a
(#f #f #t #f #f #f #f #f #f)()
(#f #f #f #t #f #f #f #f #f)9739
(#f #f #f #f #t #f #f #f #f)(test)
(#f #f #f #f #f #t #f #f #f)#<CLOSURE record-error "r4rstest.scm": (e) (set! errs (cons (list cur-section e) errs))>
(#f #f #f #f #f #f #t #f #f)"test"
(#f #f #f #f #f #f #t #f #f)""
(#f #f #f #f #f #f #f #t #f)test
(#f #f #f #f #f #f #f #f #t)#()
(#f #f #f #f #f #f #f #f #t)#(a b c)
SECTION(4 1 2)
(quote (quote a))  ==> (quote a)
(quote (quote a))  ==> (quote a)
SECTION(4 1 3)
(#<primitive-procedure *> 3 4)  ==> 12
SECTION(4 1 4)
(#<CLOSURE <anon> "r4rstest.scm": (x) (+ x x)> 4)  ==> 8
(#<CLOSURE reverse-subtract "r4rstest.scm": (x y) (- y x)> 7 10)  ==> 3
(#<CLOSURE <anon> "r4rstest.scm": (y) (+ x y)> 6)  ==> 10
(#<CLOSURE <anon> "r4rstest.scm": x x> 3 4 5 6)  ==> (3 4 5 6)
(#<CLOSURE <anon> "r4rstest.scm": (x y . z) z> 3 4 5 6)  ==> (5 6)
SECTION(4 1 5)
(if yes)  ==> yes
(if no)  ==> no
(if 1)  ==> 1
SECTION(4 1 6)
(define 3)  ==> 3
(set! 5)  ==> 5
SECTION(4 2 1)
(cond greater)  ==> greater
(cond equal)  ==> equal
(cond 2)  ==> 2
(case composite)  ==> composite
(case consonant)  ==> consonant
(and #t)  ==> #t
(and #f)  ==> #f
(and (f g))  ==> (f g)
(and #t)  ==> #t
(or #t)  ==> #t
(or #t)  ==> #t
(or #f)  ==> #f
(or #f)  ==> #f
(or (b c))  ==> (b c)
SECTION(4 2 2)
(let 6)  ==> 6
(let 35)  ==> 35
(let* 70)  ==> 70
(letrec #t)  ==> #t
(let 5)  ==> 5
(let 34)  ==> 34
(let 6)  ==> 6
(let 34)  ==> 34
(let 34)  ==> 34
(let* 7)  ==> 7
(let* 34)  ==> 34
(let* 8)  ==> 8
(let* 34)  ==> 34
(letrec 9)  ==> 9
(letrec 34)  ==> 34
(letrec 10)  ==> 10
(letrec 34)  ==> 34
SECTION(4 2 3)
(begin 6)  ==> 6
SECTION(4 2 4)
(do #(0 1 2 3 4))  ==> #(0 1 2 3 4)
(do 25)  ==> 25
(do 25)  ==> 25
(let 1)  ==> 1
(let ((6 1 3) (-5 -2)))  ==> ((6 1 3) (-5 -2))
(let -1)  ==> -1
SECTION(4 2 6)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (list a (quote a)))  ==> (list a (quote a))
(quasiquote (a 3 4 5 6 b))  ==> (a 3 4 5 6 b)
(quasiquote ((foo 7) . cons))  ==> ((foo 7) . cons)
(quasiquote #(10 5 2 4 3 8))  ==> #(10 5 2 4 3 8)
(quasiquote 5)  ==> 5
(quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f))  ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)
(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e))  ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (quasiquote (list (unquote (+ 1 2)) 4)))  ==> (quasiquote (list (unquote (+ 1 2)) 4))
SECTION(5 2 1)
(tprint #t)  ==> #t
(define 6)  ==> 6
(define 1)  ==> 1
(define 9)  ==> 9
(define 9)  ==> 9
(define 10)  ==> 10
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6)  ==> (3 6)
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6)  ==> 9
SECTION(5 2 2)
(define 45)  ==> 45
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5))  x)>)  ==> 5
(define 34)  ==> 34
(#<CLOSURE foo "r4rstest.scm": (x) ((lambda () (define x 5) x)) x> 88)  ==> 88
(#<CLOSURE foo "r4rstest.scm": (x) (#@let ()  (#@define ((x 5))  #@x)) #@x> 4)  ==> 4
(define 34)  ==> 34
(internal-define 99)  ==> 99
(internal-define 77)  ==> 77
SECTION(6 1)
(#<primitive-procedure not> #t)  ==> #f
(#<primitive-procedure not> 3)  ==> #f
(#<primitive-procedure not> (3))  ==> #f
(#<primitive-procedure not> #f)  ==> #t
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> ())  ==> #f
(#<primitive-procedure not> nil)  ==> #f
SECTION(6 2)
(#<primitive-procedure eqv?> a a)  ==> #t
(#<primitive-procedure eqv?> a b)  ==> #f
(#<primitive-procedure eqv?> 2 2)  ==> #t
(#<primitive-procedure eqv?> () ())  ==> #t
(#<primitive-procedure eqv?> 10000 10000)  ==> #t
(#<primitive-procedure eqv?> (1 . 2) (1 . 2))  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () 1> #<CLOSURE <anon> "r4rstest.scm": () 2>)  ==> #f
(#<primitive-procedure eqv?> #f nil)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE p "r4rstest.scm": (x) x> #<CLOSURE p "r4rstest.scm": (x) x>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #f
(#<primitive-procedure eqv?> #<CLOSURE f "r4rstest.scm": () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE g "r4rstest.scm": () (if (eqv? f g) (quote g) (quote both))>)  ==> #f
(#<primitive-procedure eq?> a a)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #f
(#<primitive-procedure eq?> () ())  ==> #t
(#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure eq?> (a) (a))  ==> #t
(#<primitive-procedure eq?> #() #())  ==> #t
(#<primitive-procedure eq?> #<CLOSURE x "r4rstest.scm": (x) x> #<CLOSURE x "r4rstest.scm": (x) x>)  ==> #t
(#<primitive-procedure equal?> a a)  ==> #t
(#<primitive-procedure equal?> (a) (a))  ==> #t
(#<primitive-procedure equal?> (a (b) c) (a (b) c))  ==> #t
(#<primitive-procedure equal?> "abc" "abc")  ==> #t
(#<primitive-procedure equal?> 2 2)  ==> #t
(#<primitive-procedure equal?> #(a a a a a) #(a a a a a))  ==> #t
SECTION(6 3)
(dot (a b c d e))  ==> (a b c d e)
(#<primitive-procedure list?> (a b c))  ==> #t
(set-cdr! (a . 4))  ==> (a . 4)
(#<primitive-procedure eqv?> (a . 4) (a . 4))  ==> #t
(dot (a b c . d))  ==> (a b c . d)
(#<primitive-procedure list?> (a . 4))  ==> #f
(list? #f)  ==> #f
(#<primitive-procedure cons> a ())  ==> (a)
(#<primitive-procedure cons> (a) (b c d))  ==> ((a) b c d)
(#<primitive-procedure cons> "a" (b c))  ==> ("a" b c)
(#<primitive-procedure cons> a 3)  ==> (a . 3)
(#<primitive-procedure cons> (a b) c)  ==> ((a b) . c)
(#<primitive-procedure car> (a b c))  ==> a
(#<primitive-procedure car> ((a) b c d))  ==> (a)
(#<primitive-procedure car> (1 . 2))  ==> 1
(#<primitive-procedure cdr> ((a) b c d))  ==> (b c d)
(#<primitive-procedure cdr> (1 . 2))  ==> 2
(#<primitive-procedure list> a 7 c)  ==> (a 7 c)
(#<primitive-procedure list>)  ==> ()
(#<primitive-procedure length> (a b c))  ==> 3
(#<primitive-procedure length> (a (b) (c d e)))  ==> 3
(#<primitive-procedure length> ())  ==> 0
(#<primitive-procedure append> (x) (y))  ==> (x y)
(#<primitive-procedure append> (a) (b c d))  ==> (a b c d)
(#<primitive-procedure append> (a (b)) ((c)))  ==> (a (b) (c))
(#<primitive-procedure append>)  ==> ()
(#<primitive-procedure append> (a b) (c . d))  ==> (a b c . d)
(#<primitive-procedure append> () a)  ==> a
(#<primitive-procedure reverse> (a b c))  ==> (c b a)
(#<primitive-procedure reverse> (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
(#<primitive-procedure list-ref> (a b c d) 2)  ==> c
(#<primitive-procedure memq> a (a b c))  ==> (a b c)
(#<primitive-procedure memq> b (a b c))  ==> (b c)
(#<primitive-procedure memq> a (b c d))  ==> #f
(#<primitive-procedure memq> (a) (b (a) c))  ==> #f
(#<primitive-procedure member> (a) (b (a) c))  ==> ((a) c)
(#<primitive-procedure memv> 101 (100 101 102))  ==> (101 102)
(#<primitive-procedure assq> a ((a 1) (b 2) (c 3)))  ==> (a 1)
(#<primitive-procedure assq> b ((a 1) (b 2) (c 3)))  ==> (b 2)
(#<primitive-procedure assq> d ((a 1) (b 2) (c 3)))  ==> #f
(#<primitive-procedure assq> (a) (((a)) ((b)) ((c))))  ==> #f
(#<primitive-procedure assoc> (a) (((a)) ((b)) ((c))))  ==> ((a))
(#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
SECTION(6 4)
(#<primitive-procedure symbol?> a)  ==> #t
(standard-case #t)  ==> #t
(standard-case #t)  ==> #t
(#<primitive-procedure symbol->string> flying-fish)  ==> "flying-fish"
(#<primitive-procedure symbol->string> martin)  ==> "martin"
(#<primitive-procedure symbol->string> \Malvina)  ==> "Malvina"
(standard-case #t)  ==> #t
(string-set! "cb")  ==> "cb"
(#<primitive-procedure symbol->string> ab)  ==> "ab"
(#<primitive-procedure string->symbol> "ab")  ==> ab
(#<primitive-procedure eq?> mississippi mississippi)  ==> #t
(string->symbol #f)  ==> #f
(#<primitive-procedure string->symbol> "jollywog")  ==> jollywog
SECTION(6 5 5)
(#<primitive-procedure number?> 3)  ==> #t
(#<primitive-procedure complex?> 3)  ==> #t
(#<primitive-procedure real?> 3)  ==> #t
(#<primitive-procedure rational?> 3)  ==> #t
(#<primitive-procedure integer?> 3)  ==> #t
(#<primitive-procedure exact?> 3)  ==> #t
(#<primitive-procedure inexact?> 3)  ==> #f
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (cond ((and (exact? z2) (not (and (zero? z1) (negative? z2)))) (integer-expt z1 z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (else (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 0)  ==> 1
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 1)  ==> 0
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 256)  ==> 0
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 256)  ==> 1
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 255)  ==> -1
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 -256)  ==> 1
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 -255)  ==> -1
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 256 0)  ==> 1
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -256 0)  ==> 1
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 256 1)  ==> 256
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -256 1)  ==> -256
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 2 3)  ==> 8
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -2 3)  ==> -8
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 3 2)  ==> 9
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -3 2)  ==> 9
(#<primitive-procedure => 22 22 22)  ==> #t
(#<primitive-procedure => 22 22)  ==> #t
(#<primitive-procedure => 34 34 35)  ==> #f
(#<primitive-procedure => 34 35)  ==> #f
(#<primitive-procedure >> 3 -6246)  ==> #t
(#<primitive-procedure >> 9 9 -2424)  ==> #f
(#<primitive-procedure >=> 3 -4 -6246)  ==> #t
(#<primitive-procedure >=> 9 9)  ==> #t
(#<primitive-procedure >=> 8 9)  ==> #f
(#<primitive-procedure <> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <> -1 2 3 4 4 5 6 7)  ==> #f
(#<primitive-procedure <=> -1 2 3 4 5 6 7 8)  ==> #t
(#<primitive-procedure <=> -1 2 3 4 4 5 6 7)  ==> #t
(#<primitive-procedure <> 1 3 2)  ==> #f
(#<primitive-procedure >=> 1 3 2)  ==> #f
(#<primitive-procedure zero?> 0)  ==> #t
(#<primitive-procedure zero?> 1)  ==> #f
(#<primitive-procedure zero?> -1)  ==> #f
(#<primitive-procedure zero?> -100)  ==> #f
(#<primitive-procedure positive?> 4)  ==> #t
(#<primitive-procedure positive?> -4)  ==> #f
(#<primitive-procedure positive?> 0)  ==> #f
(#<primitive-procedure negative?> 4)  ==> #f
(#<primitive-procedure negative?> -4)  ==> #t
(#<primitive-procedure negative?> 0)  ==> #f
(#<primitive-procedure odd?> 3)  ==> #t
(#<primitive-procedure odd?> 2)  ==> #f
(#<primitive-procedure odd?> -4)  ==> #f
(#<primitive-procedure odd?> -1)  ==> #t
(#<primitive-procedure even?> 3)  ==> #f
(#<primitive-procedure even?> 2)  ==> #t
(#<primitive-procedure even?> -4)  ==> #t
(#<primitive-procedure even?> -1)  ==> #f
(#<primitive-procedure max> 34 5 7 38 6)  ==> 38
(#<primitive-procedure min> 3 5 5 330 4 -24)  ==> -24
(#<primitive-procedure +> 3 4)  ==> 7
(#<primitive-procedure +> 3)  ==> 3
(#<primitive-procedure +>)  ==> 0
(#<primitive-procedure *> 4)  ==> 4
(#<primitive-procedure *>)  ==> 1
(#<primitive-procedure /> 1)  ==> 1
(#<primitive-procedure /> -1)  ==> -1
(#<primitive-procedure /> 6 3)  ==> 2
(#<primitive-procedure /> 6 -2)  ==> -3
(#<primitive-procedure /> -6 2)  ==> -3
(#<primitive-procedure /> -6 -2)  ==> 3
(#<primitive-procedure -> 3 4)  ==> -1
(#<primitive-procedure -> 3)  ==> -3
(#<primitive-procedure abs> -7)  ==> 7
(#<primitive-procedure abs> 7)  ==> 7
(#<primitive-procedure abs> 0)  ==> 0
(#<primitive-procedure quotient> 35 7)  ==> 5
(#<primitive-procedure quotient> -35 7)  ==> -5
(#<primitive-procedure quotient> 35 -7)  ==> -5
(#<primitive-procedure quotient> -35 -7)  ==> 5
(#<primitive-procedure modulo> 13 4)  ==> 1
(#<primitive-procedure remainder> 13 4)  ==> 1
(#<primitive-procedure modulo> -13 4)  ==> 3
(#<primitive-procedure remainder> -13 4)  ==> -1
(#<primitive-procedure modulo> 13 -4)  ==> -3
(#<primitive-procedure remainder> 13 -4)  ==> 1
(#<primitive-procedure modulo> -13 -4)  ==> -1
(#<primitive-procedure remainder> -13 -4)  ==> -1
(#<primitive-procedure modulo> 0 86400)  ==> 0
(#<primitive-procedure modulo> 0 -86400)  ==> 0
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9)  ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9)  ==> #t
(#<primitive-procedure gcd> 0 4)  ==> 4
(#<primitive-procedure gcd> -4 0)  ==> 4
(#<primitive-procedure gcd> 32 -36)  ==> 4
(#<primitive-procedure gcd>)  ==> 0
(#<primitive-procedure lcm> 32 -36)  ==> 288
(#<primitive-procedure lcm>)  ==> 1
SECTION(6 5 5)
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (string->number str)))  (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "+1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0-0/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "1/0-1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0+1/0i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#e")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#")  ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i0/0")  ==> #t
(#<primitive-procedure number?> 0.-1.i)  ==> #t
(#<primitive-procedure number?> 0.+1.i)  ==> #t
(#<primitive-procedure number?> 2.+1.i)  ==> #t
SECTION(6 5 9)
(#<primitive-procedure number->string> 0)  ==> "0"
(#<primitive-procedure number->string> 100)  ==> "100"
(#<primitive-procedure number->string> 256 16)  ==> "100"
(#<primitive-procedure string->number> "100")  ==> 100
(#<primitive-procedure string->number> "100" 16)  ==> 256
(#<primitive-procedure string->number> "")  ==> #f
(#<primitive-procedure string->number> ".")  ==> #f
(#<primitive-procedure string->number> "d")  ==> #f
(#<primitive-procedure string->number> "D")  ==> #f
(#<primitive-procedure string->number> "i")  ==> #f
(#<primitive-procedure string->number> "I")  ==> #f
(#<primitive-procedure string->number> "3i")  ==> #f
(#<primitive-procedure string->number> "3I")  ==> #f
(#<primitive-procedure string->number> "33i")  ==> #f
(#<primitive-procedure string->number> "33I")  ==> #f
(#<primitive-procedure string->number> "3.3i")  ==> #f
(#<primitive-procedure string->number> "3.3I")  ==> #f
(#<primitive-procedure string->number> "-")  ==> #f
(#<primitive-procedure string->number> "+")  ==> #f
(string->number #t)  ==> #t
(string->number #t)  ==> #t
SECTION(6 6)
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure eqv?> #\space #\space)  ==> #t
(#<primitive-procedure char?> #\a)  ==> #t
(#<primitive-procedure char?> #\()  ==> #t
(#<primitive-procedure char?> #\space)  ==> #t
(#<primitive-procedure char?> #\nl)  ==> #t
(#<primitive-procedure char=?> #\A #\B)  ==> #f
(#<primitive-procedure char=?> #\a #\b)  ==> #f
(#<primitive-procedure char=?> #\9 #\0)  ==> #f
(#<primitive-procedure char=?> #\A #\A)  ==> #t
(#<primitive-procedure char<?> #\A #\B)  ==> #t
(#<primitive-procedure char<?> #\a #\b)  ==> #t
(#<primitive-procedure char<?> #\9 #\0)  ==> #f
(#<primitive-procedure char<?> #\A #\A)  ==> #f
(#<primitive-procedure char>?> #\A #\B)  ==> #f
(#<primitive-procedure char>?> #\a #\b)  ==> #f
(#<primitive-procedure char>?> #\9 #\0)  ==> #t
(#<primitive-procedure char>?> #\A #\A)  ==> #f
(#<primitive-procedure char<=?> #\A #\B)  ==> #t
(#<primitive-procedure char<=?> #\a #\b)  ==> #t
(#<primitive-procedure char<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char<=?> #\A #\A)  ==> #t
(#<primitive-procedure char>=?> #\A #\B)  ==> #f
(#<primitive-procedure char>=?> #\a #\b)  ==> #f
(#<primitive-procedure char>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci<?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>?> #\A #\A)  ==> #f
(#<primitive-procedure char-ci>?> #\A #\a)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\B)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\a #\b)  ==> #t
(#<primitive-procedure char-ci<=?> #\9 #\0)  ==> #f
(#<primitive-procedure char-ci<=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci<=?> #\A #\a)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\B)  ==> #f
(#<primitive-procedure char-ci>=?> #\A #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\a #\b)  ==> #f
(#<primitive-procedure char-ci>=?> #\9 #\0)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\A)  ==> #t
(#<primitive-procedure char-ci>=?> #\A #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\a)  ==> #t
(#<primitive-procedure char-alphabetic?> #\A)  ==> #t
(#<primitive-procedure char-alphabetic?> #\z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\Z)  ==> #t
(#<primitive-procedure char-alphabetic?> #\0)  ==> #f
(#<primitive-procedure char-alphabetic?> #\9)  ==> #f
(#<primitive-procedure char-alphabetic?> #\space)  ==> #f
(#<primitive-procedure char-alphabetic?> #\;)  ==> #f
(#<primitive-procedure char-numeric?> #\a)  ==> #f
(#<primitive-procedure char-numeric?> #\A)  ==> #f
(#<primitive-procedure char-numeric?> #\z)  ==> #f
(#<primitive-procedure char-numeric?> #\Z)  ==> #f
(#<primitive-procedure char-numeric?> #\0)  ==> #t
(#<primitive-procedure char-numeric?> #\9)  ==> #t
(#<primitive-procedure char-numeric?> #\space)  ==> #f
(#<primitive-procedure char-numeric?> #\;)  ==> #f
(#<primitive-procedure char-whitespace?> #\a)  ==> #f
(#<primitive-procedure char-whitespace?> #\A)  ==> #f
(#<primitive-procedure char-whitespace?> #\z)  ==> #f
(#<primitive-procedure char-whitespace?> #\Z)  ==> #f
(#<primitive-procedure char-whitespace?> #\0)  ==> #f
(#<primitive-procedure char-whitespace?> #\9)  ==> #f
(#<primitive-procedure char-whitespace?> #\space)  ==> #t
(#<primitive-procedure char-whitespace?> #\;)  ==> #f
(#<primitive-procedure char-upper-case?> #\0)  ==> #f
(#<primitive-procedure char-upper-case?> #\9)  ==> #f
(#<primitive-procedure char-upper-case?> #\space)  ==> #f
(#<primitive-procedure char-upper-case?> #\;)  ==> #f
(#<primitive-procedure char-lower-case?> #\0)  ==> #f
(#<primitive-procedure char-lower-case?> #\9)  ==> #f
(#<primitive-procedure char-lower-case?> #\space)  ==> #f
(#<primitive-procedure char-lower-case?> #\;)  ==> #f
(#<primitive-procedure integer->char> 46)  ==> #\.
(#<primitive-procedure integer->char> 65)  ==> #\A
(#<primitive-procedure integer->char> 97)  ==> #\a
(#<primitive-procedure char-upcase> #\A)  ==> #\A
(#<primitive-procedure char-upcase> #\a)  ==> #\A
(#<primitive-procedure char-downcase> #\A)  ==> #\a
(#<primitive-procedure char-downcase> #\a)  ==> #\a
SECTION(6 7)
(#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.")  ==> #t
(string-set! "?**")  ==> "?**"
(#<primitive-procedure string> #\a #\b #\c)  ==> "abc"
(#<primitive-procedure string>)  ==> ""
(#<primitive-procedure string-length> "abc")  ==> 3
(#<primitive-procedure string-ref> "abc" 0)  ==> #\a
(#<primitive-procedure string-ref> "abc" 2)  ==> #\c
(#<primitive-procedure string-length> "")  ==> 0
(#<primitive-procedure substring> "ab" 0 0)  ==> ""
(#<primitive-procedure substring> "ab" 1 1)  ==> ""
(#<primitive-procedure substring> "ab" 2 2)  ==> ""
(#<primitive-procedure substring> "ab" 0 1)  ==> "a"
(#<primitive-procedure substring> "ab" 1 2)  ==> "b"
(#<primitive-procedure substring> "ab" 0 2)  ==> "ab"
(#<primitive-procedure string-append> "foo" "bar")  ==> "foobar"
(#<primitive-procedure string-append> "foo")  ==> "foo"
(#<primitive-procedure string-append> "foo" "")  ==> "foo"
(#<primitive-procedure string-append> "" "foo")  ==> "foo"
(#<primitive-procedure string-append>)  ==> ""
(#<primitive-procedure make-string> 0)  ==> ""
(#<primitive-procedure string=?> "" "")  ==> #t
(#<primitive-procedure string<?> "" "")  ==> #f
(#<primitive-procedure string>?> "" "")  ==> #f
(#<primitive-procedure string<=?> "" "")  ==> #t
(#<primitive-procedure string>=?> "" "")  ==> #t
(#<primitive-procedure string-ci=?> "" "")  ==> #t
(#<primitive-procedure string-ci<?> "" "")  ==> #f
(#<primitive-procedure string-ci>?> "" "")  ==> #f
(#<primitive-procedure string-ci<=?> "" "")  ==> #t
(#<primitive-procedure string-ci>=?> "" "")  ==> #t
(#<primitive-procedure string=?> "A" "B")  ==> #f
(#<primitive-procedure string=?> "a" "b")  ==> #f
(#<primitive-procedure string=?> "9" "0")  ==> #f
(#<primitive-procedure string=?> "A" "A")  ==> #t
(#<primitive-procedure string<?> "A" "B")  ==> #t
(#<primitive-procedure string<?> "a" "b")  ==> #t
(#<primitive-procedure string<?> "9" "0")  ==> #f
(#<primitive-procedure string<?> "A" "A")  ==> #f
(#<primitive-procedure string>?> "A" "B")  ==> #f
(#<primitive-procedure string>?> "a" "b")  ==> #f
(#<primitive-procedure string>?> "9" "0")  ==> #t
(#<primitive-procedure string>?> "A" "A")  ==> #f
(#<primitive-procedure string<=?> "A" "B")  ==> #t
(#<primitive-procedure string<=?> "a" "b")  ==> #t
(#<primitive-procedure string<=?> "9" "0")  ==> #f
(#<primitive-procedure string<=?> "A" "A")  ==> #t
(#<primitive-procedure string>=?> "A" "B")  ==> #f
(#<primitive-procedure string>=?> "a" "b")  ==> #f
(#<primitive-procedure string>=?> "9" "0")  ==> #t
(#<primitive-procedure string>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci<?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<?> "A" "A")  ==> #f
(#<primitive-procedure string-ci<?> "A" "a")  ==> #f
(#<primitive-procedure string-ci>?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>?> "A" "A")  ==> #f
(#<primitive-procedure string-ci>?> "A" "a")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "B")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "a" "b")  ==> #t
(#<primitive-procedure string-ci<=?> "9" "0")  ==> #f
(#<primitive-procedure string-ci<=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci<=?> "A" "a")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "B")  ==> #f
(#<primitive-procedure string-ci>=?> "A" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "a" "b")  ==> #f
(#<primitive-procedure string-ci>=?> "9" "0")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "A")  ==> #t
(#<primitive-procedure string-ci>=?> "A" "a")  ==> #t
SECTION(6 8)
(#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna"))  ==> #t
(#<primitive-procedure vector> a b c)  ==> #(a b c)
(#<primitive-procedure vector>)  ==> #()
(#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna"))  ==> 3
(#<primitive-procedure vector-length> #())  ==> 0
(#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5)  ==> 8
(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
(#<primitive-procedure make-vector> 2 hi)  ==> #(hi hi)
(#<primitive-procedure make-vector> 0)  ==> #()
(#<primitive-procedure make-vector> 0 a)  ==> #()
SECTION(6 9)
(#<primitive-procedure procedure?> #<primitive-procedure car>)  ==> #t
(#<primitive-procedure procedure?> car)  ==> #f
(#<primitive-procedure procedure?> #<CLOSURE <anon> "r4rstest.scm": (x) (* x x)>)  ==> #t
(#<primitive-procedure procedure?> (lambda (x) (* x x)))  ==> #f
(#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>)  ==> #t
(#<primitive-procedure procedure?> #<primitive-procedure />)  ==> #t
(#<primitive-procedure apply> #<primitive-procedure +> (3 4))  ==> 7
(#<primitive-procedure apply> #<CLOSURE <anon> "r4rstest.scm": (a b) (+ a b)> (3 4))  ==> 7
(#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4))  ==> 17
(#<primitive-procedure apply> #<primitive-procedure list> ())  ==> ()
(#<CLOSURE <anon> "r4rstest.scm": args (f (apply g args))> 12 75)  ==> 30
(#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h)))  ==> (b e h)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6))  ==> (5 7 9)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure *> (1 2 3))  ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure -> (1 2 3))  ==> (-1 -2 -3)
(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
(#<primitive-procedure call-with-current-continuation> #<CLOSURE <anon> "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>)  ==> -3
(#<CLOSURE list-length "r4rstest.scm": (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4))  ==> 4
(#<CLOSURE list-length "r4rstest.scm": (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f))))))  (#@r #@obj))))> (a b . c))  ==> #f
(#<primitive-procedure map> #<primitive-procedure cadr> ())  ==> ()
SECTION(6 10 1)
(#<primitive-procedure input-port?> #<input-port 0>)  ==> #t
(#<primitive-procedure output-port?> #<output-port 1 L1 C1>)  ==> #t
(#<CLOSURE call-with-input-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>)  ==> #t
(#<primitive-procedure input-port?> #<input-port "r4rstest.scm">)  ==> #t
SECTION(6 10 2)
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "r4rstest.scm">)  ==> #\;
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define cur-section (quote ()))
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">)  ==> #\(
(#<primitive-procedure read> #<input-port "r4rstest.scm">)  ==> (define errs (quote ()))
SECTION(6 10 3)
(#<CLOSURE call-with-output-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (call-with-open-ports (open-output-file str) proc)> "tmp1" #<CLOSURE <anon> "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>)  ==> #t
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp1">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure output-port?> #<output-port "tmp2">)  ==> #t
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp2">)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))

Passed all tests

;testing inexact numbers; 
SECTION(6 2)
(#<primitive-procedure eqv?> 1 1.)  ==> #f
(#<primitive-procedure eqv?> 0 0.)  ==> #f
(#<primitive-procedure eqv?> 0. 0.)  ==> #t
(#<primitive-procedure eqv?> 0. 0.)  ==> #t
(#<primitive-procedure equal?> 0. 0.)  ==> #t
(#<primitive-procedure eqv?> 0. 0.)  ==> #t
(#<primitive-procedure equal?> 0. 0.)  ==> #t
SECTION(6 5 5)
(magnitude 1.)  ==> 1.
(#<primitive-procedure /> 1.e300+1.e300i 4.e300+4.e300i)  ==> 2.5e-1
(magnitude 1.)  ==> 1.
(#<primitive-procedure /> 1.e-300+1.e-300i 4.e-300+4.e-300i)  ==> 2.5e-1
(#<primitive-procedure => 0. 0.)  ==> #t
(#<primitive-procedure => 0. 0.)  ==> #t
(#<primitive-procedure => 0. 0.)  ==> #t
(#<primitive-procedure inexact?> 3.9)  ==> #t
(max #t)  ==> #t
(#<primitive-procedure max> 3.9 4)  ==> 4.
(#<primitive-procedure exact->inexact> 4)  ==> 4.
(#<primitive-procedure exact->inexact> 4.)  ==> 4.
(#<primitive-procedure inexact->exact> 4)  ==> 4
(#<primitive-procedure inexact->exact> 4.)  ==> 4
(#<primitive-procedure round> -4.5)  ==> -4.
(#<primitive-procedure round> -3.5)  ==> -4.
(#<primitive-procedure round> -3.9)  ==> -4.
(#<primitive-procedure round> 0.)  ==> 0.
(#<primitive-procedure round> 2.5e-1)  ==> 0.
(#<primitive-procedure round> 8.e-1)  ==> 1.
(#<primitive-procedure round> 3.5)  ==> 4.
(#<primitive-procedure round> 4.5)  ==> 4.
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0. 1.)  ==> 0.
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 0. 1)  ==> 0.
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 0 1.)  ==> 0.
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -25 0.)  ==> 1.
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -3.25 0.)  ==> 1.
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -3.25 0)  ==> 1.
(#<CLOSURE atan "/build/reproducible-path/scm-5f4/Transcen.scm": (z . y) (#@if (#@null? #@y) (#@if (#@real? #@z) (#@real-atan #@z) (/ (log (/ (- 0.+1.i z) (+ 0.+1.i z))) 0.+2.i)) ($atan2 z (car y)))> 1 1)  ==> 7.853981633974483e-1
(#<CLOSURE call-with-output-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp3" #<CLOSURE <anon> "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>)  ==> #t
(#<primitive-procedure read> #<input-port "tmp3">)  ==> (define foo (quote (2.5e-1 -3.25)))
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(#<primitive-procedure eof-object?> #<eof>)  ==> #t
(input-port? #t)  ==> #t
(#<primitive-procedure read-char> #<input-port "tmp3">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp3">)  ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp3">)  ==> #\;
(#<primitive-procedure read> #<input-port "tmp3">)  ==> (2.5e-1 -3.25)
(#<primitive-procedure read> #<input-port "tmp3">)  ==> (define foo (quote (2.5e-1 -3.25)))
(pentium-fdiv-bug #t)  ==> #t

Passed all tests
SECTION(6 5 6)
(float-print-test #t)  ==> #t
(mult-float-print-test #t)  ==> #t
(mult-float-print-test #t)  ==> #t
(mult-float-print-test #t)  ==> #t
(mult-float-print-test #t)  ==> #t
(mult-float-print-test #t)  ==> #t
(float-rw-range-test #t)  ==> #t
(float-powers-of-2-test #t)  ==> #t

;testing bignums; 
(#<primitive-procedure *> 65536 65536)  ==> 4294967296
(arithmetic #t)  ==> #t
(#<primitive-procedure *> 65536 1048576)  ==> 68719476736
(#<primitive-procedure *> 4294967296 4294967296)  ==> 18446744073709551616
(arithmetic #t)  ==> #t
(#<primitive-procedure *> 4294967296 68719476736)  ==> 295147905179352825856
(#<CLOSURE test-ash "r4rstest.scm": (base . shifts) (let recur ((x base) (sum 0) (shifts shifts)) (if (null? shifts) (ash x (- sum)) (recur (ash x (car shifts)) (+ sum (car shifts)) (cdr shifts))))> 1 640)  ==> 1
(#<CLOSURE test-ash "r4rstest.scm": (base . shifts) ((#@let ((recur (#@lambda (x sum shifts) (#@if (#@null? #@shifts) (#@ash #@x (#@- #@sum)) (#@recur (#@ash #@x (#@car #@shifts)) (#@+ #@sum (#@car #@shifts)) (#@cdr #@shifts))))))  #@recur) #@base 0 #@shifts)> -1 640)  ==> -1
(#<CLOSURE test-ash "r4rstest.scm": (base . shifts) ((#@let ((recur (#@lambda (x sum shifts) (#@if (#@null? #@shifts) (#@ash #@x (#@- #@sum)) (#@recur (#@ash #@x (#@car #@shifts)) (#@+ #@sum (#@car #@shifts)) (#@cdr #@shifts))))))  #@recur) #@base 0 #@shifts)> 43981 8 19 1 1 200 -64)  ==> 43981
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 16)  ==> 65536
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 20)  ==> 1048576
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 36)  ==> 68719476736
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -2 36)  ==> 68719476736
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 39)  ==> 549755813888
(#<CLOSURE <anon> "r4rstest.scm": (b p) (- (expt b p))> -2 39)  ==> 549755813888
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 64)  ==> 18446744073709551616
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -2 64)  ==> 18446744073709551616
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 68)  ==> 295147905179352825856
(#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -2 68)  ==> 295147905179352825856
SECTION(6 5 7)
(#<primitive-procedure modulo> 33333333333333333333 3)  ==> 0
(#<primitive-procedure modulo> 33333333333333333333 -3)  ==> 0
(#<primitive-procedure remainder> 33333333333333333333 3)  ==> 0
(#<primitive-procedure remainder> 33333333333333333333 -3)  ==> 0
(#<primitive-procedure modulo> 33333333333333333332 3)  ==> 2
(#<primitive-procedure modulo> 33333333333333333332 -3)  ==> -1
(#<primitive-procedure remainder> 33333333333333333332 3)  ==> 2
(#<primitive-procedure remainder> 33333333333333333332 -3)  ==> 2
(#<primitive-procedure modulo> -33333333333333333332 3)  ==> 1
(#<primitive-procedure modulo> -33333333333333333332 -3)  ==> -2
(#<primitive-procedure remainder> -33333333333333333332 3)  ==> -2
(#<primitive-procedure remainder> -33333333333333333332 -3)  ==> -2
(#<primitive-procedure modulo> 3 33333333333333333333)  ==> 3
(#<primitive-procedure modulo> -3 33333333333333333333)  ==> 33333333333333333330
(#<primitive-procedure remainder> 3 33333333333333333333)  ==> 3
(#<primitive-procedure remainder> -3 33333333333333333333)  ==> -3
(#<primitive-procedure modulo> 3 -33333333333333333333)  ==> -33333333333333333330
(#<primitive-procedure modulo> -3 -33333333333333333333)  ==> -3
(#<primitive-procedure remainder> 3 -33333333333333333333)  ==> 3
(#<primitive-procedure remainder> -3 -33333333333333333333)  ==> -3
(#<primitive-procedure modulo> -2177452800 86400)  ==> 0
(#<primitive-procedure modulo> 2177452800 -86400)  ==> 0
(#<primitive-procedure modulo> 2177452800 86400)  ==> 0
(#<primitive-procedure modulo> -2177452800 -86400)  ==> 0
(#<primitive-procedure modulo> 0 -2177452800)  ==> 0
(remainder #t)  ==> #t
(remainder #t)  ==> #t
(#<primitive-procedure gcd> 33333333333333333333 11111111111111111111)  ==> 11111111111111111111
(#<primitive-procedure gcd> 33333333333333333332 11111111111111111111)  ==> 1
(#<primitive-procedure gcd> 33333333333333333330 11111111111111111111)  ==> 1
(#<primitive-procedure gcd> 33333333333333333333 33333333333333333330)  ==> 3
(#<primitive-procedure lcm> 33333333333333333333 11111111111111111111)  ==> 33333333333333333333
(#<primitive-procedure lcm> -3 11111111111111111111)  ==> 33333333333333333333
SECTION(6 5 8)
(#<primitive-procedure number->string> 281474976710655325431)  ==> "281474976710655325431"

Passed all tests

;testing bignum-inexact comparisons;
SECTION(6 5 5)
(#<primitive-procedure => 1427247692705959881058285969449495136382746625 1.42724769270596e45 1427247692705959881058285969449495136382746623)  ==> #f
(#<primitive-procedure => 1.42724769270596e45 1427247692705959881058285969449495136382746625 1427247692705959881058285969449495136382746623)  ==> #f
(#<primitive-procedure <> 1427247692705959881058285969449495136382746623 1.42724769270596e45 1427247692705959881058285969449495136382746625)  ==> #t

To fully test continuations, Scheme 4, and DELAY/FORCE do:
(test-cont) (test-sc4) (test-delay)

;testing scheme 4 functions; 
SECTION(6 7)
(#<primitive-procedure string->list> "P l")  ==> (#\P #\space #\l)
(#<primitive-procedure string->list> "")  ==> ()
(#<primitive-procedure list->string> (#\1 #\\ #\"))  ==> "1\\\""
(#<primitive-procedure list->string> ())  ==> ""
SECTION(6 8)
(#<primitive-procedure vector->list> #(dah dah didah))  ==> (dah dah didah)
(#<primitive-procedure vector->list> #())  ==> ()
(#<primitive-procedure list->vector> (dididit dah))  ==> #(dididit dah)
(#<primitive-procedure list->vector> ())  ==> #()
SECTION(6 10 4)
(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))

Passed all tests

;testing continuations; 
SECTION(6 9)
(#<CLOSURE leaf-eq? "r4rstest.scm": (x y) (let* ((eot (list (quote eot))) (xf (next-leaf-generator x eot)) (yf (next-leaf-generator y eot))) (letrec ((loop (lambda (x y) (cond ((not (eq? x y)) #f) ((eq? eot x) #t) (else (loop (xf) (yf))))))) (loop (xf) (yf))))> (a (b (c))) ((a) b c))  ==> #t
(#<CLOSURE leaf-eq? "r4rstest.scm": (x y) (#@let* ((eot (#@list (#@quote eot))) (xf (#@next-leaf-generator #@x #@eot)) (yf (#@next-leaf-generator #@y #@eot)))  (#@letrec ((loop (#@lambda (x y) (#@cond ((#@not (#@eq? #@x #@y)) #f) ((#@eq? #@eot #@x) #t) (#t (#@loop (#@xf) (#@yf)))))))  (#@loop (#@xf) (#@yf))))> (a (b (c))) ((a) b c d))  ==> #f

Passed all tests

;testing DELAY and FORCE; 
SECTION(6 9)
(delay 3)  ==> 3
(delay (3 3))  ==> (3 3)
(delay 2)  ==> 2
(#<primitive-procedure force> #<promise #<CLOSURE test-delay "r4rstest.scm": () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>)  ==> 6
(#<primitive-procedure force> #<promise 6>)  ==> 6
(force 3)  ==> 3

Passed all tests
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   create-stamp debian/debhelper-build-stamp
   dh_prep
   debian/rules override_dh_auto_install
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
# Make .scm scheme library scripts non-executable...
chmod a-x *.scm *.c
# except compile.scm
chmod a+x compile.scm
# skip; files listed explicitly
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   dh_install
   dh_installdocs
   dh_installchangelogs
   dh_installexamples
   dh_installman
   dh_installinfo
   dh_perl
   dh_link
   dh_strip_nondeterminism
   dh_compress
   dh_fixperms
   dh_missing
   dh_dwz -a
   debian/rules override_dh_strip
make[1]: Entering directory '/build/reproducible-path/scm-5f4'
dh_strip --no-automatic-dbgsym
make[1]: Leaving directory '/build/reproducible-path/scm-5f4'
   dh_makeshlibs -a
   dh_shlibdeps -a
dpkg-shlibdeps: warning: diversions involved - output may be incorrect
 diversion by libreadline8t64 from: /lib/x86_64-linux-gnu/libreadline.so.8
dpkg-shlibdeps: warning: diversions involved - output may be incorrect
 diversion by libreadline8t64 to: /lib/x86_64-linux-gnu/libreadline.so.8.usr-is-merged
   dh_installdeb
   dh_gencontrol
   dh_md5sums
   dh_builddeb
dpkg-deb: building package 'scm' in '../scm_5f4-3_amd64.deb'.
dpkg-deb: building package 'libscm-dev' in '../libscm-dev_5f4-3_amd64.deb'.
 dpkg-genbuildinfo --build=binary -O../scm_5f4-3_amd64.buildinfo
 dpkg-genchanges --build=binary -O../scm_5f4-3_amd64.changes
dpkg-genchanges: info: binary-only upload (no source code included)
 dpkg-source --after-build .
dpkg-buildpackage: info: binary-only upload (no source included)
dpkg-genchanges: info: not including original source code in upload
I: copying local configuration
I: unmounting dev/ptmx filesystem
I: unmounting dev/pts filesystem
I: unmounting dev/shm filesystem
I: unmounting proc filesystem
I: unmounting sys filesystem
I: cleaning the build env 
I: removing directory /srv/workspace/pbuilder/3341747 and its subdirectories
I: Current time: Mon Mar 16 21:23:39 -12 2026
I: pbuilder-time-stamp: 1773739419
Wed Feb 12 03:00:41 UTC 2025  I: 1st build successful. Starting 2nd build on remote node ionos11-amd64.debian.net.
Wed Feb 12 03:00:41 UTC 2025  I: Preparing to do remote build '2' on ionos11-amd64.debian.net.
Wed Feb 12 03:03:56 UTC 2025  I: Deleting $TMPDIR on ionos11-amd64.debian.net.
Wed Feb 12 03:03:56 UTC 2025  I: scm_5f4-3_amd64.changes:
Format: 1.8
Date: Mon, 13 Jan 2025 00:16:35 +0100
Source: scm
Binary: libscm-dev scm
Architecture: amd64
Version: 5f4-3
Distribution: unstable
Urgency: medium
Maintainer: Debian Scheme Dream Team <debian-scheme@lists.debian.org>
Changed-By: Gwen Weinholt <weinholt@debian.org>
Description:
 libscm-dev - Embeddable library for SCM Scheme language interpreter
 scm        - Scheme language interpreter
Changes:
 scm (5f4-3) unstable; urgency=medium
 .
   * define-scm-llong-for-64-bit-archs.patch: Fix builds on riscv64 as well
Checksums-Sha1:
 05122b4673018fe9a722937638d401c556768a19 291296 libscm-dev_5f4-3_amd64.deb
 153294bf5cc30bd223e1e793b8ddc0c4916f42e1 5770 scm_5f4-3_amd64.buildinfo
 1f9a6ad1d676df3b4d36276971d0c1205f6d1913 652128 scm_5f4-3_amd64.deb
Checksums-Sha256:
 2cb1eab61e6552404defcc128fc393b8a995317be5451148d239d8f6e331da8a 291296 libscm-dev_5f4-3_amd64.deb
 bf1a939fc8d060508bd0861e398d43ebd58bc16bf21c6b74fa4f98ebaf979935 5770 scm_5f4-3_amd64.buildinfo
 ed8c1acb9b38d29cc1a513c87b897aeaae88c0234e5ba096bcce1b2b589ecf65 652128 scm_5f4-3_amd64.deb
Files:
 6f00c7b2d328233420b27099e31909a7 291296 libdevel optional libscm-dev_5f4-3_amd64.deb
 0329f579bf169f6fcd7b86db98390544 5770 interpreters optional scm_5f4-3_amd64.buildinfo
 e996f83c240d825ffb7b710905878123 652128 interpreters optional scm_5f4-3_amd64.deb
Wed Feb 12 03:03:57 UTC 2025  I: diffoscope 288 will be used to compare the two builds:
Running as unit: rb-diffoscope-amd64_8-47835.service
# Profiling output for: /usr/bin/diffoscope --timeout 7200 --html /srv/reproducible-results/rbuild-debian/r-b-build.YavhaPO7/scm_5f4-3.diffoscope.html --text /srv/reproducible-results/rbuild-debian/r-b-build.YavhaPO7/scm_5f4-3.diffoscope.txt --json /srv/reproducible-results/rbuild-debian/r-b-build.YavhaPO7/scm_5f4-3.diffoscope.json --profile=- /srv/reproducible-results/rbuild-debian/r-b-build.YavhaPO7/b1/scm_5f4-3_amd64.changes /srv/reproducible-results/rbuild-debian/r-b-build.YavhaPO7/b2/scm_5f4-3_amd64.changes

## command (total time: 0.000s)
       0.000s      1 call     cmp (internal)

## has_same_content_as (total time: 0.000s)
       0.000s      1 call     diffoscope.comparators.binary.FilesystemFile

## main (total time: 0.003s)
       0.003s      2 calls    outputs
       0.000s      1 call     cleanup
Finished with result: success
Main processes terminated with: code=exited/status=0
Service runtime: 215ms
CPU time consumed: 216ms
Wed Feb 12 03:03:58 UTC 2025  I: diffoscope 288 found no differences in the changes files, and a .buildinfo file also exists.
Wed Feb 12 03:03:58 UTC 2025  I: scm from unstable built successfully and reproducibly on amd64.
Wed Feb 12 03:03:59 UTC 2025  I: Submitting .buildinfo files to external archives:
Wed Feb 12 03:03:59 UTC 2025  I: Submitting 8.0K	b1/scm_5f4-3_amd64.buildinfo.asc
Wed Feb 12 03:04:08 UTC 2025  I: Submitting 8.0K	b2/scm_5f4-3_amd64.buildinfo.asc
Wed Feb 12 03:04:18 UTC 2025  I: Done submitting .buildinfo files to http://buildinfo.debian.net/api/submit.
Wed Feb 12 03:04:18 UTC 2025  I: Done submitting .buildinfo files.
Wed Feb 12 03:04:18 UTC 2025  I: Removing signed scm_5f4-3_amd64.buildinfo.asc files:
removed './b1/scm_5f4-3_amd64.buildinfo.asc'
removed './b2/scm_5f4-3_amd64.buildinfo.asc'