development/racket: Updated for version 7.8.
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
This commit is contained in:
parent
ff4fc5047d
commit
afbf3efec8
|
@ -5,3 +5,9 @@ language is used in a variety of contexts such as scripting, general-purpose
|
|||
programming, computer science education, and research. (source: Wikipedia)
|
||||
|
||||
racket is the command line version, drracket is the GUI-version
|
||||
|
||||
This SlackBuild uses the src + built packages distribution. It builds
|
||||
faster as it contains platform-independent bytecode. If you wish to build
|
||||
from pure source code can be downloaded from the racket site:
|
||||
|
||||
https://download.racket-lang.org/
|
||||
|
|
|
@ -3,6 +3,7 @@
|
|||
# Slackware build script for racket
|
||||
|
||||
# Copyright 2013-2014 Markus Hutmacher, Germany <mailing@markhu.de>
|
||||
# Copyright 2020 Jeff Parent, US <jeff+SBo@sh0.xyz>
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use of this script, with or without modification, is
|
||||
|
@ -23,8 +24,8 @@
|
|||
# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
PRGNAM=racket
|
||||
VERSION=${VERSION:-6.4}
|
||||
SUFFIX=src # suffix of the UNIX sourcepackage
|
||||
VERSION=${VERSION:-7.8}
|
||||
SUFFIX=src-builtpkgs # suffix of the UNIX sourcepackage
|
||||
BUILD=${BUILD:-1}
|
||||
TAG=${TAG:-_SBo}
|
||||
|
||||
|
@ -70,10 +71,6 @@ find -L . \
|
|||
\( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \
|
||||
-o -perm 440 -o -perm 400 \) -exec chmod 644 {} \;
|
||||
|
||||
# https://github.com/racket/racket/issues/1222
|
||||
# http://copr-dist-git.fedorainfracloud.org/cgit/bthomas/racket/racket.git/plain/xform-errors-converting-fix.patch
|
||||
patch -p1 < $CWD/xform-errors-converting-fix.patch
|
||||
|
||||
mkdir src/build
|
||||
cd src/build
|
||||
|
||||
|
|
|
@ -1,10 +1,10 @@
|
|||
PRGNAM="racket"
|
||||
VERSION="6.4"
|
||||
VERSION="7.8"
|
||||
HOMEPAGE="http://racket-lang.org/"
|
||||
DOWNLOAD="http://mirror.informatik.uni-tuebingen.de/mirror/racket/6.4/racket-6.4-src.tgz"
|
||||
MD5SUM="9938340227b3f31843dc87cb17ec21c5"
|
||||
DOWNLOAD="https://mirror.racket-lang.org/installers/7.8/racket-7.8-src-builtpkgs.tgz"
|
||||
MD5SUM="52c264e23d68f2d627989ca29ba4f547"
|
||||
DOWNLOAD_x86_64=""
|
||||
MD5SUM_x86_64=""
|
||||
REQUIRES=""
|
||||
MAINTAINER="Markus Hutmacher"
|
||||
EMAIL="mailing@markhu.de"
|
||||
MAINTAINER="Jeff Parent"
|
||||
EMAIL="jeff+SBo@sh0.xyz"
|
||||
|
|
|
@ -1,57 +0,0 @@
|
|||
diff -Naur racket-6.3/src/racket/src/bool.c my-racket-6.3/src/racket/src/bool.c
|
||||
--- racket-6.3/src/racket/src/bool.c 2015-10-16 17:00:55.000000000 -0400
|
||||
+++ my-racket-6.3/src/racket/src/bool.c 2016-01-23 12:04:20.710628127 -0500
|
||||
@@ -202,6 +202,9 @@
|
||||
return SAME_OBJ(obj1, obj2);
|
||||
}
|
||||
|
||||
+#ifdef MZ_XFORM
|
||||
+START_XFORM_SKIP;
|
||||
+#endif
|
||||
#ifdef MZ_LONG_DOUBLE
|
||||
XFORM_NONGCING static MZ_INLINE int mz_long_double_eqv(long_double a, long_double b)
|
||||
{
|
||||
@@ -239,6 +242,10 @@
|
||||
# endif
|
||||
}
|
||||
#endif
|
||||
+
|
||||
+#ifdef MZ_XFORM
|
||||
+START_XFORM_SKIP;
|
||||
+#endif
|
||||
XFORM_NONGCING static MZ_INLINE int double_eqv(double a, double b)
|
||||
{
|
||||
# ifndef NAN_EQUALS_ANYTHING
|
||||
@@ -419,6 +426,9 @@
|
||||
|
||||
return -1;
|
||||
}
|
||||
+#ifdef MZ_XFORM
|
||||
+END_XFORM_SKIP;
|
||||
+#endif
|
||||
|
||||
int is_slow_equal (Scheme_Object *obj1, Scheme_Object *obj2)
|
||||
{
|
||||
diff -Naur racket-6.3/src/racket/src/number.c my-racket-6.3/src/racket/src/number.c
|
||||
--- racket-6.3/src/racket/src/number.c 2015-10-16 17:00:55.000000000 -0400
|
||||
+++ my-racket-6.3/src/racket/src/number.c 2016-01-23 12:05:08.076767488 -0500
|
||||
@@ -1917,6 +1917,9 @@
|
||||
return (is_rational(argv[0]) ? scheme_true : scheme_false);
|
||||
}
|
||||
|
||||
+#ifdef MZ_XFORM
|
||||
+START_XFORM_SKIP;
|
||||
+#endif
|
||||
XFORM_NONGCING static int double_is_integer(double d)
|
||||
{
|
||||
# ifdef NAN_EQUALS_ANYTHING
|
||||
@@ -1943,6 +1946,9 @@
|
||||
|
||||
return 0;
|
||||
}
|
||||
+#ifdef MZ_XFORM
|
||||
+END_XFORM_SKIP;
|
||||
+#endif
|
||||
|
||||
|
||||
static Scheme_Object *
|
Loading…
Reference in New Issue