summaryrefslogtreecommitdiff
path: root/module/system/base/syntax.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/base/syntax.scm')
-rw-r--r--module/system/base/syntax.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm
index bcc926bee..c28c0dda0 100644
--- a/module/system/base/syntax.scm
+++ b/module/system/base/syntax.scm
@@ -102,7 +102,7 @@
(def (if (pair? slot) (cdr slot) *unbound*))
(val (get-key args (symbol->keyword key) def)))
(if (eq? val *unbound*)
- (error "Slot unbound:" key)
+ (error "slot unbound" key)
(cons key val))))
slots))
@@ -116,14 +116,15 @@
(lambda (struct name)
(let ((data (assq name (vector-ref struct 1))))
(cond ((not data)
- (error "Unknown slot:" name))
+ (error "unknown slot" name))
(else (cdr data)))))
(lambda (struct name val)
(let ((data (assq name (vector-ref struct 1))))
(cond ((not data)
- (error "Unknown slot:" name))
+ (error "unknown slot" name))
(else (set-cdr! data val)))))))
+
;;;
;;; Variants
;;;