add Windows path support

The `base-name` procedure does not support Windows path. e.g.
```scheme
> (base-name "..\\mk\\mk-c.scm")
"."
```
`diff-lisp.exe ..\mk\mk-c1.scm ..\mk\mk-c2.scm` will generate a html file named `.-..html`


This commit can fix this.