Skip site navigation (1)Skip section navigation (2)
Date:      Fri, 23 May 2014 09:43:16 GMT
From:      pkg-fallout-builder@FreeBSD.org
To:        pkg-fallout@FreeBSD.org
Subject:   [REL - head-i386-default][lang/scm] Failed for scm-5f1 in build
Message-ID:  <201405230943.s4N9hGOM070443@beefy1.isc.freebsd.org>

next in thread | raw e-mail | index | archive | help

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:     ports@FreeBSD.org
Last committer: bapt@FreeBSD.org
Ident:          $FreeBSD: head/lang/scm/Makefile 347773 2014-03-10 16:01:35Z bapt $
Log URL:        http://beefy1.isc.freebsd.org/bulk/head-i386-default/2014-05-23_08h33m07s/logs/scm-5f1.log
Build URL:      http://beefy1.isc.freebsd.org/bulk/head-i386-default/2014-05-23_08h33m07s
Log:

====>> Building lang/scm
build started at Fri May 23 09:42:29 UTC 2014
port directory: /usr/ports/lang/scm
building for: FreeBSD head-i386-default-job-22 11.0-CURRENT FreeBSD 11.0-CURRENT r264257 i386
maintained by: ports@FreeBSD.org
Makefile ident:      $FreeBSD: head/lang/scm/Makefile 347773 2014-03-10 16:01:35Z bapt $
Poudriere version: 3.1-pre
Host OSVERSION: 1100013
Jail OSVERSION: 1100018




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



---Begin Environment---
UNAME_m=i386
UNAME_p=i386
OSVERSION=1100018
UNAME_v=FreeBSD 11.0-CURRENT r264257
UNAME_r=11.0-CURRENT
BLOCKSIZE=K
MAIL=/var/mail/root
STATUS=1
SAVED_TERM=
MASTERMNT=/usr/local/poudriere/data/build/head-i386-default/ref
PKG_EXT=txz
tpid=2777
PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin:/root/bin
POUDRIERE_BUILD_TYPE=bulk
PKGNG=1
PKGNAME=scm-5f1
PKG_DELETE=/usr/local/sbin/pkg-static delete -y -f
PKG_ADD=/usr/local/sbin/pkg-static add
OLDPWD=/usr/local/poudriere/data/build/head-i386-default/ref/poudriere/rdeps
PWD=/usr/local/poudriere/data/build/head-i386-default/ref/poudriere/pool
MASTERNAME=head-i386-default
USER=root
HOME=/root
POUDRIERE_VERSION=3.1-pre
LOCALBASE=/usr/local
PACKAGE_BUILDING=yes
PKG_VERSION=/poudriere/pkg-static version
PKG_BIN=/usr/local/sbin/pkg-static
---End Environment---

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

--CONFIGURE_ARGS--

--End CONFIGURE_ARGS--

--CONFIGURE_ENV--
TMPDIR="/tmp" TMPDIR="/tmp" MAKE=gmake TMPDIR="/tmp" SHELL=/bin/sh CONFIG_SHELL=/bin/sh
--End CONFIGURE_ENV--

--MAKE_ENV--
TMPDIR="/tmp" TMPDIR="/tmp" TMPDIR="/tmp" SHELL=/bin/sh NO_LINT=YES ADDR2LINE="/usr/local/bin/addr2line" AR="/usr/local/bin/ar" AS="/usr/local/bin/as" CPPFILT="/usr/local/bin/c++filt" GPROF="/usr/local/bin/gprof" LD="/usr/local/bin/ld" NM="/usr/local/bin/nm" OBJCOPY="/usr/local/bin/objcopy" OBJDUMP="/usr/local/bin/objdump" RANLIB="/usr/local/bin/ranlib" READELF="/usr/local/bin/readelf" SIZE="/usr/local/bin/size" STRINGS="/usr/local/bin/strings" PREFIX=/usr/local  LOCALBASE=/usr/local  LIBDIR="/usr/lib"  CC="gcc47" CFLAGS="-O2 -pipe  -Wl,-rpath=/usr/local/lib/gcc47 -fno-strict-aliasing"  CPP="cpp47" CPPFLAGS=""  LDFLAGS=" -Wl,-rpath=/usr/local/lib/gcc47 -L/usr/local/lib/gcc47"  CXX="g++47" CXXFLAGS="-O2 -pipe -Wl,-rpath=/usr/local/lib/gcc47 -fno-strict-aliasing -Wl,-rpath=/usr/local/lib/gcc47"  MANPREFIX="/usr/local" BSD_INSTALL_PROGRAM="install  -s -o root -g wheel -m 555"  BSD_INSTALL_LIB="install  -s -o root -g wheel -m 444"  BSD_INSTALL_SCRIPT="install  -o root -g wheel -m 555"  B
 SD_INSTALL_DATA="install  -o root -g wheel -m 444"  BSD_INSTALL_MAN="install  -o root -g wheel -m 444"
