Browse files

Avoid double slash with make-pathname

Also correct spelling and hopefully nicer quotation.
  • Loading branch information...
1 parent ba56d21 commit b151898421556bdeb906a490b6c6904895d720f0 @ckeen committed May 14, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 pastiche.scm
@@ -47,8 +47,8 @@
(define (notify nick title url)
(when vandusen-host
- (let ((stuff (sprintf "#chicken ~a posted \"~a\" ~a"
- nick title (string-append base-url "/" url))))
+ (let ((stuff (sprintf "#chicken ~s pasted ~s ~a"
+ nick title (make-pathname base-url url))))
(let-values (((i o) (tcp-connect vandusen-host vandusen-port)))
(display stuff o)
(newline o)

0 comments on commit b151898

Please sign in to comment.