diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-03-06 23:41:26 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-03-06 23:41:26 +0100 |
| commit | 3c1d01f4e741cdae4e8d03416d689dcebb8a487e (patch) | |
| tree | 19dd169d86b889800a8dca741ca228e00c66b493 | |
| parent | a6312956b57ba9d686da8970c0e6ed616c8389b7 (diff) | |
request: Remove stray pk.
| -rw-r--r-- | aws/request.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/aws/request.scm b/aws/request.scm index f9662b8..563084a 100644 --- a/aws/request.scm +++ b/aws/request.scm @@ -172,8 +172,8 @@ already mentioned in the request headers." "Process the format string URL in REQUEST-FORMAT-STRING and replace all placeholders (strings surrounded by curly braces) with their corresponding value in INPUT." - (let ((arguments (pk 'args (input-arguments->scm input))) - (parts (pk 'parts (string-split request-format-string (char-set #\{ #\}))))) + (let ((arguments (input-arguments->scm input)) + (parts (string-split request-format-string (char-set #\{ #\})))) ;; Every second item corresponds to a placeholder. (string-join (map (lambda (part index) (if (odd? index) |