--End MAKE_ENV--

--PLIST_SUB--
VERSION="5f1"
X11="@comment
"
OSREL=11.0
PREFIX=%D
LOCALBASE=/usr/local
PORTDOCS=""
PORTEXAMPLES=""
PORTDATA=""
LIB32DIR=lib
DOCSDIR="share/doc/scm"
EXAMPLESDIR="share/examples/scm"
DATADIR="share/scm"
WWWDIR="www/scm"
ETCDIR="etc/scm"
--End PLIST_SUB--

--SUB_LIST--
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---
ARCH=i386
MACHINE=i386
MACHINE_ARCH=i386
USE_PACKAGE_DEPENDS=yes
BATCH=yes
WRKDIRPREFIX=/wrkdirs
PORTSDIR=/usr/ports
PACKAGES=/packages
DISTDIR=/distfiles
#### /usr/local/etc/poudriere.d/make.conf ####
WITH_PKGNG=yes
NO_RESTRICTED=yes
DISABLE_MAKE_JOBS=poudriere
---End make.conf---
===>  Cleaning for scm-5f1
=======================<phase: check-sanity   >============================
===>  License LGPL21 accepted by the user
===========================================================================
=======================<phase: pkg-depends    >============================
===>   scm-5f1 depends on file: /usr/local/sbin/pkg - not found
===>    Verifying install for /usr/local/sbin/pkg in /usr/ports/ports-mgmt/pkg
===>   Installing existing package /packages/All/pkg-1.2.7_2.txz
Installing pkg-1.2.7_2... done
If you are upgrading from the old package format, first run:

  # pkg2ng
===>   Returning to build of scm-5f1
===========================================================================
=======================<phase: fetch-depends  >============================
===========================================================================
=======================<phase: fetch          >============================
===>  License LGPL21 accepted by the user
===> Fetching all distfiles required by scm-5f1 for building
===========================================================================
=======================<phase: checksum       >============================
===>  License LGPL21 accepted by the user
===> Fetching all distfiles required by scm-5f1 for building
=> SHA256 Checksum OK for scm-5f1.zip.
=> SHA256 Checksum OK for slib-3b4.zip.
=> SHA256 Checksum OK for slib-psd1-3.tar.gz.
===========================================================================
=======================<phase: extract-depends>============================
===========================================================================
=======================<phase: extract        >============================
===>  License LGPL21 accepted by the user
===> Fetching all distfiles required by scm-5f1 for building
===>  Extracting for scm-5f1
=> SHA256 Checksum OK for scm-5f1.zip.
=> SHA256 Checksum OK for slib-3b4.zip.
=> SHA256 Checksum OK for slib-psd1-3.tar.gz.
===========================================================================
=======================<phase: patch-depends  >============================
===========================================================================
=======================<phase: patch          >============================
===>  Patching for scm-5f1
===>  Applying FreeBSD patches for scm-5f1
===========================================================================
=======================<phase: build-depends  >============================
===>   scm-5f1 depends on executable: gmake - not found
===>    Verifying install for gmake in /usr/ports/devel/gmake
===>   Installing existing package /packages/All/gmake-3.82_1.txz
Installing gmake-3.82_1...Installing gettext-0.18.3.1_1... done
 done
===>   Returning to build of scm-5f1
===>   scm-5f1 depends on executable: gcc47 - not found
===>    Verifying install for gcc47 in /usr/ports/lang/gcc
===>   Installing existing package /packages/All/gcc-4.7.3_1.txz
Installing gcc-4.7.3_1...Installing binutils-2.24... done
Installing gcc-ecj-4.5... done
Installing gmp-5.1.3_2... done
Installing mpc-1.0.2...Installing mpfr-3.1.2_2... done
 done
 done
To ensure binaries built with this toolchain find appropriate versions
of the necessary run-time libraries, you may want to link using

  -Wl,-rpath=/usr/local/lib/gcc47

