refactoring by skill

2026-08-29 22:22:49 +02:00
parent 67fce7a330
commit 649ff0d7c5
22 changed files with 1598 additions and 1644 deletions
@@ -30,15 +30,15 @@
               #:site-title [site-title "Racket Wiki"]
               #:session-seconds [session-seconds (* 12 60 60)]
               #:language [language "en"])
-  (define config
-    (make-wiki-config #:data-dir data-dir
-                      #:port port
-                      #:listen-ip listen-ip
-                      #:secure-cookie? secure-cookie?
-                      #:site-title site-title
-                      #:session-seconds session-seconds
-                      #:language language))
-  (start-wiki config))
+  (let ((config
+         (make-wiki-config #:data-dir data-dir
+                           #:port port
+                           #:listen-ip listen-ip
+                           #:secure-cookie? secure-cookie?
+                           #:site-title site-title
+                           #:session-seconds session-seconds
+                           #:language language)))
+    (start-wiki config)))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; goal   : Start the wiki using a configuration.