From 31bd78abb11ccc82ec2d02c82aa4364ceb035125 Mon Sep 17 00:00:00 2001 From: Ray Miller Date: Fri, 10 Jan 2025 17:41:11 +0000 Subject: [PATCH] Reformat to avoid long lines --- tryme.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/tryme.scm b/tryme.scm index e8fe0a0..6ac494b 100644 --- a/tryme.scm +++ b/tryme.scm @@ -20,18 +20,25 @@ (bind-context-vars (base-dir) (action:install-dir base-dir)) - #:condition (bind-context-vars (base-dir) (negate (cond:directory? base-dir)))) + #:condition (bind-context-vars + (base-dir) + (negate (cond:directory? base-dir)))) (task "Create test file from string content" (bind-context-vars (base-dir) - (action:install-file (file-name-join* base-dir "foo") #:content "Hello, world!\n" #:mode #o600)) + (action:install-file (file-name-join* base-dir "foo") + #:content "Hello, world!\n" + #:mode #o600)) #:register 'foo) (task "Get file status" - (bind-context-vars (foo) (action:stat foo)) + (bind-context-vars + (foo) + (action:stat foo)) #:register 'stat-out #:triggers '(display-stat))) #:handlers `((display-stat . ,(handler "Display stat" - (bind-context-vars (foo stat-out) (lambda _ (pk foo stat-out)))))))) - + (bind-context-vars + (foo stat-out) + (lambda _ (pk foo stat-out)))))))) (run-play test-play)