From c370b8f4cf56aebd965a05d5875c523a83b67df0 Mon Sep 17 00:00:00 2001
From: Scott Owens <sowens@cs.utah.edu>
Date: Thu, 27 Jun 2002 23:29:15 +0000
Subject: [PATCH] *** empty log message ***

original commit: 14581fe43cf99d039f9ed61066b96ef16d83c4be
---
 collects/parser-tools/yacc-to-scheme.ss | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/collects/parser-tools/yacc-to-scheme.ss b/collects/parser-tools/yacc-to-scheme.ss
index 6df4f66..4028883 100644
--- a/collects/parser-tools/yacc-to-scheme.ss
+++ b/collects/parser-tools/yacc-to-scheme.ss
@@ -82,6 +82,9 @@
 	  (enter-empty-term $1)
 	  (cons $1 $2)))))))
   
+  (define (symbol<? a b)
+    (string<? (symbol->string a) (symbol->string b)))
+  
   (define (trans filename)
     (let* ((i (open-input-file filename))
            (terms (make-hash-table))
@@ -107,8 +110,8 @@
 		      (let ((t (get-token-grammar i)))
 			t)))))
           `(begin
-             (define-tokens t ,(quicksort (hash-table-map terms (lambda (k v) k)) string<?))
-             (define-empty-tokens et ,(quicksort (hash-table-map eterms (lambda (k v) k)) string<?))
+             (define-tokens t ,(quicksort (hash-table-map terms (lambda (k v) k)) symbol<?))
+             (define-empty-tokens et ,(quicksort (hash-table-map eterms (lambda (k v) k)) symbol<?))
              (parser
               (start ___)
               (end ___)