From 5fa19d556cb18b27379367f551f8f3c956c79b05 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 13 Dec 2005 11:57:55 +0000
Subject: [PATCH] allow 'true' at start of TTF

svn: r1608
---
 collects/afm/ttf-to-glyphlist.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/afm/ttf-to-glyphlist.ss b/collects/afm/ttf-to-glyphlist.ss
index 67e11d8c10..729281cded 100644
--- a/collects/afm/ttf-to-glyphlist.ss
+++ b/collects/afm/ttf-to-glyphlist.ss
@@ -20,8 +20,10 @@
   (define (parse-ttf p)
     (begin-with-definitions
 
-     (unless (= (read-fixed p) #x10000)
-       (error "Doesn't start with snft version 1.0"))
+     (let ([v (read-fixed p)])
+       (unless (or (= v #x10000)
+		   (= v (integer-bytes->integer #"true" #f #t)))
+	 (error "Doesn't start with snft version #x10000 or 'true'; got #x~x" v)))
      
      (define num-tables (read-short p))
      (read-short p)