display-dir-of-file.scm 70 B

12345
  1. (display
  2. (simple-format
  3. #f "~a\n"
  4. (dirname (current-filename))))