X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/0a5b437ef9063df2a3728338a7cd6b86c4c2e275..577eab817cda22844a0120e7212029ebdcca6c20:/module/system/base/types.scm

diff --git a/module/system/base/types.scm b/module/system/base/types.scm
index c051b3171..26760d1d1 100644
--- a/module/system/base/types.scm
+++ b/module/system/base/types.scm
@@ -241,6 +241,7 @@ the matching bits, possibly with bitwise operations to extract it from BITS."
 ;; Cell types.
 (define %tc3-struct 1)
 (define %tc7-symbol 5)
+(define %tc7-variable 7)
 (define %tc7-vector 13)
 (define %tc7-wvect 15)
 (define %tc7-string 21)
@@ -424,6 +425,8 @@ using BACKEND."
            (match (cell->object buf backend)
              (($ <stringbuf> string)
               (string->symbol string))))
+          (((_ & #x7f = %tc7-variable) obj)
+           (inferior-object 'variable address))
           (((_ & #x7f = %tc7-string) buf start len)
            (match (cell->object buf backend)
              (($ <stringbuf> string)