Commits

Richo Healey committed 476f917

Move get-user-by-name to be with it's implemetation

Comments (0)

Files changed (2)

datastore/file.scm

+(define get-user-by-name
+  (lambda (name)
+    (let ((u (assoc name user-mapping)))
+      (if u
+        (cadr u)
+        #f))))
+
 (define user-mapping
   (map
     (lambda (file)
 
 
 ; TODO Obviously this isn't done.
-(define get-user-by-name
-  (lambda (name)
-    (let ((u (assoc name user-mapping)))
-      (if u
-        (cadr u)
-        #f))))