summaryrefslogtreecommitdiff
path: root/module/system/vm/traps.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/traps.scm')
-rw-r--r--module/system/vm/traps.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/system/vm/traps.scm b/module/system/vm/traps.scm
index cd0e13cc9..6c5d1e788 100644
--- a/module/system/vm/traps.scm
+++ b/module/system/vm/traps.scm
@@ -76,10 +76,10 @@
(syntax-rules ()
((_ arg predicate? message)
(if (not (predicate? arg))
- (error "bad argument ~a: ~a" 'arg message)))
+ (error (format #f "bad argument ~a: ~a" 'arg message))))
((_ arg predicate?)
(if (not (predicate? arg))
- (error "bad argument ~a: expected ~a" 'arg 'predicate?)))))
+ (error (format #f "bad argument ~a: expected ~a" 'arg 'predicate?))))))
(define (new-disabled-trap enable disable)
(let ((enabled? #f))
@@ -378,7 +378,8 @@
current-frame)))
procs))
(if (null? traps)
- (error "No procedures found at ~a:~a." file user-line)))
+ (error
+ (format #f "No procedures found at ~a:~a." file user-line))))
(lambda (frame)
(for-each (lambda (trap) (trap frame)) traps)
(set! traps #f)))))))