Let's go with Potato Make as the name

This commit is contained in:
Michael Gran 2021-02-11 02:55:40 -08:00
parent f753338320
commit a42fef03b9
5 changed files with 6 additions and 6 deletions

@ -4,7 +4,7 @@ A build tool written in Guile Scheme.
## Description ## 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 maintaining, updating, and regenerating programs. It is inspired by
the `make` utility in POSIX. With this library, you can write a the `make` utility in POSIX. With this library, you can write a
build script in Guile Scheme. build script in Guile Scheme.

@ -2,7 +2,7 @@
exec guile -s "$0" "$@" exec guile -s "$0" "$@"
!# !#
(use-modules (studious-potato)) (use-modules (potato make)
(write (command-line)) (newline) (write (command-line)) (newline)
(initialize (command-line)) (initialize (command-line))

@ -1,4 +1,4 @@
(define-module (studious-potato) (define-module (potato make)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (ice-9 exceptions) #:use-module (ice-9 exceptions)
#:use-module (ice-9 optargs) #:use-module (ice-9 optargs)
@ -112,7 +112,7 @@
(define (display-version-and-exit argv0) (define (display-version-and-exit argv0)
(format #t "~a~%" argv0) (format #t "~a~%" argv0)
(format #t " using studious-potato ~a~%" %version) (format #t " using potato make~a~%" %version)
(exit 0)) (exit 0))
(define (parse-macros lst) (define (parse-macros lst)

@ -2,7 +2,7 @@
exec guile -L . -s "$0" "$@" exec guile -L . -s "$0" "$@"
!# !#
(use-modules (studious-potato) (use-modules (potato make)
(srfi srfi-1)) (srfi srfi-1))

@ -2,7 +2,7 @@
exec guile -L . -s "$0" "$@" exec guile -L . -s "$0" "$@"
!# !#
(use-modules (studious-potato) (use-modules (potato make)
(srfi srfi-1) (srfi srfi-1)
(srfi srfi-64)) (srfi srfi-64))