Custom Query (1630 matches)

There is a problem with (require) that is admittedly rare. If you are in a directory: $ ls foo foo.so

attempting to (require 'foo) will load the "foo" executable instead of "foo.so". However, in the case below: $ ls foo

attempting to (require 'foo) correctly results in an error.

The reason is that ##sys#find-extension returns "foo" in both cases and then ##sys#load attempts to load the literal path before appending any .so or .scm extension. That works unless an executable is in the way. The root cause is that find-extension knows the exact path but doesn't pass that on to load.

Priority minor because this shouldn't affect installed extensions, just development files in the current directory.

find-files traverses symlinks. This behavior isn't specifically documented so I would like to know if it is correct (and I will document) or incorrect.

~/tmp$ ls -lR foo
total 8
lrwxr-xr-x  1 jim  jim  1 Nov 28 20:45 bar@ -> .
-rw-r--r--  1 jim  jim  0 Nov 28 20:39 baz

~/tmp$ csi4 -R posix -e '(find-files "foo" identity (lambda (x xs) (print x))
         #f 2)'
foo/bar
foo/bar/bar
foo/bar/bar/bar
foo/bar/bar/baz
foo/bar/baz
foo/baz

If I set a LIMIT procedure to check for symlink it will not traverse it.

~/tmp$ csi4 -R posix -e '(find-files "foo" identity (lambda (x xs) (print x))
         #f (lambda (x) (not (symbolic-link? x))))'
foo/bar
foo/baz

If I use directory? as limit procedure the symlink traversal is still done because directory? reads through the link, so it prints out a large yet attractive triangle.

Actually I would also like to know if this behavior is correct for directory?, and I will document that result too.

And will clobber memory. It does detect the error when the offsets are too large though.

(define b (string->blob (make-string 10 #\nul)))
(move-memory! "foo" b 3 0 7)      ; ok
,d b
blob of size 10:
   0: 00 00 00 00 00 00 00 66 6f 6f      .......foo

(move-memory! "foo" b 3 0 8)      ; error (out of range)
(move-memory! "xyz" b 3 -1 0)     ; succeeds
,d b
blob of size 10:
   0: 42 78 79 00 00 00 00 66 6f 6f      Byz....foo

(move-memory! "xyz" b 3 0 -1)     ; succeeds
,d b
unknown object