diff options
author | Thomas White <taw@physics.org> | 2020-09-06 18:35:52 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-09-06 18:35:52 +0200 |
commit | ddab20cb9b5126bedd6340571794944b562fa472 (patch) | |
tree | 38d1ec5386abcbe4f45c97e3e39839524a23eab7 /guile/starlet/utils.scm | |
parent | cc5c19f2afff4bb51b00be55a9d5c4f0020e7bf6 (diff) |
Add utils module
Diffstat (limited to 'guile/starlet/utils.scm')
-rw-r--r-- | guile/starlet/utils.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm new file mode 100644 index 0000000..13ee585 --- /dev/null +++ b/guile/starlet/utils.scm @@ -0,0 +1,15 @@ +(define-module (starlet utils) + #:export (return-unspecified + print-hash-table)) + + +(define (return-unspecified) + (if #f 1)) + +(define (print-hash-table ht) + (hash-for-each (lambda (key value) + (display key) + (display " ---> ") + (display value) + (newline)) + ht)) |