From a42fef03b955c4434769443fc79d677a46365cbe Mon Sep 17 00:00:00 2001
From: Michael Gran <spk121@yahoo.com>
Date: Thu, 11 Feb 2021 02:55:40 -0800
Subject: [PATCH] Let's go with Potato Make as the name

---
 README.md                              | 2 +-
 examples/basic-c.scm                   | 2 +-
 studious-potato.scm => potato/make.scm | 4 ++--
 raw-tests.scm                          | 2 +-
 tests.scm                              | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)
 rename studious-potato.scm => potato/make.scm (99%)

diff --git a/README.md b/README.md
index 073d841..fa2fbbb 100644
--- a/README.md
+++ b/README.md
@@ -4,7 +4,7 @@ A build tool written in Guile Scheme.
 
 ## Description
 
-Studious Potato is a scheme library that aims to simplify the task of
+Potato Make is a scheme library that aims to simplify the task of
 maintaining, updating, and regenerating programs.  It is inspired by
 the `make` utility in POSIX.  With this library, you can write a
 build script in Guile Scheme.
diff --git a/examples/basic-c.scm b/examples/basic-c.scm
index 0eb9f1c..0660f6d 100644
--- a/examples/basic-c.scm
+++ b/examples/basic-c.scm
@@ -2,7 +2,7 @@
 exec guile -s "$0" "$@"
 !#
 
-(use-modules (studious-potato))
+(use-modules (potato make)
 (write (command-line)) (newline)
 (initialize (command-line))
 
diff --git a/studious-potato.scm b/potato/make.scm
similarity index 99%
rename from studious-potato.scm
rename to potato/make.scm
index 463f305..ae30335 100644
--- a/studious-potato.scm
+++ b/potato/make.scm
@@ -1,4 +1,4 @@
-(define-module (studious-potato)
+(define-module (potato make)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 exceptions)
   #:use-module (ice-9 optargs)
@@ -112,7 +112,7 @@
 
 (define (display-version-and-exit argv0)
   (format #t "~a~%" argv0)
-  (format #t "  using studious-potato ~a~%" %version)
+  (format #t "  using potato make~a~%" %version)
   (exit 0))
 
 (define (parse-macros lst)
diff --git a/raw-tests.scm b/raw-tests.scm
index c4912cf..208667c 100644
--- a/raw-tests.scm
+++ b/raw-tests.scm
@@ -2,7 +2,7 @@
 exec guile -L . -s "$0" "$@"
 !#
 
-(use-modules (studious-potato)
+(use-modules (potato make)
              (srfi srfi-1))
 
 
diff --git a/tests.scm b/tests.scm
index 12c6edb..ed5b0d7 100755
--- a/tests.scm
+++ b/tests.scm
@@ -2,7 +2,7 @@
 exec guile -L . -s "$0" "$@"
 !#
 
-(use-modules (studious-potato)
+(use-modules (potato make)
              (srfi srfi-1)
              (srfi srfi-64))