diff options
| -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) |