diff options
author | Ben Sima <ben@bsima.me> | 2019-11-19 10:39:52 -0800 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2019-11-19 10:40:56 -0800 |
commit | 31498d576517970136d097d47c67e542facd02ab (patch) | |
tree | 7e7cc69a107afaa47039389cbfa1e1f511c6939c /Com/Simatime/bild.scm | |
parent | d1b1feee48ddced8ebb4872b00250b8e53b8c337 (diff) |
Fixes to Com.Simatime.Core
- make it actually compile
- add fmt
- export stuff I'm using elsewhere
- comment stuff that doesn't work yet
Diffstat (limited to 'Com/Simatime/bild.scm')
-rwxr-xr-x | Com/Simatime/bild.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Com/Simatime/bild.scm b/Com/Simatime/bild.scm index 6ac09ce..c7ab666 100755 --- a/Com/Simatime/bild.scm +++ b/Com/Simatime/bild.scm @@ -121,6 +121,7 @@ #:use-module ((ice-9 popen) #:prefix popen/) #:use-module ((ice-9 format) #:select (format)) #:use-module ((ice-9 rdelim) #:prefix rdelim/) + #:use-module ((Com Simatime core) #:select (fmt)) #:use-module ((Com Simatime shell) #:prefix sh/) #:use-module ((Com Simatime string) #:prefix string/) #:export (ns? @@ -128,11 +129,6 @@ path->ns main)) -(define-syntax fmt - (syntax-rules () - ((fmt s args ...) - (format #f s args ...)))) - (define (main args) (let* ((root (sh/exec "git rev-parse --show-toplevel")) (target (cadr args)) |