1. Richo Healey
  2. ident.so

Commits

Richo Healey  committed db02ac7

Add some utils

  • Participants
  • Parent commits 476f917
  • Branches master

Comments (0)

Files changed (2)

File lib/util.scm

View file
  • Ignore whitespace
+(define list->alist
+  (lambda (lst)
+    (letrec ((process (lambda (items memo)
+                        (if (> 2 (length items))
+                          memo
+                          (process (cddr items) (alist-update (car items) (cadr items) memo))))))
+             (process lst (list)))))
+
+
+

File main.scm

View file
  • Ignore whitespace
 (use utils)
 ; (require-extension intarweb)
 
+(require "lib/util")
+
 ; Fetch our datastore
 (cond ((get-environment-variable "IDENTSO_DATASTORE")
         (require (string-append "datastore/" (get-environment-variable "IDENTSO_DATASTORE"))))