From 4f2d7949f03e1c198bc888f2d05f421d35c57e21 Mon Sep 17 00:00:00 2001
From: V3n3RiX <venerix@redcorelinux.org>
Date: Mon, 9 Oct 2017 18:53:29 +0100
Subject: reinit the tree, so we can have metadata

---
 dev-scheme/scheme48/files/50scheme48-gentoo.el | 10 ++++++++++
 dev-scheme/scheme48/files/CVE-2014-4150.patch  | 11 +++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 dev-scheme/scheme48/files/50scheme48-gentoo.el
 create mode 100644 dev-scheme/scheme48/files/CVE-2014-4150.patch

(limited to 'dev-scheme/scheme48/files')

diff --git a/dev-scheme/scheme48/files/50scheme48-gentoo.el b/dev-scheme/scheme48/files/50scheme48-gentoo.el
new file mode 100644
index 000000000000..fe378e6a7081
--- /dev/null
+++ b/dev-scheme/scheme48/files/50scheme48-gentoo.el
@@ -0,0 +1,10 @@
+;;; scheme48 site-lisp configuration
+
+(add-to-list 'load-path "@SITELISP@")
+
+(setq scheme-program-name "scheme48")
+(autoload 'run-scheme
+	  "cmuscheme48"
+	  "Run an inferior Scheme process."
+	  t)
+
diff --git a/dev-scheme/scheme48/files/CVE-2014-4150.patch b/dev-scheme/scheme48/files/CVE-2014-4150.patch
new file mode 100644
index 000000000000..9457fbe7b3c0
--- /dev/null
+++ b/dev-scheme/scheme48/files/CVE-2014-4150.patch
@@ -0,0 +1,11 @@
+--- a/emacs/cmuscheme48.el	2012-12-28 01:43:30.000000000 +0900
++++ b/emacs/cmuscheme48.el	2016-07-05 20:06:19.200173816 +0900
+@@ -58,7 +58,7 @@
+    (let ((end (point)))
+      (beginning-of-defun)
+      (if losep
+-	 (let ((loser "/tmp/s48lose.tmp"))
++	 (let ((loser (make-temp-file "s48lose")))
+ 	   (write-region (point) end loser)
+ 	   (scheme48-load-file loser))
+ 	 (scheme48-send-region (point) end)))))
-- 
cgit v1.2.3