Date: Fri, 30 Jan 2015 00:18:58 GMT From: pkg-fallout@FreeBSD.org To: mi@aldan.algebra.com Cc: pkg-fallout@FreeBSD.org Subject: [package - head-amd64-default][lang/scm] Failed for scm-5f2 in build Message-ID: <201501300018.t0U0IwfU051506@beefy2.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: mi@aldan.algebra.com Last committer: mi@FreeBSD.org Ident: $FreeBSD: head/lang/scm/Makefile 377989 2015-01-27 08:40:34Z mi $ Log URL: http://beefy2.isc.freebsd.org/data/head-amd64-default/2015-01-29_17h41m11s/logs/scm-5f2.log Build URL: http://beefy2.isc.freebsd.org/build.html?mastername=head-amd64-default&build=2015-01-29_17h41m11s Log: ====>> Building lang/scm build started at Fri Jan 30 00:17:58 UTC 2015 port directory: /usr/ports/lang/scm building for: FreeBSD head-amd64-default-job-01 11.0-CURRENT FreeBSD 11.0-CURRENT r277815 amd64 maintained by: mi@aldan.algebra.com Makefile ident: $FreeBSD: head/lang/scm/Makefile 377989 2015-01-27 08:40:34Z mi $ Poudriere version: 3.1.1 Host OSVERSION: 1100056 Jail OSVERSION: 1100056 ---Begin Environment--- OSVERSION=1100056 UNAME_v=FreeBSD 11.0-CURRENT r277815 UNAME_r=11.0-CURRENT BLOCKSIZE=K MAIL=/var/mail/root STATUS=1 SAVED_TERM= MASTERMNT=/usr/local/poudriere/data/.m/head-amd64-default/ref PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin:/root/bin POUDRIERE_BUILD_TYPE=bulk PKGNAME=scm-5f2 OLDPWD=/ PWD=/usr/local/poudriere/data/.m/head-amd64-default/ref/.p/pool MASTERNAME=head-amd64-default USER=root HOME=/root POUDRIERE_VERSION=3.1.1 LOCALBASE=/usr/local PACKAGE_BUILDING=yes ---End Environment--- ---Begin OPTIONS List--- ===> The following configuration options are available for scm-5f2: 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" 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" 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 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 -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 0644" BSD_INSTALL_MAN="install -o root -g wheel -m 444" --End MAKE_ENV-- --PLIST_SUB-- VERSION="5f2" X11="@comment " NO_X11="" OSREL=11.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 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 #WITH_PKGNG=devel # clean-restricted ran via poudriere.conf NO_RESTRICTED #NO_RESTRICTED=yes DISABLE_MAKE_JOBS=poudriere ---End make.conf--- =======================<phase: check-sanity >============================ ===> License LGPL21 accepted by the user =========================================================================== =======================<phase: pkg-depends >============================ ===> scm-5f2 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.4.7.txz [head-amd64-default-job-01] Installing pkg-1.4.7... [head-amd64-default-job-01] Extracting pkg-1.4.7... done Message for pkg-1.4.7: If you are upgrading from the old package format, first run: # pkg2ng ===> Returning to build of scm-5f2 =========================================================================== =======================<phase: fetch-depends >============================ =========================================================================== =======================<phase: fetch >============================ ===> License LGPL21 accepted by the user ===> Fetching all distfiles required by scm-5f2 for building =========================================================================== =======================<phase: checksum >============================ ===> License LGPL21 accepted by the user ===> Fetching all distfiles required by scm-5f2 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. =========================================================================== =======================<phase: extract-depends>============================ =========================================================================== =======================<phase: extract >============================ ===> License LGPL21 accepted by the user ===> Fetching all distfiles required by scm-5f2 for building ===> Extracting for scm-5f2 => SHA256 Checksum OK for scm-5f2.zip. => SHA256 Checksum OK for slib-3b5.zip. => SHA256 Checksum OK for slib-psd1-3.tar.gz. =========================================================================== =======================<phase: patch-depends >============================ =========================================================================== =======================<phase: patch >============================ ===> Patching for scm-5f2 ===> Applying FreeBSD patches for scm-5f2 =========================================================================== =======================<phase: build-depends >============================ ===> scm-5f2 depends on executable: gcc48 - not found ===> Verifying install for gcc48 in /usr/ports/lang/gcc ===> Installing existing package /packages/All/gcc-4.8.4.txz [head-amd64-default-job-01] Installing gcc-4.8.4... [head-amd64-default-job-01] `-- Installing binutils-2.25... [head-amd64-default-job-01] | `-- Installing gettext-runtime-0.19.4... [head-amd64-default-job-01] | | `-- Installing indexinfo-0.2.2... [head-amd64-default-job-01] | | `-- Extracting indexinfo-0.2.2... done [head-amd64-default-job-01] | `-- Extracting gettext-runtime-0.19.4... done [head-amd64-default-job-01] `-- Extracting binutils-2.25... done [head-amd64-default-job-01] `-- Installing gcc-ecj-4.5... [head-amd64-default-job-01] `-- Extracting gcc-ecj-4.5... done [head-amd64-default-job-01] `-- Installing gmp-5.1.3_2... [head-amd64-default-job-01] `-- Extracting gmp-5.1.3_2... done [head-amd64-default-job-01] `-- Installing mpc-1.0.2_1... [head-amd64-default-job-01] | `-- Installing mpfr-3.1.2_2... [head-amd64-default-job-01] | `-- Extracting mpfr-3.1.2_2... done [head-amd64-default-job-01] `-- Extracting mpc-1.0.2_1... done [head-amd64-default-job-01] Extracting gcc-4.8.4... done Message for gcc-4.8.4: 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. ===> Returning to build of scm-5f2 ===> scm-5f2 depends on file: /usr/local/bin/as - found =========================================================================== =======================<phase: lib-depends >============================ ===> scm-5f2 depends on shared library: libreadline.so.6 - not found ===> Verifying for libreadline.so.6 in /usr/ports/devel/readline ===> Installing existing package /packages/All/readline-6.3.8.txz [head-amd64-default-job-01] Installing readline-6.3.8... [head-amd64-default-job-01] Extracting readline-6.3.8... done ===> Returning to build of scm-5f2 =========================================================================== =======================<phase: configure >============================ ===> Configuring for scm-5f2 #! /bin/cat # Generated by configure for scm 5f2. # This file (config.status) is included by the (scm) Makefile. PACKAGE_NAME=scm PACKAGE_TARNAME=scm PACKAGE_VERSION=5f2 PACKAGE_STRING=scm 5f2 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/ <snip> (#<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:80154f580> . #<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:801547e90> (#@exact? #@0+1))) (#@if #@#<id x:801547e90> (#@let ((#<id x:8015474c0> (#@not (#@let ((#<id x:801546b50> (#@zero? #@#<id x:801547e90>))) (#@if #@#<id x:801546b50> (#@let ((#<id x:801546000> (#@negative? #@2+1))) (#@if #@#<id x:801546000> #<id x:801546000> #f)) #f))))) (#@if #@#<id x:8015474c0> #@#<id x:8015474c0> #f)) #f)) (#@integer-expt #@z1 #@z2) (#<id cond-aux:801548490> ((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:80154f580> . #<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:801547e90> (#@exact? #@0+1))) (#@if #@#<id x:801547e90> (#@let ((#<id x:8015474c0> (#@not (#@let ((#<id x:801546b50> (#@zero? #@#<id x:801547e90>))) (#@if #@#<id x:801546b50> (#@let ((#<id x:801546000> (#@negative? #@2+1))) (#@if #@#<id x:801546000> #<id x:801546000> #f)) #f))))) (#@if #@#<id x:8015474c0> #@#<id x:8015474c0> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:8015b40b0> (#@real? #@0+1))) (#@if #@#<id x:8015b40b0> (#@let ((#<id x:8015b3740> (#@real? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b3740> (#@let ((#<id x:8015b2ea0> (#@positive? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b2ea0> #<id x:8015b2ea0> #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:80154f580> . #<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:801547e90> (#@exact? #@0+1))) (#@if #@#<id x:801547e90> (#@let ((#<id x:8015474c0> (#@not (#@let ((#<id x:801546b50> (#@zero? #@#<id x:801547e90>))) (#@if #@#<id x:801546b50> (#@let ((#<id x:801546000> (#@negative? #@2+1))) (#@if #@#<id x:801546000> #<id x:801546000> #f)) #f))))) (#@if #@#<id x:8015474c0> #@#<id x:8015474c0> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:8015b40b0> (#@real? #@0+1))) (#@if #@#<id x:8015b40b0> (#@let ((#<id x:8015b3740> (#@real? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b3740> (#@let ((#<id x:8015b2ea0> (#@positive? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b2ea0> #<id x:8015b2ea0> #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:80154f580> . #<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:801547e90> (#@exact? #@0+1))) (#@if #@#<id x:801547e90> (#@let ((#<id x:8015474c0> (#@not (#@let ((#<id x:801546b50> (#@zero? #@#<id x:801547e90>))) (#@if #@#<id x:801546b50> (#@let ((#<id x:801546000> (#@negative? #@2+1))) (#@if #@#<id x:801546000> #<id x:801546000> #f)) #f))))) (#@if #@#<id x:8015474c0> #@#<id x:8015474c0> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:8015b40b0> (#@real? #@0+1))) (#@if #@#<id x:8015b40b0> (#@let ((#<id x:8015b3740> (#@real? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b3740> (#@let ((#<id x:8015b2ea0> (#@positive? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b2ea0> #<id x:8015b2ea0> #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:80154f580> . #<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:801547e90> (#@exact? #@0+1))) (#@if #@#<id x:801547e90> (#@let ((#<id x:8015474c0> (#@not (#@let ((#<id x:801546b50> (#@zero? #@#<id x:801547e90>))) (#@if #@#<id x:801546b50> (#@let ((#<id x:801546000> (#@negative? #@2+1))) (#@if #@#<id x:801546000> #<id x:801546000> #f)) #f))))) (#@if #@#<id x:8015474c0> #@#<id x:8015474c0> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:8015b40b0> (#@real? #@0+1))) (#@if #@#<id x:8015b40b0> (#@let ((#<id x:8015b3740> (#@real? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b3740> (#@let ((#<id x:8015b2ea0> (#@positive? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b2ea0> #<id x:8015b2ea0> #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:80154f580> . #<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:801547e90> (#@exact? #@0+1))) (#@if #@#<id x:801547e90> (#@let ((#<id x:8015474c0> (#@not (#@let ((#<id x:801546b50> (#@zero? #@#<id x:801547e90>))) (#@if #@#<id x:801546b50> (#@let ((#<id x:801546000> (#@negative? #@2+1))) (#@if #@#<id x:801546000> #<id x:801546000> #f)) #f))))) (#@if #@#<id x:8015474c0> #@#<id x:8015474c0> #f)) #f)) (#@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:8015b40b0> (#@real? #@0+1))) (#@if #@#<id x:8015b40b0> (#@let ((#<id x:8015b3740> (#@real? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b3740> (#@let ((#<id x:8015b2ea0> (#@positive? #@#<id x:8015b40b0>))) (#@if #@#<id x:8015b2ea0> #<id x:8015b2ea0> #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/Init5f2.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 Number readback failure for (+ 29.999999999999997e-21 (* 19 6.018531076210112e-36)) 30.00000000000011e-21 30.00000000000011e-21 (mult-float-print-test #f) ==> #f BUT EXPECTED #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #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 (#<primitive-procedure gcd> 33333333333333333333 11111111111111111111) ==> 11111111111111111111 (#<primitive-procedure gcd> 33333333333333333332 11111111111111111111) ==> 1 (#<primitive-procedure gcd> 33333333333333333330 11111111111111111111) ==> 1 (#<primitive-procedure gcd> 33333333333333333333 33333333333333333330) ==> 3 (#<primitive-procedure lcm> 33333333333333333333 11111111111111111111) ==> 33333333333333333333 (#<primitive-procedure lcm> -3 11111111111111111111) ==> 33333333333333333333 SECTION(6 5 8) (#<primitive-procedure number->string> 281474976710655325431) ==> "281474976710655325431" errors were: (SECTION (got expected (call))) ((6 5 6) (#f #t (mult-float-print-test #f))) ;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 (mult-float-print-test #f))) ;testing continuations; SECTION(6 9) (#<CLOSURE leaf-eq? "r4rstest.scm": (x y) ((#<id lambda:8015da740> (eot) (#<id let*:8015dae20> ((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:801594360> . #<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 (mult-float-print-test #f))) ;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 (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
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201501300018.t0U0IwfU051506>