Getting the name of file-like objects

[Justin Veilleux]

    Hi everyone. I'm currently writing a set of helper functions
    (usually written using `computed-file`  which act on file like
    objects to transform them in some way.
    For instance, I have a `decompress` function which, given a
    file-like object pointing to an archive, will return a computed file
    object which it will decompress to it's output.
    Everything works very well, but I would like to be able to name the
    `computed-file` objects something meaningfull.
```
(define (unzip f)
  (computed-file (string-append (name f) "-unzipped")
    #~(begin
        (system* (string-append #$unzip "/bin/unzip")
                 "-d" #$output
                 #$file))
         #$out))
```

Is there someting which ressembles the imaginary `name` function I used above?

Cheers.