I've pushed this one to the scheme package:
2014-05-25 Michael Sperber <mike(a)xemacs.org>
* cmuscheme48.el (scheme48-send-definition): Use `make-temp-file'
instead of a constant file name.
--
Regards,
Mike
diff --git a/cmuscheme48.el b/cmuscheme48.el
--- a/cmuscheme48.el
+++ b/cmuscheme48.el
@@ -77,7 +77,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)))))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches