From c79eaf055fe998a79b03f653185b58630568ed99 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 24 Oct 2011 14:34:22 -0400 Subject: [PATCH] Flag TODOs as such --- ssh-session.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/ssh-session.rkt b/ssh-session.rkt index f3693b4..035798a 100644 --- a/ssh-session.rkt +++ b/ssh-session.rkt @@ -500,35 +500,35 @@ SSH_MSG_CHANNEL_REQUEST handle-msg-channel-request)) (define (handle-msg-global-request packet message conn) - (log-error "Unimplemented: handle-msg-global-request") + (log-error "TODO: Unimplemented: handle-msg-global-request") conn) (define (handle-msg-channel-open packet message conn) - (log-error "Unimplemented: handle-msg-channel-open") + (log-error "TODO: Unimplemented: handle-msg-channel-open") conn) (define (handle-msg-window-adjust packet message conn) - (log-error "Unimplemented: handle-msg-window-adjust") + (log-error "TODO: Unimplemented: handle-msg-window-adjust") conn) (define (handle-msg-channel-data packet message conn) - (log-error "Unimplemented: handle-msg-channel-data") + (log-error "TODO: Unimplemented: handle-msg-channel-data") conn) (define (handle-msg-channel-extended-data packet message conn) - (log-error "Unimplemented: handle-msg-channel-extended-data") + (log-error "TODO: Unimplemented: handle-msg-channel-extended-data") conn) (define (handle-msg-channel-eof packet message conn) - (log-error "Unimplemented: handle-msg-channel-eof") + (log-error "TODO: Unimplemented: handle-msg-channel-eof") conn) (define (handle-msg-channel-close packet message conn) - (log-error "Unimplemented: handle-msg-channel-close") + (log-error "TODO: Unimplemented: handle-msg-channel-close") conn) (define (handle-msg-channel-request packet message conn) - (log-error "Unimplemented: handle-msg-channel-request") + (log-error "TODO: Unimplemented: handle-msg-channel-request") conn) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;