Custom Query (1630 matches)

The following example fails, because ##sys#register-export in expand.scm doesn't find the (probably aliased) toplevel identifier.

(module zzz (zap)
  (import scheme chicken)

  (define-syntax (zap x r c)
    `(,(r 'define) ,(r (string->symbol (string-append "make-" (symbol->string (cadr x)))))
      99)))

(module foo (make-graphics)
  (import scheme chicken zzz)
  ; adding "(define make-graphics)" would make this example work
  (zap graphics)
)

If the scheduler is currently running, then CHICKEN_interrupt() is ineffective. This is unfortunate, since it provides an easy way to let native threads signal events to Scheme.

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.