Hello again,
Moritz Heidkamp mor...@twoticketsplease.de writes:
1. It dumps compilation results in ~/.cache by default. This, however,
is a bit like dumping stuff in /usr/share so I think it would be
better to make this ~/.cache/chicken-inline or something.
Mario just pointed out to me in #chicken that the current default is
actually .cache, not ~/.cache. It just happened to be that I ran csi
from my home when trying it out and then I didn't properly read the code
when hacking up the patch. Considering that this default directory is
apparently meant as a relative path I propose the attached new version
which sets it to .chicken-inline by default.
Moritz
Index: inline.scm
===
--- inline.scm (revision 28291)
+++ inline.scm (working copy)
@@ -39,7 +39,7 @@
(define (inline-eval x . o)
(inline-compile x (if (pair? o) (car o) ) #t))
-(define-constant default-inline-cache-name .cache)
+(define-constant default-inline-cache-name .chicken-inline)
(define windows-shell (foreign-value C_WINDOWS_SHELL bool))
(define inline-cache (make-parameter default-inline-cache-name))
@@ -94,7 +94,6 @@
(zero? (system (sprintf cmp -s ~A ~A (qs a) (qs b )))
(define (ensure-cache)
- (unless (file-exists? (inline-cache))
-(create-directory (inline-cache)) ) )
+ (create-directory (inline-cache) #t) )
)
___
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers