diff options
Diffstat (limited to 'dev-scheme/scheme48/files')
| -rw-r--r-- | dev-scheme/scheme48/files/50scheme48-gentoo.el | 10 | ||||
| -rw-r--r-- | dev-scheme/scheme48/files/CVE-2014-4150.patch | 11 |
2 files changed, 21 insertions, 0 deletions
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))))) |