summaryrefslogtreecommitdiff
path: root/module/system
diff options
context:
space:
mode:
Diffstat (limited to 'module/system')
-rw-r--r--module/system/base/types.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/base/types.scm b/module/system/base/types.scm
index 418c9fed4..b63febff8 100644
--- a/module/system/base/types.scm
+++ b/module/system/base/types.scm
@@ -1,5 +1,5 @@
;;; 'SCM' type tag decoding.
-;;; Copyright (C) 2014, 2015, 2017, 2018 Free Software Foundation, Inc.
+;;; Copyright (C) 2014, 2015, 2017, 2018, 2022 Free Software Foundation, Inc.
;;;
;;; This library is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU Lesser General Public License as published by
@@ -397,7 +397,7 @@ using BACKEND."
(address->inferior-struct address
(- vtable-address %tc3-struct)
backend))
- (((_ & #x7f = %tc7-symbol) buf hash props)
+ (((_ & #x7f = %tc7-symbol) buf hash)
(match (cell->object buf backend)
(($ <stringbuf> string)
(string->symbol string))))