diff options
| -rw-r--r-- | src/org/euandre/packages.scm | 41 |
1 files changed, 20 insertions, 21 deletions
diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm index 3d8a616..e39d475 100644 --- a/src/org/euandre/packages.scm +++ b/src/org/euandre/packages.scm @@ -138,6 +138,26 @@ +(define-public (mklist x) + (if (not x) + '() + (if (pair? x) + x + (list x)))) + +(define-public (slurp path) + (call-with-input-file + path + textual-ports:get-string-all)) + +(define-public (str . rest) + (apply string-append rest)) + +(define-public (fmt . rest) + (apply format #f rest)) + + + (define-public (pkg name version checksum) (package (name name) @@ -348,27 +368,6 @@ - - - -(define-public (mklist x) - (if (not x) - '() - (if (pair? x) - x - (list x)))) - -(define-public (slurp path) - (call-with-input-file - path - textual-ports:get-string-all)) - -(define-public (str . rest) - (apply string-append rest)) - -(define-public (fmt . rest) - (apply format #f rest)) - (define-public (user-accounts users) (map (lambda (user) (let ((name (s1:first user)) |