18 lines
381 B
Scheme
18 lines
381 B
Scheme
#!/usr/bin/env sh
|
|
exec guile -s "$0" "$@"
|
|
!#
|
|
|
|
(use-modules (potato make)
|
|
(write (command-line)) (newline)
|
|
(initialize (command-line))
|
|
|
|
(write ($ CFLAGS)) (newline)
|
|
(write %suffix-rules) (newline)
|
|
;; We will rely on the built-in ".c" to ".o" rule.
|
|
(: "hello-world" '("hello-world.o")
|
|
(~ ($ CC) "-o" $@ $<))
|
|
(: "hello-world.o" '("hello-world.c")
|
|
(~ ($ CC) "-c" $<))
|
|
|
|
(execute)
|