From c2085be2dd2a0cb3da05991847e35080915e547e Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 18 Apr 2026 05:49:34 +0100 Subject: rename modules --- tests/prefabs-test.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests/prefabs-test.scm') diff --git a/tests/prefabs-test.scm b/tests/prefabs-test.scm index 8eaf348..06f9ba9 100644 --- a/tests/prefabs-test.scm +++ b/tests/prefabs-test.scm @@ -7,8 +7,8 @@ defstruct test) -;; Mock downstroke-entity -(module downstroke-entity * +;; Mock (downstroke entity) +(module (downstroke entity) * (import scheme (chicken base)) (define (entity-ref entity key #!optional (default #f)) (let loop ((plist entity)) @@ -23,14 +23,14 @@ ((eq? (car plist) key) (append (reverse acc) (list key val) (cddr plist))) (else (loop (cddr plist) (cons (cadr plist) (cons (car plist) acc))))))) (define (entity-type entity) (entity-ref entity #:type #f))) -(import downstroke-entity) +(import (downstroke entity)) ;; Load module under test (include "entity.scm") -(import downstroke-entity) +(import (downstroke entity)) (include "prefabs.scm") -(import downstroke-prefabs) +(import (downstroke prefabs)) (test-begin "prefabs") -- cgit v1.2.3