Index: dust.rkt ================================================================== --- dust.rkt +++ dust.rkt @@ -1,6 +1,6 @@ -#lang debug racket/base +#lang racket/base ; SPDX-License-Identifier: BlueOak-1.0.0 ; This file is licensed under the Blue Oak Model License 1.0.0. (require pollen/core @@ -129,11 +129,11 @@ [(windows) (system (format "type nul >> ~a" series-file))] [else (system (format "touch ~a" series-file))])))) ;; Determine if the current article has been checked into Fossil repo (define (checked-in?) - (cond [#R (current-metas) + (cond [(current-metas) (define articles-path (build-path (current-project-root) articles-folder)) (define checked-in (with-output-to-string (lambda () (system (format "/usr/local/bin/fossil ls ~a" articles-path))))) (string-contains? checked-in (path->string (here-source-path)))]