mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-01 01:17:02 +00:00
6a68b60f92
A Unix shell embedded into Scheme, with access to all Posix calls Reviewed by: max Submitted by: cracauer@cons.org "Martin Cracauer"
20 lines
608 B
Plaintext
20 lines
608 B
Plaintext
*** scsh/scsh.scm.original Tue Nov 26 17:15:00 1996
|
|
--- scsh/scsh.scm Tue Nov 26 17:15:06 1996
|
|
***************
|
|
*** 298,304 ****
|
|
(list (string-append (car maybe-prefix) ".~a"))))))
|
|
|
|
(define *temp-file-template*
|
|
! (make-fluid (string-append "/usr/tmp/" (number->string (pid)) ".~a")))
|
|
|
|
|
|
(define (temp-file-iterate maker . maybe-template)
|
|
--- 298,304 ----
|
|
(list (string-append (car maybe-prefix) ".~a"))))))
|
|
|
|
(define *temp-file-template*
|
|
! (make-fluid (string-append "/var/tmp/" (number->string (pid)) ".~a")))
|
|
|
|
|
|
(define (temp-file-iterate maker . maybe-template)
|