(Arne Babenhauserheide)
2017-10-11: fix broken indentation fix broken indentation
diff --git a/Makefile.am b/Makefile.am --- a/Makefile.am +++ b/Makefile.am @@ -1,7 +1,7 @@ SUFFIXES = .w .scm .sh sitedir = $(GUILE_SITE) -site_DATA = wisp-scheme.scm +site_DATA = language/wisp.scm langdir = ${datarootdir}/guile/site/$(GUILE_EFFECTIVE_VERSION)/language/wisp lang_DATA = language/wisp/spec.scm language/wisp.scm diff --git a/examples/benchmark.w b/examples/benchmark.w --- a/examples/benchmark.w +++ b/examples/benchmark.w @@ -76,10 +76,10 @@ define* : benchmark-run fun : res : list-ec (: i sampling-steps) : benchmark-run-single fun #:min-seconds min-seconds std : stddev-unbiased-normal res mean : / (apply + res) sampling-steps - ;; pretty-print : list mean '± std min-seconds sampling-steps - if : or {sampling-steps > max-iterations} : and {std < {mean * max-relative-uncertainty}} {std < max-absolute-uncertainty-seconds} - . mean - lp (* 2 min-seconds) (* 2 sampling-steps) ;; should decrease σ by factor 2 or √2 (for slow functions) + ;; pretty-print : list mean '± std min-seconds sampling-steps + if : or {sampling-steps > max-iterations} : and {std < {mean * max-relative-uncertainty}} {std < max-absolute-uncertainty-seconds} + . mean + lp (* 2 min-seconds) (* 2 sampling-steps) ;; should decrease σ by factor 2 or √2 (for slow functions) define loopcost benchmark-run (λ() #f)