Fix linux arm64 MCP client build
ober
d984b606e2d515242da2cfe44ad19c10e5078c43
--- a/src/jcode/mcp/client.ss +++ b/src/jcode/mcp/client.ss @@ -88,8 +88,8 @@ (def (record-mcp-call! conn method id params started-ms status result error-text) (let* ((rec (make-hash-table)) (duration (- (current-time-ms) started-ms)) - (tool-name (and (hash-table? params) (hash-get params "name" #f))) - (args (and (hash-table? params) (hash-get params "arguments" #f)))) + (tool-name (and (hash-table? params) (hash-ref params "name" #f))) + (args (and (hash-table? params) (hash-ref params "arguments" #f)))) (hash-put! rec "server" (mcp-conn-name conn)) (hash-put! rec "method" method) (hash-put! rec "id" id)