[package - main-i386-default][lang/scm] Failed for scm-5f3_1 in build

From: <pkg-fallout_at_FreeBSD.org>
Date: Sat, 17 Feb 2024 13:14:21 UTC
You are receiving this mail as a port that you maintain
is failing to build on the FreeBSD package build server.
Please investigate the failure and submit a PR to fix
build.

Maintainer:     mi@aldan.algebra.com
Log URL:        https://pkg-status.freebsd.org/beefy17/data/main-i386-default/p3242afc60564_s73ff7384e0/logs/scm-5f3_1.log
Build URL:      https://pkg-status.freebsd.org/beefy17/build.html?mastername=main-i386-default&build=p3242afc60564_s73ff7384e0
Log:

=>> Building lang/scm
build started at Sat Feb 17 13:13:54 UTC 2024
port directory: /usr/ports/lang/scm
package name: scm-5f3_1
building for: FreeBSD main-i386-default-job-03 15.0-CURRENT FreeBSD 15.0-CURRENT 1500014 i386
maintained by: mi@aldan.algebra.com
Makefile datestamp: -rw-r--r--  1 root wheel 3245 Jan 23 01:01 /usr/ports/lang/scm/Makefile
Ports top last git commit: 3242afc6056
Ports top unclean checkout: no
Port dir last git commit: 85b8338a268
Port dir unclean checkout: no
Poudriere version: poudriere-git-3.4.1
Host OSVERSION: 1500006
Jail OSVERSION: 1500014
Job Id: 03




!!! Jail is newer than host. (Jail: 1500014, Host: 1500006) !!!
!!! This is not supported. !!!
!!! Host kernel must be same or newer than jail. !!!
!!! Expect build failures. !!!



---Begin Environment---
SHELL=/bin/sh
BLOCKSIZE=K
MAIL=/var/mail/root
MM_CHARSET=UTF-8
LANG=C.UTF-8
OSVERSION=1500014
STATUS=1
HOME=/root
PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin
MAKE_OBJDIR_CHECK_WRITABLE=0
UNAME_m=i386
UNAME_p=i386
UNAME_r=15.0-CURRENT
LOCALBASE=/usr/local
UNAME_v=FreeBSD 15.0-CURRENT 1500014
USER=root
POUDRIERE_NAME=poudriere-git
LIBEXECPREFIX=/usr/local/libexec/poudriere
POUDRIERE_VERSION=3.4.1
MASTERMNT=/usr/local/poudriere/data/.m/main-i386-default/ref
LC_COLLATE=C
POUDRIERE_BUILD_TYPE=bulk
PACKAGE_BUILDING=yes
SAVED_TERM=
OUTPUT_REDIRECTED_STDERR=4
OUTPUT_REDIRECTED=1
PWD=/usr/local/poudriere/data/.m/main-i386-default/03/.p
OUTPUT_REDIRECTED_STDOUT=3
P_PORTS_FEATURES=FLAVORS SUBPACKAGES SELECTED_OPTIONS
MASTERNAME=main-i386-default
SCRIPTPREFIX=/usr/local/share/poudriere
SCRIPTNAME=bulk.sh
OLDPWD=/usr/local/poudriere/data/.m/main-i386-default/ref/.p/pool
POUDRIERE_PKGNAME=poudriere-git-3.4.1
SCRIPTPATH=/usr/local/share/poudriere/bulk.sh
POUDRIEREPATH=/usr/local/bin/poudriere
---End Environment---

---Begin Poudriere Port Flags/Env---
PORT_FLAGS=
PKGENV=
FLAVOR=
MAKE_ARGS=
---End Poudriere Port Flags/Env---

---Begin OPTIONS List---
===> The following configuration options are available for scm-5f3_1:
     X11=off: X11 (graphics) support
===> Use 'make config' to modify these settings
---End OPTIONS List---

--MAINTAINER--
mi@aldan.algebra.com
--End MAINTAINER--

--CONFIGURE_ARGS--

--End CONFIGURE_ARGS--

--CONFIGURE_ENV--
--prefix=/usr/local XDG_DATA_HOME=/wrkdirs/usr/ports/lang/scm/work  XDG_CONFIG_HOME=/wrkdirs/usr/ports/lang/scm/work  XDG_CACHE_HOME=/wrkdirs/usr/ports/lang/scm/work/.cache  HOME=/wrkdirs/usr/ports/lang/scm/work TMPDIR="/tmp" PATH=/wrkdirs/usr/ports/lang/scm/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/lang/scm/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig SHELL=/bin/sh CONFIG_SHELL=/bin/sh
--End CONFIGURE_ENV--

