From owner-freebsd-pkg-fallout@freebsd.org Tue Oct 25 10:03:29 2016 Return-Path: Delivered-To: freebsd-pkg-fallout@mailman.ysv.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) by mailman.ysv.freebsd.org (Postfix) with ESMTP id 991EEBED011 for ; Tue, 25 Oct 2016 10:03:29 +0000 (UTC) (envelope-from pkg-fallout@FreeBSD.org) Received: from mailman.ysv.freebsd.org (unknown [127.0.1.3]) by mx1.freebsd.org (Postfix) with ESMTP id 87C47A16 for ; Tue, 25 Oct 2016 10:03:29 +0000 (UTC) (envelope-from pkg-fallout@FreeBSD.org) Received: by mailman.ysv.freebsd.org (Postfix) id 86F0EBED010; Tue, 25 Oct 2016 10:03:29 +0000 (UTC) Delivered-To: pkg-fallout@mailman.ysv.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) by mailman.ysv.freebsd.org (Postfix) with ESMTP id 86848BED00F for ; Tue, 25 Oct 2016 10:03:29 +0000 (UTC) (envelope-from pkg-fallout@FreeBSD.org) Received: from beefy4.nyi.freebsd.org (beefy4.nyi.freebsd.org [IPv6:2610:1c1:1:6080::16:e7]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (Client did not present a certificate) by mx1.freebsd.org (Postfix) with ESMTPS id 25BC8A15; Tue, 25 Oct 2016 10:03:29 +0000 (UTC) (envelope-from pkg-fallout@FreeBSD.org) Received: from beefy4.nyi.freebsd.org (localhost [127.0.0.1]) by beefy4.nyi.freebsd.org (8.15.2/8.15.2) with ESMTP id u9PA3S9E055753; Tue, 25 Oct 2016 10:03:28 GMT (envelope-from pkg-fallout@FreeBSD.org) Received: (from root@localhost) by beefy4.nyi.freebsd.org (8.15.2/8.15.2/Submit) id u9PA3SKT055600; Tue, 25 Oct 2016 10:03:28 GMT (envelope-from pkg-fallout@FreeBSD.org) Date: Tue, 25 Oct 2016 10:03:28 GMT From: pkg-fallout@FreeBSD.org Message-Id: <201610251003.u9PA3SKT055600@beefy4.nyi.freebsd.org> To: mi@aldan.algebra.com Subject: [package - head-amd64-default][lang/scm] Failed for scm-5f2_1 in build Cc: pkg-fallout@FreeBSD.org X-BeenThere: freebsd-pkg-fallout@freebsd.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Fallout logs from package building List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 25 Oct 2016 10:03:29 -0000 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 Last committer: swills@FreeBSD.org Ident: $FreeBSD: head/lang/scm/Makefile 413746 2016-04-21 16:43:14Z swills $ Log URL: http://beefy4.nyi.freebsd.org/data/head-amd64-default/p424595_s307891/logs/scm-5f2_1.log Build URL: http://beefy4.nyi.freebsd.org/build.html?mastername=head-amd64-default&build=p424595_s307891 Log: ====>> Building lang/scm build started at Tue Oct 25 10:02:25 UTC 2016 port directory: /usr/ports/lang/scm building for: FreeBSD head-amd64-default-job-12 12.0-CURRENT FreeBSD 12.0-CURRENT r307891 amd64 maintained by: mi@aldan.algebra.com Makefile ident: $FreeBSD: head/lang/scm/Makefile 413746 2016-04-21 16:43:14Z swills $ Poudriere version: 3.1.14 Host OSVERSION: 1200005 Jail OSVERSION: 1200014 !!! Jail is newer than host. (Jail: 1200014, Host: 1200005) !!! !!! This is not supported. !!! !!! Host kernel must be same or newer than jail. !!! !!! Expect build failures. !!! ---Begin Environment--- SHELL=/bin/csh UNAME_v=FreeBSD 12.0-CURRENT r307891 UNAME_r=12.0-CURRENT BLOCKSIZE=K MAIL=/var/mail/root STATUS=1 ARCH=amd64 SAVED_TERM= MASTERMNT=/usr/local/poudriere/data/.m/head-amd64-default/ref UID=0 PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin _JAVA_VERSION_LIST_REGEXP=1.6\|1.7\|1.8\|1.6+\|1.7+\|1.8+ POUDRIERE_BUILD_TYPE=bulk PKGNAME=scm-5f2_1 OSREL=12.0 _OSRELEASE=12.0-CURRENT PYTHONBASE=/usr/local OLDPWD=/ _SMP_CPUS=24 PWD=/usr/local/poudriere/data/.m/head-amd64-default/ref/.p/pool HAVE_COMPAT_IA32_KERN=YES OPSYS=FreeBSD MASTERNAME=head-amd64-default SCRIPTPREFIX=/usr/local/share/poudriere _JAVA_VENDOR_LIST_REGEXP=openjdk\|oracle\|sun USER=root HOME=/root POUDRIERE_VERSION=3.1.14 SCRIPTPATH=/usr/local/share/poudriere/bulk.sh CONFIGURE_MAX_CMD_LEN=262144 LIBEXECPREFIX=/usr/local/libexec/poudriere LOCALBASE=/usr/local PACKAGE_BUILDING=yes _JAVA_OS_LIST_REGEXP=native\|linux OSVERSION=1200014 ---End Environment--- ---Begin OPTIONS List--- ===> The following configuration options are available for scm-5f2_1: X11=off: X11 (graphics) support ===> Use 'make config' to modify these settings ---End OPTIONS List--- --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 HOME=/wrkdirs/usr/ports/lang/scm/work TMPDIR="/tmp" 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 HOME=/wrkdirs/usr/ports/lang/scm/work TMPDIR="/tmp" NO_PIE=yes MK_DEBUG_FILES=no MK_KERNEL_SYMBOLS=no 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="gcc48" CFLAGS="-O2 -pipe -Wall -Wwrite-strings -Wmissing-declarations -Wredundant-decls -Wcast-qual -Wno-unused-label -Wno-uninitialized -fstack-protector -Wl,-rpath=/usr/local/lib/gcc48 -fno-strict-aliasing" CPP="cpp48" CPPFLAGS="-I/usr/local/include" LDFLAGS=" -L/usr/local/lib -fstack-protector -Wl,-rpath=/usr/local/lib/ gcc48 -L/usr/local/lib/gcc48" LIBS="" CXX="g++48" CXXFLAGS="-O2 -pipe -Wall -Wwrite-strings -Wmissing-declarations -Wredundant-decls -Wcast-qual -Wno-unused-label -Wno-uninitialized -fstack-protector -Wl,-rpath=/usr/local/lib/gcc48 -fno-strict-aliasing -Wl,-rpath=/usr/local/lib/gcc48" MANPREFIX="/usr/local" BSD_INSTALL_PROGRAM="install -s -m 555" BSD_INSTALL_LIB="install -s -m 444" BSD_INSTALL_SCRIPT="install -m 555" BSD_INSTALL_DATA="install -m 0644" BSD_INSTALL_MAN="install -m 444" --End MAKE_ENV-- --PLIST_SUB-- VERSION="5f2" X11="@comment " NO_X11="" OSREL=12.0 PREFIX=%D LOCALBASE=/usr/local RESETPREFIX=/usr/local PORTDOCS="" PORTEXAMPLES="" 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 #### /usr/local/etc/poudriere.d/make.conf #### # 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 DISABLE_MAKE_JOBS=poudriere ---End make.conf--- =================================================== ===> License LGPL21 accepted by the user =========================================================================== =================================================== ===> scm-5f2_1 depends on file: /usr/local/sbin/pkg - not found ===> Installing existing package /packages/All/pkg-1.9.1.txz [head-amd64-default-job-12] Installing pkg-1.9.1... [head-amd64-default-job-12] Extracting pkg-1.9.1: .......... done ===> scm-5f2_1 depends on file: /usr/local/sbin/pkg - found ===> Returning to build of scm-5f2_1 =========================================================================== =================================================== =========================================================================== =================================================== ===> License LGPL21 accepted by the user ===> Fetching all distfiles required by scm-5f2_1 for building =========================================================================== =================================================== ===> License LGPL21 accepted by the user ===> Fetching all distfiles required by scm-5f2_1 for building => SHA256 Checksum OK for scm-5f2.zip. => SHA256 Checksum OK for slib-3b5.zip. => SHA256 Checksum OK for slib-psd1-3.tar.gz. =========================================================================== =================================================== =========================================================================== =================================================== ===> License LGPL21 accepted by the user ===> Fetching all distfiles required by scm-5f2_1 for building ===> Extracting for scm-5f2_1 => SHA256 Checksum OK for scm-5f2.zip. => SHA256 Checksum OK for slib-3b5.zip. => SHA256 Checksum OK for slib-psd1-3.tar.gz. =========================================================================== =================================================== =========================================================================== =================================================== ===> Patching for scm-5f2_1 ===> Applying FreeBSD patches for scm-5f2_1 =========================================================================== =================================================== ===> scm-5f2_1 depends on executable: gcc48 - not found ===> Installing existing package /packages/All/gcc-4.8.5_2.txz [head-amd64-default-job-12] Installing gcc-4.8.5_2... [head-amd64-default-job-12] `-- Installing indexinfo-0.2.5... [head-amd64-default-job-12] `-- Extracting indexinfo-0.2.5: .... done [head-amd64-default-job-12] `-- Installing mpc-1.0.3... [head-amd64-default-job-12] | `-- Installing gmp-5.1.3_3... [head-amd64-default-job-12] | `-- Extracting gmp-5.1.3_3: .......... done [head-amd64-default-job-12] | `-- Installing mpfr-3.1.5... [head-amd64-default-job-12] | `-- Extracting mpfr-3.1.5: .......... done [head-amd64-default-job-12] `-- Extracting mpc-1.0.3: ...... done [head-amd64-default-job-12] `-- Installing binutils-2.27_4,1... [head-amd64-default-job-12] | `-- Installing gettext-runtime-0.19.8.1... [head-amd64-default-job-12] | `-- Extracting gettext-runtime-0.19.8.1: .......... done [head-amd64-default-job-12] `-- Extracting binutils-2.27_4,1: .......... done [head-amd64-default-job-12] `-- Installing gcc-ecj-4.5... [head-amd64-default-job-12] `-- Extracting gcc-ecj-4.5: . done [head-amd64-default-job-12] Extracting gcc-4.8.5_2: .......... done Message from gcc-4.8.5_2: 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/gcc48 For ports leveraging USE_GCC, USES=compiler, or USES=fortran this happens transparently. ===> scm-5f2_1 depends on executable: gcc48 - found ===> Returning to build of scm-5f2_1 ===> scm-5f2_1 depends on file: /usr/local/bin/as - found =========================================================================== =================================================== ===> scm-5f2_1 depends on shared library: libreadline.so.6 - not found ===> Installing existing package /packages/All/readline-6.3.8.txz [head-amd64-default-job-12] Installing readline-6.3.8... [head-amd64-default-job-12] Extracting readline-6.3.8: .......... done ===> scm-5f2_1 depends on shared library: libreadline.so.6 - found (/usr/local/lib/libreadline.so.6) (# 1.e-300+1.e-300i 4.e-300+4.e-300i) ==> 250.e-3 (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 3.9) ==> #t (max #t) ==> #t (# 3.9 4) ==> 4. (#inexact> 4) ==> 4. (#inexact> 4.) ==> 4. (#exact> 4) ==> 4 (#exact> 4.) ==> 4 (# -4.5) ==> -4. (# -3.5) ==> -4. (# -3.9) ==> -4. (# 0.0) ==> 0.0 (# 250.e-3) ==> 0.0 (# 800.e-3) ==> 1. (# 3.5) ==> 4. (# 4.5) ==> 4. (# . # "/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 ((# (#@exact? #@0+1))) (#@if #@# (#@let ((# (#@not (#@let ((# (#@zero? #@#))) (#@if #@# (#@let ((# (#@negative? #@2+1))) (#@if #@# # #f)) #f))))) (#@if #@# #@# #f)) #f)) (#@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.) ==> 0.0 (# . # "/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 ((# (#@exact? #@0+1))) (#@if #@# (#@let ((# (#@not (#@let ((# (#@zero? #@#))) (#@if #@# (#@let ((# (#@negative? #@2+1))) (#@if #@# # #f)) #f))))) (#@if #@# #@# #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((# (#@real? #@0+1))) (#@if #@# (#@let ((# (#@real? #@#))) (#@if #@# (#@let ((# (#@positive? #@#))) (#@if #@# # #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> 0.0 1) ==> 0.0 (# . # "/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 ((# (#@exact? #@0+1))) (#@if #@# (#@let ((# (#@not (#@let ((# (#@zero? #@#))) (#@if #@# (#@let ((# (#@negative? #@2+1))) (#@if #@# # #f)) #f))))) (#@if #@# #@# #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((# (#@real? #@0+1))) (#@if #@# (#@let ((# (#@real? #@#))) (#@if #@# (#@let ((# (#@positive? #@#))) (#@if #@# # #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> 0 1.) ==> 0.0 (# . # "/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 ((# (#@exact? #@0+1))) (#@if #@# (#@let ((# (#@not (#@let ((# (#@zero? #@#))) (#@if #@# (#@let ((# (#@negative? #@2+1))) (#@if #@# # #f)) #f))))) (#@if #@# #@# #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((# (#@real? #@0+1))) (#@if #@# (#@let ((# (#@real? #@#))) (#@if #@# (#@let ((# (#@positive? #@#))) (#@if #@# # #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -25 0.0) ==> 1. (# . # "/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 ((# (#@exact? #@0+1))) (#@if #@# (#@let ((# (#@not (#@let ((# (#@zero? #@#))) (#@if #@# (#@let ((# (#@negative? #@2+1))) (#@if #@# # #f)) #f))))) (#@if #@# #@# #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((# (#@real? #@0+1))) (#@if #@# (#@let ((# (#@real? #@#))) (#@if #@# (#@let ((# (#@positive? #@#))) (#@if #@# # #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -3.25 0.0) ==> 1. (# . # "/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 ((# (#@exact? #@0+1))) (#@if #@# (#@let ((# (#@not (#@let ((# (#@zero? #@#))) (#@if #@# (#@let ((# (#@negative? #@2+1))) (#@if #@# # #f)) #f))))) (#@if #@# #@# #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((# (#@real? #@0+1))) (#@if #@# (#@let ((# (#@real? #@#))) (#@if #@# (#@let ((# (#@positive? #@#))) (#@if #@# # #f)) #f)) #f)) (real-expt z1 z2) (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))))> -3.25 0) ==> 1. (# 1 1) ==> 785.3981633974483e-3 (# "tmp3" # "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 (# #) ==> (define foo (quote (250.e-3 -3.25))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (250.e-3 -3.25) (# #) ==> (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 Number readback failure for (+ 3. (* -23 444.0892098500626e-18)) 2.99999999999999 2.99999999999999 Number readback failure for (+ 300.e18 (* -6 65.536e3)) 299.9999999999996e18 299.9999999999996e18 (mult-float-print-test #f) ==> #f BUT EXPECTED #t (mult-float-print-test #t) ==> #t Number readback failure for (+ 314.1592653589793e-102 (* 88 50.75883674631298e-117)) 314.15926535898377e-102 314.15926535898377e-102 (mult-float-print-test #f) ==> #f BUT EXPECTED #t Number readback failure for (+ 271.82818284590454e-102 (* 2 50.75883674631298e-117)) 271.82818284590464e-102 271.82818284590464e-102 (mult-float-print-test #f) ==> #f BUT EXPECTED #t ;testing bignums; SECTION(6 5 7) (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> -1 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> 2 (# -33333333333333333332 3) ==> 1 (# -33333333333333333332 -3) ==> -2 (# -33333333333333333332 3) ==> -2 (# -33333333333333333332 -3) ==> -2 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> 33333333333333333330 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> -33333333333333333330 (# -3 -33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> 3 (# -3 -33333333333333333333) ==> -3 (# -2177452800 86400) ==> 0 (# 2177452800 -86400) ==> 0 (# 2177452800 86400) ==> 0 (# -2177452800 -86400) ==> 0 (# 0 -2177452800) ==> 0 (remainder #t) ==> #t (remainder #t) ==> #t (# 33333333333333333333 11111111111111111111) ==> 11111111111111111111 (# 33333333333333333332 11111111111111111111) ==> 1 (# 33333333333333333330 11111111111111111111) ==> 1 (# 33333333333333333333 33333333333333333330) ==> 3 (# 33333333333333333333 11111111111111111111) ==> 33333333333333333333 (# -3 11111111111111111111) ==> 33333333333333333333 SECTION(6 5 8) (#string> 281474976710655325431) ==> "281474976710655325431" errors were: (SECTION (got expected (call))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ;testing bignum-inexact comparisons; SECTION(6 5 5) (# 1427247692705959881058285969449495136382746625 1.42724769270596e45 1427247692705959881058285969449495136382746623) ==> #f (# 1.42724769270596e45 1427247692705959881058285969449495136382746625 1427247692705959881058285969449495136382746623) ==> #f (# 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) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#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 (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ;testing continuations; SECTION(6 9) (# (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))))) (list (quote eot)))> (a (b (c))) ((a) b c)) ==> #t (# . # "/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 (loop) 2 (yf) 2 (xf) 2 (eot) 2 (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 (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # "syntest2.scm": () (#@if #@result (#@car #@result) (#@let ((x (#@result))) (#@if #@result (car result) (#@begin (#@set! #@result (#@list #@x)) #@x))))>) ==> 6 (# # "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 (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) ((6 5 6) (#f #t (mult-float-print-test #f))) (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 *** Error code 1 Stop. make[4]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm *** Error code 1 Stop. make[3]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm *** Error code 1 Stop. make[2]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm *** Error code 1 Stop. make[1]: stopped in /wrkdirs/usr/ports/lang/scm/work/scm *** Error code 1 Stop. make: stopped in /usr/ports/lang/scm