;;;;;; Object dumper for Scheme48                        -*- Scheme -*-
;;;;;; Various relevant constants

;;; Taylor Campbell wrote this code; he places it in the public domain.

;;; There used to be a lot more in this file, but since I slimmed down
;;; the object encoding key stuff and flushed the hard-coded support
;;; for some basic Scheme data types, it shrank a lot.

;;; I considered slimming down the key stuff even more (using the upper
;;; six bits for encoding some of the key index), but I don't see much
;;; point in saving just a few more bytes.

(define dump-magic 1)

(define dump-tag/reference     #b00000000)
(define dump-tag/shared-header #b00000001)
(define dump-tag/object-header #b00000010)