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.