diff options
Diffstat (limited to 'kolwynia/utils.scm')
| -rw-r--r-- | kolwynia/utils.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/kolwynia/utils.scm b/kolwynia/utils.scm index 990cef1..6e58181 100644 --- a/kolwynia/utils.scm +++ b/kolwynia/utils.scm @@ -1,14 +1,16 @@ ;;; Copyright © 2025 bdunahu <bdunahu@operationnull.com> (define-module (kolwynia utils) - #:export (garmr?*)) + #:export (garmr? + hel?)) ;;; Commentary: ;;; provides various utility functions ;;; Code: -(define (garmr?* . thing) - (if (equal? (gethostname) "garmr") - thing - '())) +(define garmr? + (equal? (gethostname) "garmr")) + +(define hel? + (equal? (gethostname) "hel")) ;;; utils.scm ends here |