Skip to content

Instantly share code, notes, and snippets.

@serian

serian/cptmp.scm

Created April 28, 2010 14:44
Show Gist options
  • Save serian/382230 to your computer and use it in GitHub Desktop.
Save serian/382230 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cptmp.scm
;Gauche
;システムの一時ディレクトリにファイルを上書きコピー
;キーワード引き数は小文字で
(use file.util)
(define src-file-name "cptmp.scm")
(define src-dir "/d/home/serian")
(define tmp-file (build-path (temporary-directory) src-file-name))
(copy-file (build-path src-dir src-file-name) tmp-file :if-exists :supersede)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment