summaryrefslogtreecommitdiff
path: root/module/oop/goops.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/oop/goops.scm')
-rw-r--r--module/oop/goops.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index de5e8907d..8ed68694c 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -542,7 +542,7 @@ followed by its associated value. If @var{l} does not hold a value for
;; Boot definition.
(define (make class . args)
(unless (memq <slot> (class-precedence-list class))
- (error "Unsupported class: ~S" class))
+ (error (format #f "Unsupported class: ~S" class)))
(make-slot class args))
;; Boot definition.