diff --git a/doc/tutorials/kvstore.md b/doc/tutorials/kvstore.md index 76d416885..7464831b3 100644 --- a/doc/tutorials/kvstore.md +++ b/doc/tutorials/kvstore.md @@ -188,7 +188,7 @@ responding to messages using the `<-` reaction macro: val))) (!!value val k)) (catch (e) - (log-error "kvstore.get" e) + (errorf "kvstore.get ~a" e) (!!error (error-message e) k)))) ((!kvstore.ref key k) @@ -198,7 +198,7 @@ responding to messages using the `<-` reaction macro: (!!error "No object associated with key" k) (!!value val k))) (catch (e) - (log-error "kvstore.ref" e) + (errorf "kvstore.ref ~a" e) (!!error (error-message e) k)))) ((!kvstore.put! key val k) @@ -206,7 +206,7 @@ responding to messages using the `<-` reaction macro: (put! key val) (!!value (void) k) (catch (e) - (log-error "kvstore.put!" e) + (errorf "kvstore.put! ~a" e) (!!error (error-message e) k)))) ((!kvstore.remove! key k) @@ -214,7 +214,7 @@ responding to messages using the `<-` reaction macro: (remove! key) (!!value (void) k) (catch (e) - (log-error "kvstore.remove!" e) + (errorf "kvstore.remove! ~a" e) (!!error (error-message e) k)))) (what diff --git a/doc/tutorials/proxy.md b/doc/tutorials/proxy.md index 740b024aa..bb3b7de97 100644 --- a/doc/tutorials/proxy.md +++ b/doc/tutorials/proxy.md @@ -78,7 +78,7 @@ For each connection, it logs it and spawns a thread to proxy it: (debug "Accepted connection from ~a" (socket-address->string caddr)) (spawn proxy cli raddr))) (catch (e) - (log-error "Error accepting connection" e)))))) + (errorf "Error accepting connection ~a" e)))))) ``` ### Connection proxying @@ -102,7 +102,7 @@ mode. (spawn proxy-io clisock srvsock) (spawn proxy-io srvsock clisock))) (catch (e) - (log-error "Error creating proxy" e)))) + (errorf "Error creating proxy ~a" e)))) (def (proxy-io isock osock) (def buf (make-u8vector 4096)) @@ -132,7 +132,7 @@ mode. (lp2 (fx+ start wr))))) (lp)))))))) (catch (e) - (log-error "Error proxying connection" e) + (errorf "Error proxying connection ~a" e) (close-input-port isock) (close-output-port osock)))) ``` @@ -210,7 +210,7 @@ address and then loops accepting connections to proxy: (debug "Accepted connection from ~a" (socket-address->string sa)) (spawn proxy cli)) (catch (e) - (log-error "Error accepting connection" e)))))) + (errorf "Error accepting connection ~a" e)))))) ``` ### The proxy function @@ -223,7 +223,7 @@ This procedure performs a handshake, establishing proxying according to the requ (spawn proxy-io clisock srvsock) (spawn proxy-io srvsock clisock)) (catch (e) - (log-error "Error creating proxy" e)))) + (errorf "Error creating proxy ~a" e)))) ``` The `proxy-handshake` function contains the details of the protocol implementation, @@ -335,7 +335,7 @@ through the socket server: (ssocket-send-all osock buf 0 rd) (lp))))) (catch (e) - (log-error "Error proxying connection" e) + (errorf "Error proxying connection ~a" e) (ssocket-close-input isock) (ssocket-close-output osock #t)))) ``` diff --git a/src/tutorial/kvstore/kvstored.ss b/src/tutorial/kvstore/kvstored.ss index 03d0b8fc8..78ab26581 100644 --- a/src/tutorial/kvstore/kvstored.ss +++ b/src/tutorial/kvstore/kvstored.ss @@ -60,7 +60,7 @@ val))) (!!value val k)) (catch (e) - (log-error "kvstore.get" e) + (errorf "kvstore.get ~a" e) (!!error (error-message e) k)))) ((!kvstore.ref key k) @@ -70,7 +70,7 @@ (!!error "No object associated with key" k) (!!value val k))) (catch (e) - (log-error "kvstore.ref" e) + (errorf "kvstore.ref ~a" e) (!!error (error-message e) k)))) ((!kvstore.put! key val k) @@ -78,7 +78,7 @@ (put! key val) (!!value (void) k) (catch (e) - (log-error "kvstore.put!" e) + (errorf "kvstore.put! ~a" e) (!!error (error-message e) k)))) ((!kvstore.remove! key k) @@ -86,7 +86,7 @@ (remove! key) (!!value (void) k) (catch (e) - (log-error "kvstore.remove!" e) + (errorf "kvstore.remove! ~a" e) (!!error (error-message e) k)))) (what diff --git a/src/tutorial/proxy/socks-proxy.ss b/src/tutorial/proxy/socks-proxy.ss index 8d2cd3329..3f7c476a9 100644 --- a/src/tutorial/proxy/socks-proxy.ss +++ b/src/tutorial/proxy/socks-proxy.ss @@ -19,7 +19,7 @@ (debug "Accepted connection from ~a" (socket-address->string sa)) (spawn proxy cli)) (catch (e) - (log-error "Error accepting connection" e)))))) + (errorf "Error accepting connection ~a" e)))))) (def (proxy clisock) (try @@ -27,7 +27,7 @@ (spawn proxy-io clisock srvsock) (spawn proxy-io srvsock clisock)) (catch (e) - (log-error "Error creating proxy" e)))) + (errorf "Error creating proxy ~a" e)))) ;;; SOCKS4 ;; Request: @@ -144,7 +144,7 @@ (ssocket-send-all osock buf 0 rd) (lp))))) (catch (e) - (log-error "Error proxying connection" e) + (errorf "Error proxying connection ~a" e) (ssocket-close-input isock) (ssocket-close-output osock #t)))) diff --git a/src/tutorial/proxy/tcp-proxy.ss b/src/tutorial/proxy/tcp-proxy.ss index 55a345f52..cb907e9d9 100644 --- a/src/tutorial/proxy/tcp-proxy.ss +++ b/src/tutorial/proxy/tcp-proxy.ss @@ -28,7 +28,7 @@ (debug "Accepted connection from ~a" (socket-address->string caddr)) (spawn proxy cli raddr))) (catch (e) - (log-error "Error accepting connection" e)))))) + (errorf "Error accepting connection ~a" e)))))) (def (proxy clisock raddr) (try @@ -42,7 +42,7 @@ (spawn proxy-io clisock srvsock) (spawn proxy-io srvsock clisock))) (catch (e) - (log-error "Error creating proxy" e)))) + (errorf "Error creating proxy ~a" e)))) (def (proxy-io isock osock) (def buf (make-u8vector 4096)) @@ -72,7 +72,7 @@ (lp2 (fx+ start wr))))) (lp)))))))) (catch (e) - (log-error "Error proxying connection" e) + (errorf "Error proxying connection ~a" e) (close-input-port isock) (close-output-port osock))))