From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Jun 2001 18:53:20 +0000 (+0000)
Subject: Must attempt to parse number before attempting identifier.  Otherwise,
X-Git-Tag: 20090517-FFI~2702
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b394357ec0334890bf4a76a1fe0b124ec13e9b4e;p=mit-scheme.git

Must attempt to parse number before attempting identifier.  Otherwise,
the number's sign might be parsed as an identifier.
---

diff --git a/v7/src/star-parser/test-parser.scm b/v7/src/star-parser/test-parser.scm
index 6be4957dc..5f6837cf2 100644
--- a/v7/src/star-parser/test-parser.scm
+++ b/v7/src/star-parser/test-parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: test-parser.scm,v 1.1 2001/06/26 18:03:26 cph Exp $
+;;; $Id: test-parser.scm,v 1.2 2001/06/26 18:53:20 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -50,7 +50,7 @@
 	  (noise (string ")"))))))
 
 (define parse-element
-  (*parser (alt parse-identifier parse-num-10 parse-list)))
+  (*parser (alt parse-num-10 parse-identifier parse-list)))
 
 (define parse-identifier
   (*parser (element-transform intern (match match-identifier))))