diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-09-06 09:21:49 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-09-06 09:21:49 +0200 |
| commit | 1bed03224906b2891fedc2c23abc073d4a60adda (patch) | |
| tree | 014ddf41c45e0b1256de1cd652efa7219491e39d /module/system/base | |
| parent | 10423dbdaa77b9fa3405fe280f4387dcd84f22d7 (diff) | |
Tweak value of tc7-smob.
* libguile/tags.h (scm_tc7_smob):
* module/system/base/types.scm (%tc7-smob): Tweak this value, just to
prove that it can be done. Remove scary comment.
Diffstat (limited to 'module/system/base')
| -rw-r--r-- | module/system/base/types.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/base/types.scm b/module/system/base/types.scm index a96348872..cf3c7c9d2 100644 --- a/module/system/base/types.scm +++ b/module/system/base/types.scm @@ -265,7 +265,7 @@ the matching bits, possibly with bitwise operations to extract it from BITS." (define %tc7-array #x5d) (define %tc7-bitvector #x5f) (define %tc7-port #x7d) -(define %tc7-smob #x7f) +(define %tc7-smob #x77) (define %tc16-bignum (+ %tc7-number (* 1 256))) (define %tc16-real (+ %tc7-number (* 2 256))) |