From owner-freebsd-pkg-fallout@FreeBSD.ORG Wed May 14 11:08:09 2014 Return-Path: Delivered-To: pkg-fallout@FreeBSD.org Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115]) (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits)) (No client certificate requested) by hub.freebsd.org (Postfix) with ESMTPS id 7D41E41A for ; Wed, 14 May 2014 11:08:09 +0000 (UTC) Received: from beefy1.isc.freebsd.org (beefy1.isc.freebsd.org [IPv6:2001:4f8:3:ffe0:4072:0:16:38]) (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 67B882463 for ; Wed, 14 May 2014 11:08:09 +0000 (UTC) Received: from beefy1.isc.freebsd.org (localhost [127.0.0.1]) by beefy1.isc.freebsd.org (8.14.8/8.14.8) with ESMTP id s4EB88qL028931 for ; Wed, 14 May 2014 11:08:08 GMT (envelope-from pkg-fallout-builder@FreeBSD.org) Received: (from root@localhost) by beefy1.isc.freebsd.org (8.14.8/8.14.8/Submit) id s4EB88Y7028921; Wed, 14 May 2014 11:08:08 GMT (envelope-from pkg-fallout-builder@FreeBSD.org) Date: Wed, 14 May 2014 11:08:08 GMT From: pkg-fallout-builder@FreeBSD.org Message-Id: <201405141108.s4EB88Y7028921@beefy1.isc.freebsd.org> To: pkg-fallout@FreeBSD.org Subject: [REL - 84i386-default][lang/scm] Failed for scm-5f1 in build X-BeenThere: freebsd-pkg-fallout@freebsd.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: Fallout logs from package building List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 14 May 2014 11:08:09 -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: 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/84i386-default/2014-05-14_06h48m14s/logs/scm-5f1.log Build URL: http://beefy1.isc.freebsd.org/bulk/84i386-default/2014-05-14_06h48m14s Log: ====>> Building lang/scm build started at Wed May 14 11:07:41 UTC 2014 port directory: /usr/ports/lang/scm building for: FreeBSD 84i386-default-job-14 8.4-RELEASE FreeBSD 8.4-RELEASE 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: 804000 ---Begin Environment--- UNAME_m=i386 UNAME_p=i386 OSVERSION=804000 UNAME_v=FreeBSD 8.4-RELEASE UNAME_r=8.4-RELEASE FTP_PASSIVE_MODE=YES BLOCKSIZE=K MAIL=/var/mail/root STATUS=1 SAVED_TERM= MASTERMNT=/usr/local/poudriere/data/build/84i386-default/ref PKG_EXT=txz tpid=89084 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/84i386-default/ref/poudriere/rdeps PWD=/usr/local/poudriere/data/build/84i386-default/ref/poudriere/pool MASTERNAME=84i386-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 PREFIX=/usr/local LOCALBASE=/usr/local LIBDIR="/usr/lib" CC="gcc" CFLAGS="-O2 -pipe -fno-strict-aliasing" CPP="cpp" CPPFLAGS="" LDFLAGS="" CXX="g++" CXXFLAGS="-O2 -pipe -fno-strict-aliasing" 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" BSD_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=8.4 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 =================================================== ===> License LGPL21 accepted by the user =========================================================================== =================================================== ===> 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 =========================================================================== =================================================== =========================================================================== =================================================== ===> License LGPL21 accepted by the user ===> Fetching all distfiles required by scm-5f1 for building =========================================================================== =================================================== ===> 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. =========================================================================== =================================================== =========================================================================== =================================================== ===> 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. =========================================================================== =================================================== =========================================================================== =================================================== ===> Patching for scm-5f1 ===> Applying FreeBSD patches for scm-5f1 =========================================================================== =================================================== ===> 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...Installing libiconv-1.14_3... done done done ===> Returning to build of scm-5f1 =========================================================================== =================================================== =========================================================================== =================================================== ===> Configuring for scm-5f1 =========================================================================== =================================================== ===> Building for scm-5f1 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 PACKAGE_VERSION=5f1 PACKAGE_STRING=scm 5f1 PACKAGE_BUGREPORT=scm-discuss@gnu.org srcdir=/wrkdirs/usr/ports/lang/scm/work/scm/ prefix=/usr/local/ exec_prefix=${prefix} bindir=${exec_prefix}bin/ sbindir=${exec_prefix}sbin/ libexecdir=${exec_prefix}libexec/ datarootdir=${prefix}share/ datadir=${datarootdir} sysconfdir=${prefix}etc/ sharedstatedir=${prefix}com/ localstatedir=${prefix}var/ includedir=${prefix}include/ oldincludedir=/usr/include/ docdir=${datarootdir}doc/${PACKAGE_TARNAME}/ infodir=${datarootdir}info/ htmldir=${docdir} dvidir=${docdir} pdfdir=${docdir} psdir=${docdir} libdir=${exec_prefix}lib/ localedir=${datarootdir}locale/ mandir=${datarootdir}man/ distdir=${srcdir} snapdir=${srcdir} if [ -f udscm5.opt -o ! -f scm5.opt ]; then gmake alld5; \ else gmake all5; fi (# "tmp1" # "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 (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests ;testing inexact numbers; SECTION(6 2) (# 1 1.) ==> #f (# 0 0.0) ==> #f (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t SECTION(6 5 5) (magnitude 1.) ==> 1. (# 1.e300+1.e300i 4.e300+4.e300i) ==> 250.e-3 (magnitude 1.) ==> 1. (# 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 (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (# ((# (# () ((# #) #) ((# # #) #))) (# (# () ((#) (# #f #f)) ((# . #) (# . #))))) (# # ((cnt -323)) (# (> cnt 308) (# success) (# (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)))))) (# (# 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) (# 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 SECTION(6 5 8) (#string> 281474976710655325431) ==> "281474976710655325431" errors were: (SECTION (got expected (call))) ((6 5 6) (#f #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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((# #f) (cnt -323)) (#@set! #@# (#@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 (# . # "/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 (num) 2 (estr) 2 (cnt) 2 (# cnt) 2 (6 (# . # "/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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((# (#@>= (#@string-length #@#) 10))) (#@if #@# #@# (#@let ((# (#@not (#@equal? (#@string->number #@#) #@str)))) (#@if #@# # #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #)))))) (#@# (#@+ 1 #@cnt)))))) (#@# #@cnt))))>))) ;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 (# . # "/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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((# #f) (cnt -323)) (#@set! #@# (#@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 (# . # "/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 (num) 2 (estr) 2 (cnt) 2 (# cnt) 2 (6 (# . # "/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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((# (#@>= (#@string-length #@#) 10))) (#@if #@# #@# (#@let ((# (#@not (#@equal? (#@string->number #@#) #@str)))) (#@if #@# # #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #)))))) (#@# (#@+ 1 #@cnt)))))) (#@# #@cnt))))>))) ;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 (# . # "/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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((# #f) (cnt -323)) (#@set! #@# (#@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 (# . # "/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 (num) 2 (estr) 2 (cnt) 2 (# cnt) 2 (6 (# . # "/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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((# (#@>= (#@string-length #@#) 10))) (#@if #@# #@# (#@let ((# (#@not (#@equal? (#@string->number #@#) #@str)))) (#@if #@# # #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #)))))) (#@# (#@+ 1 #@cnt)))))) (#@# #@cnt))))>))) ;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 (# . # "/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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@let ((# #f) (cnt -323)) (#@set! #@# (#@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 (# . # "/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 (num) 2 (estr) 2 (cnt) 2 (# cnt) 2 (6 (# . # "/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))>>) (# . # "/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 () 2 test-inexact-printing 1 "r4rstest.scm") (#@if (#@let ((# (#@>= (#@string-length #@#) 10))) (#@if #@# #@# (#@let ((# (#@not (#@equal? (#@string->number #@#) #@str)))) (#@if #@# # #f)))) (#@begin (#@set! #@success #f) (#@for-each #@write (#@list #@estr #@num #@str (#@string->number #@str)))) (#@begin #)))))) (#@# (#@+ 1 #@cnt)))))) (#@# #@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[3]: *** [checkmacro] Error 1 gmake[3]: Leaving directory `/wrkdirs/usr/ports/lang/scm/work/scm' gmake[2]: *** [scm5] Error 2 gmake[2]: Leaving directory `/wrkdirs/usr/ports/lang/scm/work/scm' gmake[1]: *** [alld5] Error 2 gmake[1]: Leaving directory `/wrkdirs/usr/ports/lang/scm/work/scm' gmake: *** [all] Error 2 *** Error code 1 Stop in /usr/ports/lang/scm. ===> Cleaning for scm-5f1