diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 380c20f..1192c73 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -542,9 +542,9 @@ ;; URLs (= resume URLs). Resume URLs look like ;; http://localhost:8088/surflet/admin-handler.scm;k757033335;c1-684902143?return54= (define *resume-url-regexp* (rx (submatch (* (- printing ";"))) - ";k" (submatch (* digit)) ; Instance-ID + ";k" (submatch (+ digit)) ; Instance-ID ";c" (+ digit) ; Continuation Counter - "-" (submatch (* digit)))) ; Continuation-ID + "-" (submatch (+ digit)))) ; Continuation-ID ;; All arguments are numbers except PATH-STRING, which is a string. (define (make-resume-url path-string session-id continuation-counter continuation-id)