From 435719c7fc9d8674bd1cbf386bb0d8bf0819355c Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Sat, 17 Oct 2015 16:47:09 +0200
Subject: [PATCH 4/4] Make literal-size calculation for symbols more precise.

Symbol literals take up a symbol (size 4) and a bucket (size 3), for a
total of 7, not 10.

Conflicts:
	c-backend.scm
---
 c-backend.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/c-backend.scm b/c-backend.scm
index 9f2f315..9e7dab6 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -655,7 +655,7 @@
 	    ((string? lit) 0)		; statically allocated
 	    ((bignum? lit) 3)		; internal vector statically allocated
 	    ((flonum? lit) words-per-flonum)
-	    ((symbol? lit) 10)          ; size of symbol, and possibly a bucket
+	    ((symbol? lit) 7)           ; size of symbol, and possibly a bucket
 	    ((pair? lit) (+ 3 (literal-size (car lit)) (literal-size (cdr lit))))
 	    ((vector? lit)
 	     (+ 1 (vector-length lit)
-- 
2.1.4