Import SRFI-1 with `s1:' prefix.

1 files changed, 8 insertions, 8 deletions

diff --git a/src/guile/cantius.scm b/src/guile/cantius.scm
index ada2747..a913e1b 100644
--- a/src/guile/cantius.scm
+++ b/src/guile/cantius.scm
@@ -5,7 +5,7 @@
 (define-module (cantius)
   #:use-module (scheme base)
 
-  #:use-module ((srfi srfi-1) #:select (drop fold last))
+  #:use-module ((srfi srfi-1) #:prefix s1:)
   #:use-module ((srfi srfi-11) #:select (let*-values))
   #:use-module ((srfi srfi-26) #:select (cut))
   #:use-module ((srfi srfi-35) #:prefix s35:)
@@ -244,10 +244,10 @@
 (define (parts->alist parts)
   ;; This shouldn't be strongly relevant but we make later parts appear
   ;; earlier in the alist so that they take precedence when `assoc' is used.
-  (fold (lambda (part acc)
-          `((,(form-data-part-name part) . ,part)
-            . ,acc))
-        '() parts))
+  (s1:fold (lambda (part acc)
+             `((,(form-data-part-name part) . ,part)
+               . ,acc))
+           '() parts))
 
 (define-public parse-multipart/form-data*
   (compose parts->alist parse-multipart/form-data))
@@ -396,7 +396,7 @@
   (cons http-code
         ($ lambda (. rest)
           (values (build-response* %default-headers #:code http-code)
-                  (or (last rest) default-message)))))
+                  (or (s1:last rest) default-message)))))
 
 (define %default-http-code-handlers
   (map (cut apply make-code-handler-pair <>)
@@ -632,8 +632,8 @@
                      #`(lambda (. handler-formals)
                          (let (#,@(if path-rest-stx
                                       #`((#,path-rest-stx
-                                          (drop #,endpoint-matched-path
-                                                path-len)))
+                                          (s1:drop #,endpoint-matched-path
+                                                   path-len)))
                                       '()))
                            handler-body handler-body-rest ...))))