[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [MIT-Scheme-devel] working directory
From: |
Taylor R Campbell |
Subject: |
Re: [MIT-Scheme-devel] working directory |
Date: |
Sun, 13 Feb 2011 19:50:25 +0000 |
User-agent: |
IMAIL/1.21; Edwin/3.116; MIT-Scheme/9.0.1 |
Date: Sun, 13 Feb 2011 19:47:25 +0000
From: Taylor R Campbell <address@hidden>
(fluid-let ((*default-pathname-defaults*
(->pathname "~/scheme/mit/git/work/src")))
(call-with-input-file "makefiles_created" read-line))
;Value: "i386"
Oops, ten-fingered copy & paste error. Should have been:
(fluid-let ((*default-pathname-defaults*
(->pathname "~/scheme/mit/git/work/src/")))
(call-with-input-file "makefiles_created" read-line))