--MAKE_ENV--
XDG_DATA_HOME=/wrkdirs/usr/ports/lang/scm/work  XDG_CONFIG_HOME=/wrkdirs/usr/ports/lang/scm/work  XDG_CACHE_HOME=/wrkdirs/usr/ports/lang/scm/work/.cache  HOME=/wrkdirs/usr/ports/lang/scm/work TMPDIR="/tmp" PATH=/wrkdirs/usr/ports/lang/scm/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/lang/scm/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig MK_DEBUG_FILES=no MK_KERNEL_SYMBOLS=no SHELL=/bin/sh NO_LINT=YES PREFIX=/usr/local  LOCALBASE=/usr/local  CC="cc" CFLAGS="-pipe  -O0 -Wall -Wwrite-strings -Wmissing-declarations -Wredundant-decls -Wcast-qual -Wno-unused-label -Wno-uninitialized -fstack-protector-strong -fno-strict-aliasing -O"  CPP="cpp" CPPFLAGS="-I/usr/local/include"  LDFLAGS=" -L/usr/local/lib -fstack-protector-strong " LIBS=""  CXX="c++" CXXFLAGS="-pipe -O0 -Wall -Wwrite-strings -Wmissing-declarations -Wredundant-decls -Wcast-qual -Wno-unused-label -Wn
o-uninitialized -fstack-protector-strong -fno-strict-aliasing -O  " BSD_INSTALL_PROGRAM="install  -s -m 555"  BSD_INSTALL_LIB="install  -s -m 0644"  BSD_INSTALL_SCRIPT="install  -m 555"  BSD_INSTALL_DATA="install  -m 0644"  BSD_INSTALL_MAN="install  -m 444"
--End MAKE_ENV--

--PLIST_SUB--
VERSION="5f3" X11="@comment " NO_X11="" OSREL=15.0 PREFIX=%D LOCALBASE=/usr/local  RESETPREFIX=/usr/local LIB32DIR=lib DOCSDIR="share/doc/scm"  EXAMPLESDIR="share/examples/scm"  DATADIR="share/scm"  WWWDIR="www/scm"  ETCDIR="etc/scm"
--End PLIST_SUB--

--SUB_LIST--
 X11="@comment " NO_X11="" PREFIX=/usr/local LOCALBASE=/usr/local  DATADIR=/usr/local/share/scm DOCSDIR=/usr/local/share/doc/scm EXAMPLESDIR=/usr/local/share/examples/scm  WWWDIR=/usr/local/www/scm ETCDIR=/usr/local/etc/scm
--End SUB_LIST--

---Begin make.conf---
USE_PACKAGE_DEPENDS=yes
BATCH=yes
WRKDIRPREFIX=/wrkdirs
PORTSDIR=/usr/ports
PACKAGES=/packages
DISTDIR=/distfiles
PACKAGE_BUILDING=yes
PACKAGE_BUILDING_FLAVORS=yes
MACHINE=i386
MACHINE_ARCH=i386
ARCH=${MACHINE_ARCH}
####  ####
# XXX: We really need this but cannot use it while 'make checksum' does not
# try the next mirror on checksum failure.  It currently retries the same
# failed mirror and then fails rather then trying another.  It *does*
# try the next if the size is mismatched though.
#MASTER_SITE_FREEBSD=yes
# Build ALLOW_MAKE_JOBS_PACKAGES with 3 jobs
MAKE_JOBS_NUMBER=3
#### Misc Poudriere ####
.include "/etc/make.conf.ports_env"
GID=0
UID=0
---End make.conf---
--Resource limits--
cpu time               (seconds, -t)  unlimited
file size           (512-blocks, -f)  unlimited
data seg size           (kbytes, -d)  524288
stack size              (kbytes, -s)  65536
core file size      (512-blocks, -c)  unlimited
max memory size         (kbytes, -m)  unlimited
locked memory           (kbytes, -l)  unlimited
max user processes              (-u)  89999
open files                      (-n)  8192
virtual mem size        (kbytes, -v)  unlimited
swap limit              (kbytes, -w)  unlimited
socket buffer size       (bytes, -b)  unlimited
pseudo-terminals                (-p)  unlimited
kqueues                         (-k)  unlimited
umtx shared locks               (-o)  unlimited
--End resource limits--
=======================<phase: check-sanity   >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  License LGPL3+ accepted by the user
===========================================================================
=======================<phase: pkg-depends    >============================
===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0
===>   scm-5f3_1 depends on file: /usr/local/sbin/pkg - not found
===>   Installing existing package /packages/All/pkg-1.20.9_1.pkg
[main-i386-default-job-03] Installing pkg-1.20.9_1...
[main-i386-default-job-03] Extracting pkg-1.20.9_1: .......... done
===>   scm-5f3_1 depends on file: /usr/local/sbin/pkg - found
===>   Returning to build of scm-5f3_1
===========================================================================
=======================<phase: fetch-depends  >============================
===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0
===========================================================================
=======================<phase: fetch          >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  License LGPL3+ accepted by the user
===> Fetching all distfiles required by scm-5f3_1 for building
===========================================================================
=======================<phase: checksum       >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  License LGPL3+ accepted by the user
===> Fetching all distfiles required by scm-5f3_1 for building
=> SHA256 Checksum OK for scm-5f3.tar.gz.
=> SHA256 Checksum OK for slib-psd1-3.tar.gz.
===========================================================================
=======================<phase: extract-depends>============================
===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0
===========================================================================
=======================<phase: extract        >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  License LGPL3+ accepted by the user
===> Fetching all distfiles required by scm-5f3_1 for building
===>  Extracting for scm-5f3_1
=> SHA256 Checksum OK for scm-5f3.tar.gz.
=> SHA256 Checksum OK for slib-psd1-3.tar.gz.
/bin/ln -s /usr/local/share/slib /wrkdirs/usr/ports/lang/scm/work
===========================================================================
=======================<phase: patch-depends  >============================
===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0
===========================================================================
=======================<phase: patch          >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  Patching for scm-5f3_1
===>  Applying FreeBSD patches for scm-5f3_1 from /usr/ports/lang/scm/files
/usr/bin/touch /wrkdirs/usr/ports/lang/scm/work/scm-5f3/scm.core
===========================================================================
=======================<phase: build-depends  >============================
===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0
===>   scm-5f3_1 depends on file: /usr/local/share/slib/require.scm - not found
===>   Installing existing package /packages/All/slib-3c1.pkg
[main-i386-default-job-03] Installing slib-3c1...
[main-i386-default-job-03] `-- Installing indexinfo-0.3.1...
<snip>
(#<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) (#@let ((r #f))  (#@set! #@r (#@lambda (obj) (#@let-syntax ((6 (#<id cond-aux:20ada540> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (obj) 2 <anon> (r) 2 <anon> (return) 2 <anon> (obj) 2 list-length 1 "r4rstest.scm") (#@if (#@null? #@obj) (#@begin 0) (#@if (#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1) (#<id cond-aux:20ad81f8> (else (return #f)))))))) (#@let ()  (#@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 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Init5f3.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 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Init5f3.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)  ==> 250.e-3
(magnitude 1.)  ==> 1.
(#<primitive-procedure /> 1.e-300+1.e-300i 4.e-300+4.e-300i)  ==> 250.e-3
(#<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> 250.e-3)  ==> 0.
(#<primitive-procedure round> 800.e-3)  ==> 1.
(#<primitive-procedure round> 3.5)  ==> 4.
(#<primitive-procedure round> 4.5)  ==> 4.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:20a8c490> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (z1 z2) 2 expt 1 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm") (#@if (#@let ((#<id x:20a88d50> (#@exact? #@0+1)))  (#@if #@#<id x:20a88d50> (#@let ((#<id x:20a88888> (#@not (#@let ((#<id x:20a883c8> (#@zero? #@#<id x:20a88d50>)))  (#@if #@#<id x:20a883c8> (#@let ((#<id x:20a87f20> (#@negative? #@2+1)))  (#@if #@#<id x:20a87f20> #<id x:20a87f20> #f)) #f)))))  (#@if #@#<id x:20a88888> #@#<id x:2
0a88888> #f)) #f)) (#@integer-expt #@z1 #@z2) (#<id cond-aux:20a89038> ((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. 1.)  ==> 0.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:20a8c490> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (z1 z2) 2 expt 1 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm") (#@if (#@let ((#<id x:20a88d50> (#@exact? #@0+1)))  (#@if #@#<id x:20a88d50> (#@let ((#<id x:20a88888> (#@not (#@let ((#<id x:20a883c8> (#@zero? #@#<id x:20a88d50>)))  (#@if #@#<id x:20a883c8> (#@let ((#<id x:20a87f20> (#@negative? #@2+1)))  (#@if #@#<id x:20a87f20> #<id x:20a87f20> #f)) #f)))))  (#@if #@#<id x:20a88888> #@#<id x:2
0a88888> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:20ac2528> (#@real? #@0+1)))  (#@if #@#<id x:20ac2528> (#@let ((#<id x:20ac1f10> (#@real? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1f10> (#@let ((#<id x:20ac1950> (#@positive? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1950> #<id x:20ac1950> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> 0. 1)  ==> 0.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:20a8c490> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (z1 z2) 2 expt 1 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm") (#@if (#@let ((#<id x:20a88d50> (#@exact? #@0+1)))  (#@if #@#<id x:20a88d50> (#@let ((#<id x:20a88888> (#@not (#@let ((#<id x:20a883c8> (#@zero? #@#<id x:20a88d50>)))  (#@if #@#<id x:20a883c8> (#@let ((#<id x:20a87f20> (#@negative? #@2+1)))  (#@if #@#<id x:20a87f20> #<id x:20a87f20> #f)) #f)))))  (#@if #@#<id x:20a88888> #@#<id x:2
0a88888> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:20ac2528> (#@real? #@0+1)))  (#@if #@#<id x:20ac2528> (#@let ((#<id x:20ac1f10> (#@real? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1f10> (#@let ((#<id x:20ac1950> (#@positive? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1950> #<id x:20ac1950> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> 0 1.)  ==> 0.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:20a8c490> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (z1 z2) 2 expt 1 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm") (#@if (#@let ((#<id x:20a88d50> (#@exact? #@0+1)))  (#@if #@#<id x:20a88d50> (#@let ((#<id x:20a88888> (#@not (#@let ((#<id x:20a883c8> (#@zero? #@#<id x:20a88d50>)))  (#@if #@#<id x:20a883c8> (#@let ((#<id x:20a87f20> (#@negative? #@2+1)))  (#@if #@#<id x:20a87f20> #<id x:20a87f20> #f)) #f)))))  (#@if #@#<id x:20a88888> #@#<id x:2
0a88888> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:20ac2528> (#@real? #@0+1)))  (#@if #@#<id x:20ac2528> (#@let ((#<id x:20ac1f10> (#@real? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1f10> (#@let ((#<id x:20ac1950> (#@positive? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1950> #<id x:20ac1950> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -25 0.)  ==> 1.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:20a8c490> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (z1 z2) 2 expt 1 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm") (#@if (#@let ((#<id x:20a88d50> (#@exact? #@0+1)))  (#@if #@#<id x:20a88d50> (#@let ((#<id x:20a88888> (#@not (#@let ((#<id x:20a883c8> (#@zero? #@#<id x:20a88d50>)))  (#@if #@#<id x:20a883c8> (#@let ((#<id x:20a87f20> (#@negative? #@2+1)))  (#@if #@#<id x:20a87f20> #<id x:20a87f20> #f)) #f)))))  (#@if #@#<id x:20a88888> #@#<id x:2
0a88888> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:20ac2528> (#@real? #@0+1)))  (#@if #@#<id x:20ac2528> (#@let ((#<id x:20ac1f10> (#@real? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1f10> (#@let ((#<id x:20ac1950> (#@positive? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1950> #<id x:20ac1950> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -3.25 0.)  ==> 1.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:20a8c490> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (z1 z2) 2 expt 1 "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Transcen.scm") (#@if (#@let ((#<id x:20a88d50> (#@exact? #@0+1)))  (#@if #@#<id x:20a88d50> (#@let ((#<id x:20a88888> (#@not (#@let ((#<id x:20a883c8> (#@zero? #@#<id x:20a88d50>)))  (#@if #@#<id x:20a883c8> (#@let ((#<id x:20a87f20> (#@negative? #@2+1)))  (#@if #@#<id x:20a87f20> #<id x:20a87f20> #f)) #f)))))  (#@if #@#<id x:20a88888> #@#<id x:2
0a88888> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:20ac2528> (#@real? #@0+1)))  (#@if #@#<id x:20ac2528> (#@let ((#<id x:20ac1f10> (#@real? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1f10> (#@let ((#<id x:20ac1950> (#@positive? #@#<id x:20ac2528>)))  (#@if #@#<id x:20ac1950> #<id x:20ac1950> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -3.25 0)  ==> 1.
(#<CLOSURE atan "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/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)  ==> 785.3981633974483e-3
(#<CLOSURE call-with-output-file "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Init5f3.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 (250.e-3 -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">)  ==> (250.e-3 -3.25)
(#<primitive-procedure read> #<input-port "tmp3">)  ==> (define foo (quote (250.e-3 -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
(#<CLOSURE float-rw-range-test "r4rstest.scm": () (#@define ((success #t))  (#<id let-syntax:20abb970> ((#<id do-step:20abb958> (#<id syntax-rules:20abb940> () ((#<id do-step:20abb958> #<id ?n:20abb910>) #<id ?n:20abb910>) ((#<id do-step:20abb958> #<id ?n:20abb910> #<id ?s:20abb8b0>) #<id ?s:20abb8b0>))) (#<id do-result:20abb880> (#<id syntax-rules:20abb940> () ((#<id do-result:20abb880>) (#<id if:20abb838> #f #f)) ((#<id do-result:20abb880> . #<id ?r:20abb808>) (#<id begin:20abb7f0> . #<id ?r:20abb808>))))) (#<id let:20abb7c0> #<id loop:20abb7a8> ((cnt -323)) (#<id if:20abb838> (> cnt 308) (#<id do-result:20abb880> success) (#<id begin:20abb7f0> (let* ((estr (string-append "1.e" (number->string cnt))) (num (string->number estr)) (str (number->string num))) (cond ((or (>= (string-length str) 10) (not (equal? (string->number str) num))) (set! success #f) (for-each write (list estr num str (string->number str)))))) (#<id loop:20abb7a8> (#<id do-step:20abb958> cnt (+ 1 cnt)))))
)))>)  ==> #t
(#<CLOSURE float-powers-of-2-test "r4rstest.scm": () (#@define ((all-ok? #t))  (#<id let-syntax:20ab9988> ((#<id do-step:20ab9970> (#<id syntax-rules:20ab9958> () ((#<id do-step:20ab9970> #<id ?n:20ab9928>) #<id ?n:20ab9928>) ((#<id do-step:20ab9970> #<id ?n:20ab9928> #<id ?s:20ab98c8>) #<id ?s:20ab98c8>))) (#<id do-result:20ab9898> (#<id syntax-rules:20ab9958> () ((#<id do-result:20ab9898>) (#<id if:20ab9850> #f #f)) ((#<id do-result:20ab9898> . #<id ?r:20ab9820>) (#<id begin:20ab9808> . #<id ?r:20ab9820>))))) (#<id let:20ab97d8> #<id loop:20ab97c0> ((xx (expt f2.0 1000)) (p 1000)) (#<id if:20ab9850> (zero? xx) (#<id do-result:20ab9898> all-ok?) (#<id begin:20ab9808> (let ((cnv (string->number (number->string xx)))) (cond ((not (= xx cnv)) (display "Number readback failure for ") (display (quasiquote (expt (unquote f2.0) (unquote p)))) (newline) (display xx) (newline) (set! all-ok? #f)))) (#<id loop:20ab97c0> (#<id do-step:20ab9970> xx (/ xx 2)) (#<id do-step:20ab9970> p (+
 p -1))))))))>)  ==> 
;ERROR: "r4rstest.scm": integer-length: Wrong type in arg1 (0 . 0)
; in expression: (#@string->number (#@number->string #@xx))
; in scope:
;   (xx p)  procedure <anon>
;   (#<id loop:20ab97c0> xx p)  procedure <anon>
;   (6 (#<id do-result:20ab9898> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>) (#<id do-step:20ab9970> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm-5f3/Macro.scm": (x-use env-use) (#@let* ((x-use (#@remove-line-numbers! #@x-use)))  ((#@let ((loop (#@lambda (rules) (#@cond ((#@null? #@rules) (error "macro use does not match definition:" x-use)) ((#@match (#@car #@rules) #@x-use #@env-use) #@=> (#@lambda (vars) (#@substitute-in-template #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>))
;   (6)
;   (all-ok? . #@define)
;   ()  procedure float-powers-of-2-test
;   (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test float-powers-of-2-test . #@define)
;   (f0.0 f0.5 f1.0 f2.0)  procedure <anon>
;   ()  procedure test-inexact-printing
; defined by load: "r4rstest.scm"

;STACK TRACE
1; (#@let ((cnv (#@string->number (#@number->string #@cnv))))  (# ...
2; ((#@if (#@zero? #@xx) (#<id do-result:20ab9898> all-ok?) (#@be ...
3; (#@let ((res (#@if (#@procedure? #@0+1) (#@apply #@0+1 #@0-2)  ...
4; (#@let ((have-inexacts? (#@let ((#<id x:20ad08f0> (#@string->n ...
...

; program args: ("./scm" "-rmacro" "-fsyntest1.scm" "-fsyntest2.scm" "-fr4rstest.scm" "-e(test-sc4)(test-cont)(test-delay)" "-fsyntest1" "-e" "(or (null? errs) (quit 1))")
*** Error code 1

Stop.
make[4]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm-5f3
*** Error code 1

Stop.
make[3]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm-5f3
*** Error code 1

Stop.
make[2]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm-5f3
*** Error code 1

Stop.
make[1]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm-5f3
*** Error code 1

Stop.
make: stopped in /usr/ports/lang/scm