[package - head-armv6-default][lang/scm] Failed for scm-5f2_1 in build
pkg-fallout at FreeBSD.org
pkg-fallout at FreeBSD.org
Wed Apr 20 09:29:29 UTC 2016
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 at aldan.algebra.com
Last committer: mi at FreeBSD.org
Ident: $FreeBSD: head/lang/scm/Makefile 394797 2015-08-19 16:40:57Z mi $
Log URL: http://beefy8.nyi.freebsd.org/data/head-armv6-default/p413605_s298221/logs/scm-5f2_1.log
Build URL: http://beefy8.nyi.freebsd.org/build.html?mastername=head-armv6-default&build=p413605_s298221
Log:
====>> Building lang/scm
build started at Wed Apr 20 09:03:56 UTC 2016
port directory: /usr/ports/lang/scm
building for: FreeBSD head-armv6-default-job-10 11.0-CURRENT FreeBSD 11.0-CURRENT r298221 arm
maintained by: mi at aldan.algebra.com
Makefile ident: $FreeBSD: head/lang/scm/Makefile 394797 2015-08-19 16:40:57Z mi $
Poudriere version: 3.1.12
Host OSVERSION: 1100102
Jail OSVERSION: 1100105
!!! Jail is newer than host. (Jail: 1100105, Host: 1100102) !!!
!!! This is not supported. !!!
!!! Host kernel must be same or newer than jail. !!!
!!! Expect build failures. !!!
---Begin Environment---
SHELL=/bin/csh
UNAME_p=armv6
UNAME_m=arm
ABI_FILE=/usr/lib/crt1.o
UNAME_v=FreeBSD 11.0-CURRENT r298221
UNAME_r=11.0-CURRENT
BLOCKSIZE=K
MAIL=/var/mail/root
STATUS=1
OPSYS=FreeBSD
ARCH=armv6
LINUX_OSRELEASE=2.6.32
SAVED_TERM=screen
QEMU_EMULATING=1
MASTERMNT=/usr/local/poudriere/data/.m/head-armv6-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=11.0
_OSRELEASE=11.0-CURRENT
PYTHONBASE=/usr/local
OLDPWD=/
_SMP_CPUS=24
PWD=/usr/local/poudriere/data/.m/head-armv6-default/ref/.p/pool
MASTERNAME=head-armv6-default
SCRIPTPREFIX=/usr/local/share/poudriere
_JAVA_VENDOR_LIST_REGEXP=openjdk\|oracle\|sun
USER=root
HOME=/root
POUDRIERE_VERSION=3.1.12
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=1100105
---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 WITHOUT_DEBUG_FILES=yes WITHOUT_KERNEL_SYMBOLS=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 -mfloat-abi=softfp -Wall -Wwrite-strings -Wmissing-declarations -Wredundant-decls -Wcast-qual -Wno-unused-label -Wno-uninitialized -Wl,-rpath=/usr/local/lib/gcc48 -fno-strict-aliasing" CPP="cpp48" CPPFLAGS="-I/usr/local/include" LDFLAGS=" -L/usr/local/lib -Wl,-rpath=/usr/local/lib/gcc48
-L/usr/local/lib/gcc48" LIBS="" CXX="g++48" CXXFLAGS="-O2 -pipe -mfloat-abi=softfp -Wall -Wwrite-strings -Wmissing-declarations -Wredundant-decls -Wcast-qual -Wno-unused-label -Wno-uninitialized -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=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---
CC=/nxb-bin/usr/bin/cc
CPP=/nxb-bin/usr/bin/cpp
CXX=/nxb-bin/usr/bin/c++
AS=/nxb-bin/usr/bin/as
NM=/nxb-bin/usr/bin/nm
LD=/nxb-bin/usr/bin/ld
OBJCOPY=/nxb-bin/usr/bin/objcopy
SIZE=/nxb-bin/usr/bin/size
STRIPBIN=/nxb-bin/usr/bin/strip
SED=/nxb-bin/usr/bin/sed
READELF=/nxb-bin/usr/bin/readelf
RANLIB=/nxb-bin/usr/bin/ranlib
YACC=/nxb-bin/usr/bin/yacc
NM=/nxb-bin/usr/bin/nm
MAKE=/nxb-bin/usr/bin/make
STRINGS=/nxb-bin/usr/bin/strings
AWK=/nxb-bin/usr/bin/awk
FLEX=/nxb-bin/usr/bin/flex
CC=/nxb-bin/usr/bin/cc
CPP=/nxb-bin/usr/bin/cpp
CXX=/nxb-bin/usr/bin/c++
AS=/nxb-bin/usr/bin/as
NM=/nxb-bin/usr/bin/nm
LD=/nxb-bin/usr/bin/ld
OBJCOPY=/nxb-bin/usr/bin/objcopy
SIZE=/nxb-bin/usr/bin/size
STRIPBIN=/nxb-bin/usr/bin/strip
SED=/nxb-bin/usr/bin/sed
READELF=/nxb-bin/usr/bin/readelf
RANLIB=/nxb-bin/usr/bin/ranlib
YACC=/nxb-bin/usr/bin/yacc
NM=/nxb-bin/usr/bin/nm
MAKE=/nxb-bin/usr/bin/make
STRINGS=/nxb-bin/usr/bin/strings
AWK=/nxb-bin/usr/bin/awk
FLEX=/nxb-bin/usr/bin/flex
CC=/nxb-bin/usr/bin/cc
CPP=/nxb-bin/usr/bin/cpp
CXX=/nxb-bin/usr/bin/c++
AS=/nxb-bin/usr/bin/as
NM=/nxb-bin/usr/bin/nm
LD=/nxb-bin/usr/bin/ld
OBJCOPY=/nxb-bin/usr/bin/objcopy
SIZE=/nxb-bin/usr/bin/size
STRIPBIN=/nxb-bin/usr/bin/strip
SED=/nxb-bin/usr/bin/sed
READELF=/nxb-bin/usr/bin/readelf
RANLIB=/nxb-bin/usr/bin/ranlib
YACC=/nxb-bin/usr/bin/yacc
NM=/nxb-bin/usr/bin/nm
MAKE=/nxb-bin/usr/bin/make
STRINGS=/nxb-bin/usr/bin/strings
AWK=/nxb-bin/usr/bin/awk
FLEX=/nxb-bin/usr/bin/flex
CC=/nxb-bin/usr/bin/cc
CPP=/nxb-bin/usr/bin/cpp
CXX=/nxb-bin/usr/bin/c++
AS=/nxb-bin/usr/bin/as
NM=/nxb-bin/usr/bin/nm
LD=/nxb-bin/usr/bin/ld
OBJCOPY=/nxb-bin/usr/bin/objcopy
SIZE=/nxb-bin/usr/bin/size
STRIPBIN=/nxb-bin/usr/bin/strip
SED=/nxb-bin/usr/bin/sed
READELF=/nxb-bin/usr/bin/readelf
RANLIB=/nxb-bin/usr/bin/ranlib
YACC=/nxb-bin/usr/bin/yacc
NM=/nxb-bin/usr/bin/nm
MAKE=/nxb-bin/usr/bin/make
STRINGS=/nxb-bin/usr/bin/strings
AWK=/nxb-bin/usr/bin/awk
FLEX=/nxb-bin/usr/bin/flex
CC=/nxb-bin/usr/bin/cc
CPP=/nxb-bin/usr/bin/cpp
CXX=/nxb-bin/usr/bin/c++
AS=/nxb-bin/usr/bin/as
NM=/nxb-bin/usr/bin/nm
LD=/nxb-bin/usr/bin/ld
OBJCOPY=/nxb-bin/usr/bin/objcopy
SIZE=/nxb-bin/usr/bin/size
STRIPBIN=/nxb-bin/usr/bin/strip
SED=/nxb-bin/usr/bin/sed
READELF=/nxb-bin/usr/bin/readelf
RANLIB=/nxb-bin/usr/bin/ranlib
YACC=/nxb-bin/usr/bin/yacc
NM=/nxb-bin/usr/bin/nm
<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:42ad8898> . #<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:42ad4e08> (#@exact? #@0+1))) (#@if #@#<id x:42ad4e08> (#@let ((#<id x:42ad4940> (#@not (#@let ((#<id x:42ad4430> (#@zero? #@#<id x:42ad4e08>))) (#@if #@#<id x:42ad4430> (#@let ((#<id x:42ad3d60> (#@negative? #@2+1))) (#@if #@#<id x:42ad3d60> #<id x:42ad3d60> #f)) #f))))) (#@if #@#<id x:42ad4940> #@#<id x:42ad4940> #f)) #f)) (#
@integer-expt #@z1 #@z2) (#<id cond-aux:42ad5120> ((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:42ad8898> . #<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:42ad4e08> (#@exact? #@0+1))) (#@if #@#<id x:42ad4e08> (#@let ((#<id x:42ad4940> (#@not (#@let ((#<id x:42ad4430> (#@zero? #@#<id x:42ad4e08>))) (#@if #@#<id x:42ad4430> (#@let ((#<id x:42ad3d60> (#@negative? #@2+1))) (#@if #@#<id x:42ad3d60> #<id x:42ad3d60> #f)) #f))))) (#@if #@#<id x:42ad4940> #@#<id x:42ad4940> #f)) #f)) (#
@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:42b0ab40> (#@real? #@0+1))) (#@if #@#<id x:42b0ab40> (#@let ((#<id x:42b0a678> (#@real? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a678> (#@let ((#<id x:42b0a228> (#@positive? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a228> #<id x:42b0a228> #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:42ad8898> . #<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:42ad4e08> (#@exact? #@0+1))) (#@if #@#<id x:42ad4e08> (#@let ((#<id x:42ad4940> (#@not (#@let ((#<id x:42ad4430> (#@zero? #@#<id x:42ad4e08>))) (#@if #@#<id x:42ad4430> (#@let ((#<id x:42ad3d60> (#@negative? #@2+1))) (#@if #@#<id x:42ad3d60> #<id x:42ad3d60> #f)) #f))))) (#@if #@#<id x:42ad4940> #@#<id x:42ad4940> #f)) #f)) (#
@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:42b0ab40> (#@real? #@0+1))) (#@if #@#<id x:42b0ab40> (#@let ((#<id x:42b0a678> (#@real? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a678> (#@let ((#<id x:42b0a228> (#@positive? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a228> #<id x:42b0a228> #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:42ad8898> . #<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:42ad4e08> (#@exact? #@0+1))) (#@if #@#<id x:42ad4e08> (#@let ((#<id x:42ad4940> (#@not (#@let ((#<id x:42ad4430> (#@zero? #@#<id x:42ad4e08>))) (#@if #@#<id x:42ad4430> (#@let ((#<id x:42ad3d60> (#@negative? #@2+1))) (#@if #@#<id x:42ad3d60> #<id x:42ad3d60> #f)) #f))))) (#@if #@#<id x:42ad4940> #@#<id x:42ad4940> #f)) #f)) (#
@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (+ 1 (* z1 z2)) (#@if (#@let ((#<id x:42b0ab40> (#@real? #@0+1))) (#@if #@#<id x:42b0ab40> (#@let ((#<id x:42b0a678> (#@real? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a678> (#@let ((#<id x:42b0a228> (#@positive? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a228> #<id x:42b0a228> #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:42ad8898> . #<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:42ad4e08> (#@exact? #@0+1))) (#@if #@#<id x:42ad4e08> (#@let ((#<id x:42ad4940> (#@not (#@let ((#<id x:42ad4430> (#@zero? #@#<id x:42ad4e08>))) (#@if #@#<id x:42ad4430> (#@let ((#<id x:42ad3d60> (#@negative? #@2+1))) (#@if #@#<id x:42ad3d60> #<id x:42ad3d60> #f)) #f))))) (#@if #@#<id x:42ad4940> #@#<id x:42ad4940> #f)) #f)) (#
@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:42b0ab40> (#@real? #@0+1))) (#@if #@#<id x:42b0ab40> (#@let ((#<id x:42b0a678> (#@real? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a678> (#@let ((#<id x:42b0a228> (#@positive? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a228> #<id x:42b0a228> #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:42ad8898> . #<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:42ad4e08> (#@exact? #@0+1))) (#@if #@#<id x:42ad4e08> (#@let ((#<id x:42ad4940> (#@not (#@let ((#<id x:42ad4430> (#@zero? #@#<id x:42ad4e08>))) (#@if #@#<id x:42ad4430> (#@let ((#<id x:42ad3d60> (#@negative? #@2+1))) (#@if #@#<id x:42ad3d60> #<id x:42ad3d60> #f)) #f))))) (#@if #@#<id x:42ad4940> #@#<id x:42ad4940> #f)) #f)) (#
@integer-expt #@z1 #@z2) (#@if (#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2)) (#@if (#@let ((#<id x:42b0ab40> (#@real? #@0+1))) (#@if #@#<id x:42b0ab40> (#@let ((#<id x:42b0a678> (#@real? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a678> (#@let ((#<id x:42b0a228> (#@positive? #@#<id x:42b0ab40>))) (#@if #@#<id x:42b0a228> #<id x:42b0a228> #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 (+ 300.e-102 (* -51 50.75883674631298e-117))
299.9999999999974e-102
299.9999999999974e-102
(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:42b1e1c8> (eot) (#<id let*:42b1e538> ((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:42b024d8> . #<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
More information about the freebsd-pkg-fallout
mailing list