diff options
Diffstat (limited to 'module/system/base/syntax.scm')
-rw-r--r-- | module/system/base/syntax.scm | 7 |
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 ;;; |