Commits

Richo Healey committed 9cc9cbe

letrec > define for recursion

Comments (0)

Files changed (1)

 
 (define main
   (lambda (argv)
-    (let ((sock (tcp-listen (string->number (get-environment-variable "PORT")))))
-      (define mainloop
-        (lambda ()
-          (let-values (((s-in s-out) (tcp-accept sock)))
-            (if threaded?
-              (thread-start! (make-thread (lambda () (handle s-in s-out))))
-              (handle s-in s-out)
-              )
-            (mainloop)
-            )))
+    (letrec ((sock (tcp-listen (string->number (get-environment-variable "PORT"))))
+      (mainloop (lambda ()
+        (let-values (((s-in s-out) (tcp-accept sock)))
+          (if threaded?
+            (thread-start! (make-thread (lambda () (handle s-in s-out))))
+            (handle s-in s-out)
+            )
+          (mainloop)
+          ))))
       (mainloop))))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.