diff options
| -rw-r--r-- | tests/struct.scm | 2 | ||||
| -rw-r--r-- | weeb/struct.scm | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/struct.scm b/tests/struct.scm index dcc6770..7662fed 100644 --- a/tests/struct.scm +++ b/tests/struct.scm @@ -1,6 +1,8 @@ (use-modules (srfi srfi-64) (weeb struct)) +(test-runner-current (test-runner-simple)) + (test-begin "weeb-struct") (test-group "instantiation" diff --git a/weeb/struct.scm b/weeb/struct.scm index 65fa2ab..1f14d94 100644 --- a/weeb/struct.scm +++ b/weeb/struct.scm @@ -33,7 +33,7 @@ (let* ((type-string (symbol->string (quote name))) (type-representation (match:substring (string-match "[^<> ]+" type-string)))) - (make-record-type (symbol->string (quote name)) + (make-record-type (quote name) (quote (field* ...))))))))) (define (make-struct type . args) |