From 40b6dccc645d5f51cca1a6235db45302f13fdfac Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 18 Mar 2022 16:10:04 +0530
Subject: utils: Move memoize-thunk to utils.

* tissue/issue.scm (memoize-thunk): Move to ...
* tissue/utils.scm (memoize-thunk): ... here.
---
 tissue/issue.scm |  8 --------
 tissue/utils.scm | 11 ++++++++++-
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 7b43caa..00fcbcf 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -226,14 +226,6 @@ return #f."
      "--" file)
     result))
 
-(define (memoize-thunk thunk)
-  "Return a function memoizing THUNK."
-  (let ((result #f))
-    (lambda ()
-      (unless result
-        (set! result (thunk)))
-      result)))
-
 (define issues
   (memoize-thunk
    (lambda ()
diff --git a/tissue/utils.scm b/tissue/utils.scm
index 5fce26d..6832fb8 100644
--- a/tissue/utils.scm
+++ b/tissue/utils.scm
@@ -21,7 +21,8 @@
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 popen)
   #:export (call-with-input-pipe
-            get-line-dos-or-unix))
+            get-line-dos-or-unix
+            memoize-thunk))
 
 (define (call-with-input-pipe proc program . args)
   "Execute PROGRAM ARGS ... in a subprocess with a pipe to it. Call
@@ -43,3 +44,11 @@ ports) in that it also supports DOS line endings."
     (if (eof-object? line)
         line
         (string-trim-right line #\return))))
+
+(define (memoize-thunk thunk)
+  "Return a function memoizing THUNK."
+  (let ((result #f))
+    (lambda ()
+      (unless result
+        (set! result (thunk)))
+      result)))
-- 
cgit v1.2.3