gentoo-overlay/dev-scheme/scheme48/files/CVE-2014-4150.patch

--- 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)))))