For ports leveraging USE_GCC, USES=compiler, or USES=fortran this happens
transparently.
===>   Returning to build of scm-5f1
===>   scm-5f1 depends on file: /usr/local/bin/as - found
===========================================================================
=======================<phase: lib-depends    >============================
===========================================================================
=======================<phase: configure      >============================
===>  Configuring for scm-5f1
===>   FreeBSD 10 autotools fix applied to /wrkdirs/usr/ports/lang/scm/work/scm/configure
===>   FreeBSD 10 autotools fix applied to /wrkdirs/usr/ports/lang/scm/work/slib/configure
===========================================================================
=======================<phase: build          >============================
===>  Building for scm-5f1
gmake[1]: Entering directory `/wrkdirs/usr/ports/lang/scm/work/scm'
Makefile:72: config.status: No such file or directory
./configure
#! /bin/cat
# Generated by configure for scm 5f1.
# This file (config.status) is included by the (scm) Makefile.

PACKAGE_NAME=scm
PACKAGE_TARNAME=scm
<snip>
(#<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.0)  ==> #f
(#<primitive-procedure eqv?> 0.0 0.0)  ==> #t
(#<primitive-procedure eqv?> 0.0 0.0)  ==> #t
(#<primitive-procedure equal?> 0.0 0.0)  ==> #t
(#<primitive-procedure eqv?> 0.0 0.0)  ==> #t
(#<primitive-procedure equal?> 0.0 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 0.0)  ==> #t
(#<primitive-procedure => 0.0 0.0)  ==> #t
(#<primitive-procedure => 0.0 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)  ==> 0.0
(#<primitive-procedure round> 250.e-3)  ==> 0.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/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:288ae220> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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/Transcen.scm") (#@if (#@let ((#<id x:288aa690> (#@exact? #@0+1)))  (#@if #@#<id x:288aa690> (#@let ((#<id x:288aa1a8> (#@not (#@let ((#<id x:288a9cf0> (#@zero? #@#<id x:288aa690>)))  (#@if #@#<id x:288a9cf0> (#@let ((#<id x:288a9828> (#@negative? #@2+1)))  (#@if #@#<id x:288a9828> #<id x:288a9828> #f)) #f)))))  (#@if #@#<id x:288aa1a8> #@#<id x:288aa1a8> #f)) #f)) (#
 @integer-expt #@z1 #@z2) (#<id cond-aux:288aa998> ((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.)  ==> 0.0
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:288ae220> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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/Transcen.scm") (#@if (#@let ((#<id x:288aa690> (#@exact? #@0+1)))  (#@if #@#<id x:288aa690> (#@let ((#<id x:288aa1a8> (#@not (#@let ((#<id x:288a9cf0> (#@zero? #@#<id x:288aa690>)))  (#@if #@#<id x:288a9cf0> (#@let ((#<id x:288a9828> (#@negative? #@2+1)))  (#@if #@#<id x:288a9828> #<id x:288a9828> #f)) #f)))))  (#@if #@#<id x:288aa1a8> #@#<id x:288aa1a8> #f)) #f)) (#
 @integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:288dfd30> (#@real? #@0+1)))  (#@if #@#<id x:288dfd30> (#@let ((#<id x:288df878> (#@real? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df878> (#@let ((#<id x:288df428> (#@positive? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df428> #<id x:288df428> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> 0.0 1)  ==> 0.0
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:288ae220> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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/Transcen.scm") (#@if (#@let ((#<id x:288aa690> (#@exact? #@0+1)))  (#@if #@#<id x:288aa690> (#@let ((#<id x:288aa1a8> (#@not (#@let ((#<id x:288a9cf0> (#@zero? #@#<id x:288aa690>)))  (#@if #@#<id x:288a9cf0> (#@let ((#<id x:288a9828> (#@negative? #@2+1)))  (#@if #@#<id x:288a9828> #<id x:288a9828> #f)) #f)))))  (#@if #@#<id x:288aa1a8> #@#<id x:288aa1a8> #f)) #f)) (#
 @integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:288dfd30> (#@real? #@0+1)))  (#@if #@#<id x:288dfd30> (#@let ((#<id x:288df878> (#@real? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df878> (#@let ((#<id x:288df428> (#@positive? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df428> #<id x:288df428> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> 0 1.)  ==> 0.0
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:288ae220> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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/Transcen.scm") (#@if (#@let ((#<id x:288aa690> (#@exact? #@0+1)))  (#@if #@#<id x:288aa690> (#@let ((#<id x:288aa1a8> (#@not (#@let ((#<id x:288a9cf0> (#@zero? #@#<id x:288aa690>)))  (#@if #@#<id x:288a9cf0> (#@let ((#<id x:288a9828> (#@negative? #@2+1)))  (#@if #@#<id x:288a9828> #<id x:288a9828> #f)) #f)))))  (#@if #@#<id x:288aa1a8> #@#<id x:288aa1a8> #f)) #f)) (#
 @integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:288dfd30> (#@real? #@0+1)))  (#@if #@#<id x:288dfd30> (#@let ((#<id x:288df878> (#@real? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df878> (#@let ((#<id x:288df428> (#@positive? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df428> #<id x:288df428> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -25 0.0)  ==> 1.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:288ae220> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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/Transcen.scm") (#@if (#@let ((#<id x:288aa690> (#@exact? #@0+1)))  (#@if #@#<id x:288aa690> (#@let ((#<id x:288aa1a8> (#@not (#@let ((#<id x:288a9cf0> (#@zero? #@#<id x:288aa690>)))  (#@if #@#<id x:288a9cf0> (#@let ((#<id x:288a9828> (#@negative? #@2+1)))  (#@if #@#<id x:288a9828> #<id x:288a9828> #f)) #f)))))  (#@if #@#<id x:288aa1a8> #@#<id x:288aa1a8> #f)) #f)) (#
 @integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:288dfd30> (#@real? #@0+1)))  (#@if #@#<id x:288dfd30> (#@let ((#<id x:288df878> (#@real? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df878> (#@let ((#<id x:288df428> (#@positive? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df428> #<id x:288df428> #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -3.25 0.0)  ==> 1.
(#<CLOSURE expt "/wrkdirs/usr/ports/lang/scm/work/scm/Transcen.scm": (z1 z2) (#@let-syntax ((6 (#<id cond-aux:288ae220> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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/Transcen.scm") (#@if (#@let ((#<id x:288aa690> (#@exact? #@0+1)))  (#@if #@#<id x:288aa690> (#@let ((#<id x:288aa1a8> (#@not (#@let ((#<id x:288a9cf0> (#@zero? #@#<id x:288aa690>)))  (#@if #@#<id x:288a9cf0> (#@let ((#<id x:288a9828> (#@negative? #@2+1)))  (#@if #@#<id x:288a9828> #<id x:288a9828> #f)) #f)))))  (#@if #@#<id x:288aa1a8> #@#<id x:288aa1a8> #f)) #f)) (#
 @integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:288dfd30> (#@real? #@0+1)))  (#@if #@#<id x:288dfd30> (#@let ((#<id x:288df878> (#@real? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df878> (#@let ((#<id x:288df428> (#@positive? #@#<id x:288dfd30>)))  (#@if #@#<id x:288df428> #<id x:288df428> #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/Transcen.scm": (z . y) (#@if (#@null? #@y) (#@if (#@real? #@z) (#@real-atan #@z) (/ (log (/ (- 0.0+1.i z) (+ 0.0+1.i z))) 0.0+2.i)) ($atan2 z (car y)))> 1 1)  ==> 785.3981633974483e-3
(#<CLOSURE call-with-output-file "/wrkdirs/usr/ports/lang/scm/work/scm/Init5f1.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:288d8f08> ((#<id do-step:288d8ef0> (#<id syntax-rules:288d8ed8> () ((#<id do-step:288d8ef0> #<id ?n:288d8ea8>) #<id ?n:288d8ea8>) ((#<id do-step:288d8ef0> #<id ?n:288d8ea8> #<id ?s:288d8e48>) #<id ?s:288d8e48>))) (#<id do-result:288d8e18> (#<id syntax-rules:288d8ed8> () ((#<id do-result:288d8e18>) (#<id if:288d8dd0> #f #f)) ((#<id do-result:288d8e18> . #<id ?r:288d8da0>) (#<id begin:288d8d88> . #<id ?r:288d8da0>))))) (#<id let:288d8d58> #<id loop:288d8d40> ((cnt -323)) (#<id if:288d8dd0> (> cnt 308) (#<id do-result:288d8e18> success) (#<id begin:288d8d88> (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:288d8d40> (#<id do-step:288d8ef0> cnt (+ 1 cnt))))))))>)  ==
 > "1.e-319"99.999e-321"99.999e-321"99.999e-321"1.e-318"999.999e-321"999.999e-321"999.999e-321"1.e-317"10.000002e-318"10.000002e-318"10.000002e-318"1.e-316"99.999998e-318"99.999998e-318"99.999998e-318"1.e-315"999.999998e-318"999.999998e-318"999.999998e-318"1.e-313"100.000000001e-315"100.000000001e-315"100.000000001e-315"1.e-312"999.999999998e-315"999.999999998e-315"999.999999998e-315"1.e-311"9.999999999999e-312"9.999999999999e-312"9.999999999999e-312"1.e-309"1.000000000000002e-309"1.000000000000002e-309"1.000000000000002e-309"1.e-308"9.999999999999999e-309"9.999999999999999e-309"9.999999999999999e-309#f
 BUT EXPECTED #t

;testing bignums; 
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
SECTION(6 5 8)
(#<primitive-procedure number->string> 281474976710655325431)  ==> "281474976710655325431"

errors were:
(SECTION (got expected (call)))
((6 5 6) (#f #t (#<CLOSURE float-rw-range-test "r4rstest.scm": () (#@define ((success #t))  (#@let-syntax ((6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((#<id loop:288d8d40> #f) (cnt -323))  (#@set! #@#<id loop:288d8d40> (#@lambda (cnt) (#@if (#@> #@cnt 308) (#@begin #@success) (#@begin (#@let ((estr (#@string-append "1.e" (#@number->string #@estr))))  (#@let ((num (#@string->number #@num)))  (#@let ((str (#@number->string #@str)))  (#@let-syntax ((6 (#<id cond-aux:288ee9f0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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 (#@loo!
 p (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (str) 2 <anon> (num) 2 <anon> (estr) 2 <anon> (cnt) 2 <anon> (#<id loop:288d8d40> cnt) 2 <anon> (6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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-temp
 late #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (6) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((#<id x:288eafe8> (#@>= (#@string-length #@#<id x:288eafe8>) 10)))  (#@if #@#<id x:288eafe8> #@#<id x:288eafe8> (#@let ((#<id x:288eaac8> (#@not (#@equal? (#@string->number #@#<id x:288eafe8>) #@str))))  (#@if #@#<id x:288eaac8> #<id x:288eaac8> #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #<unspecified>)))))) (#@#<id loop:288d8d40> (#@+ 1 #@cnt)))))) (#@#<id loop:288d8d40> #@cnt))))>)))


;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))

errors were:
(SECTION (got expected (call)))
((6 5 6) (#f #t (#<CLOSURE float-rw-range-test "r4rstest.scm": () (#@define ((success #t))  (#@let-syntax ((6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((#<id loop:288d8d40> #f) (cnt -323))  (#@set! #@#<id loop:288d8d40> (#@lambda (cnt) (#@if (#@> #@cnt 308) (#@begin #@success) (#@begin (#@let ((estr (#@string-append "1.e" (#@number->string #@estr))))  (#@let ((num (#@string->number #@num)))  (#@let ((str (#@number->string #@str)))  (#@let-syntax ((6 (#<id cond-aux:288ee9f0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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 (#@loo!
 p (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (str) 2 <anon> (num) 2 <anon> (estr) 2 <anon> (cnt) 2 <anon> (#<id loop:288d8d40> cnt) 2 <anon> (6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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-temp
 late #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (6) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((#<id x:288eafe8> (#@>= (#@string-length #@#<id x:288eafe8>) 10)))  (#@if #@#<id x:288eafe8> #@#<id x:288eafe8> (#@let ((#<id x:288eaac8> (#@not (#@equal? (#@string->number #@#<id x:288eafe8>) #@str))))  (#@if #@#<id x:288eaac8> #<id x:288eaac8> #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #<unspecified>)))))) (#@#<id loop:288d8d40> (#@+ 1 #@cnt)))))) (#@#<id loop:288d8d40> #@cnt))))>)))


;testing continuations; 
SECTION(6 9)
(#<CLOSURE leaf-eq? "r4rstest.scm": (x y) ((#<id lambda:288f3ba0> (eot) (#<id let*:288f3f10> ((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))))) (list (quote eot)))> (a (b (c))) ((a) b c))  ==> #t
(#<CLOSURE leaf-eq? "r4rstest.scm": (x y) (#@let ((eot (#@list (#@quote eot))))  (#@let ((xf (#@next-leaf-generator #@eot #@xf)))  (#@let ((yf (#@next-leaf-generator #@2+1 #@xf)))  (#@let ((loop #f))  (#@set! #@loop (#@lambda (x y) (#@let-syntax ((6 (#<id cond-aux:288cf700> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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))>>)) (x y) 2 <anon> (loop) 2 <anon> (yf) 2 <anon> (xf) 2 <anon> (eot) 2 <anon> (x y) 2 leaf-eq? 1 "r4rstest.scm") (#@if (#@not (#@eq? #@x #@y)) (#@begin #f) (#@if (#@eq? #@eot #@x) (#@begin #t) (#@loop (#@xf) (#@yf))))))) (#@let ()  (#@loop (#@xf) (#@yf)))))))> (a (b (c))) 
 ((a) b c d))  ==> #f

errors were:
(SECTION (got expected (call)))
((6 5 6) (#f #t (#<CLOSURE float-rw-range-test "r4rstest.scm": () (#@define ((success #t))  (#@let-syntax ((6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((#<id loop:288d8d40> #f) (cnt -323))  (#@set! #@#<id loop:288d8d40> (#@lambda (cnt) (#@if (#@> #@cnt 308) (#@begin #@success) (#@begin (#@let ((estr (#@string-append "1.e" (#@number->string #@estr))))  (#@let ((num (#@string->number #@num)))  (#@let ((str (#@number->string #@str)))  (#@let-syntax ((6 (#<id cond-aux:288ee9f0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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 (#@loo!
 p (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (str) 2 <anon> (num) 2 <anon> (estr) 2 <anon> (cnt) 2 <anon> (#<id loop:288d8d40> cnt) 2 <anon> (6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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-temp
 late #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (6) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((#<id x:288eafe8> (#@>= (#@string-length #@#<id x:288eafe8>) 10)))  (#@if #@#<id x:288eafe8> #@#<id x:288eafe8> (#@let ((#<id x:288eaac8> (#@not (#@equal? (#@string->number #@#<id x:288eafe8>) #@str))))  (#@if #@#<id x:288eaac8> #<id x:288eaac8> #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #<unspecified>)))))) (#@#<id loop:288d8d40> (#@+ 1 #@cnt)))))) (#@#<id loop:288d8d40> #@cnt))))>)))


;testing DELAY and FORCE; 
SECTION(6 9)
(delay 3)  ==> 3
(delay (3 3))  ==> (3 3)
(delay 2)  ==> 2
(#<CLOSURE force "syntest2.scm": (promise) (#@promise)> #<CLOSURE <anon> "syntest2.scm": () (#@if #@result (#@car #@result) (#@let ((x (#@result)))  (#@if #@result (car result) (#@begin (#@set! #@result (#@list #@x)) #@x))))>)  ==> 6
(#<CLOSURE force "syntest2.scm": (promise) (#@promise)> #<CLOSURE <anon> "syntest2.scm": () (#@if #@result (#@car #@result) (#@let ((x (#@result)))  (#@if #@result (#@car #@result) (#@begin (#@set! #@result (#@list #@x)) #@x))))>)  ==> 6
(force 3)  ==> 3

errors were:
(SECTION (got expected (call)))
((6 5 6) (#f #t (#<CLOSURE float-rw-range-test "r4rstest.scm": () (#@define ((success #t))  (#@let-syntax ((6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((#<id loop:288d8d40> #f) (cnt -323))  (#@set! #@#<id loop:288d8d40> (#@lambda (cnt) (#@if (#@> #@cnt 308) (#@begin #@success) (#@begin (#@let ((estr (#@string-append "1.e" (#@number->string #@estr))))  (#@let ((num (#@string->number #@num)))  (#@let ((str (#@number->string #@str)))  (#@let-syntax ((6 (#<id cond-aux:288ee9f0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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 (#@loo!
 p (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (str) 2 <anon> (num) 2 <anon> (estr) 2 <anon> (cnt) 2 <anon> (#<id loop:288d8d40> cnt) 2 <anon> (6 (#<id do-result:288d8e18> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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:288d8ef0> . #<macro! #<CLOSURE <anon> "/wrkdirs/usr/ports/lang/scm/work/scm/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-temp
 late #@x-use (#@car #@rules) #@vars #@env-def))) (#t (#@loop (#@cdr #@rules)))))))  #@loop) #@rules))>>)) (6) (success . #@define) () 2 float-rw-range-test (log2 slow-frexp float-precision float-print-test mult-float-print-test float-rw-range-test . #@define) (f0.0 f0.5 f1.0 f2.0) 2 <anon> () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((#<id x:288eafe8> (#@>= (#@string-length #@#<id x:288eafe8>) 10)))  (#@if #@#<id x:288eafe8> #@#<id x:288eafe8> (#@let ((#<id x:288eaac8> (#@not (#@equal? (#@string->number #@#<id x:288eafe8>) #@str))))  (#@if #@#<id x:288eaac8> #<id x:288eaac8> #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #<unspecified>)))))) (#@#<id loop:288d8d40> (#@+ 1 #@cnt)))))) (#@#<id loop:288d8d40> #@cnt))))>)))

(let ((x (quote outer))) (let-syntax ((m (syntax-rules () ((m) x)))) (let ((x (quote inner))) (m)))) ==> outer
(let-syntax ((when (syntax-rules () ((when ?test ?stmt1 ?stmt2 ...) (if ?test (begin ?stmt1 ?stmt2 ...)))))) (let ((if #t)) (when if (set! if (quote now))) if)) ==> now
(letrec-syntax ((or (syntax-rules () ((or) #f) ((or ?e) ?e) ((or ?e1 ?e2 ...) (let ((temp ?e1)) (if temp temp (or ?e2 ...))))))) (let ((x #f) (y 7) (temp 8) (let odd?) (if even?)) (or x (let temp) (if y) y))) ==> 7
(let ((=> #f)) (cond (#t => (quote ok)))) ==> ok
(define-syntax set*! (syntax-rules () ((set*! (?var ?val) ...) (set*!-help (?val ...) () (?var ?val) ...))))
(define-syntax set*!-help (syntax-rules () ((set*!-help () (?temp ...) (?var ?val) ...) (let ((?temp ?val) ...) (set! ?var ?temp) ...)) ((set*!-help (?var1 ?var2 ...) ?temps ?assignments ...) (set*!-help (?var2 ...) (temp . ?temps) ?assignments ...))))
(let ((x 3) (y 4) (z 5)) (set*! (x (+ x y z)) (y (- x y z)) (z (* x y z))) (list x y z)) ==> (12 -6 60)
(let ((else #f)) (cond (#f 3) (else 4) (#t 5))) ==> 5
(define-syntax push (syntax-rules () ((push item place) (set! place (cons item place)))))
(let* ((cons (lambda (name) (case name ((phil) (quote (three-card monte))) ((dick) (quote (secret plan to end the war agnew not a crook))) ((jimmy) (quote (why not the best))) ((ron) (quote (abolish the draft balance the budget))) (else (quote ()))))) (scams (cons (quote phil)))) (push (car (cons (quote jimmy))) scams) (push (cadr (cons (quote ron))) scams) scams) ==> (balance the budget why not the best three-card monte)
(define-syntax replic (syntax-rules () ((_ (?x ...) (?y ...)) (let ((?x (list ?y ...)) ...) (list ?x ...)))))
(replic (x y z) (1 2)) ==> ((1 2) (1 2) (1 2))

; program args: ("./scm" "-rmacro" "-fsyntest1.scm" "-fsyntest2.scm" "-fr4rstest.scm" "-e(test-sc4)(test-cont)(test-delay)" "-fsyntest1" "-e" "(or (null? errs) (quit 1))")
Passed all tests
Load "syntest2" to rewrite derived expressions and test
gmake[4]: *** [checkmacro] Error 1
gmake[4]: Leaving directory `/wrkdirs/usr/ports/lang/scm/work/scm'
gmake[3]: *** [scm5] Error 2
gmake[3]: Leaving directory `/wrkdirs/usr/ports/lang/scm/work/scm'
gmake[2]: *** [alld5] Error 2
gmake[2]: Leaving directory `/wrkdirs/usr/ports/lang/scm/work/scm'
gmake[1]: *** [all] Error 2
gmake[1]: Leaving directory `/wrkdirs/usr/ports/lang/scm/work/scm'
*** Error code 1

Stop.
make: stopped in /usr/ports/lang/scm
===>  Cleaning for scm-5f1



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201405230943.s4N9hGOM070443>