delete-directory* doesn't delete hidden directory

Preparation:

$ mkdir -p dir/.test
$ touch dir/.test/hoge
$ touch dir/foo

Run the following script:

(import (rnrs) (util file))

(delete-directory* "dir")

This should work but got the following stack trace:

Unhandled exception
  Condition components:
  1. &assertion
  2. &who delete-directory
  3. &message Directory not empty
  4. &irritants dir
  5. &stack-trace

stack trace:
  [1] delete-directory
  [2] load

Comments (1)