This is the mail archive of the guile@cygnus.com mailing list for the guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

hobbit case-sensitive-ness


Hobbit changes all variable names to be lowercase.
Given that Guile has case sensitivity, I think the following
patch should be applied.  One might wish to have the opposite
default though.

[Scheme, as defined by the standard, is case-insensitive, right?
R4RS says it is, dunno what changes in R5RS.]

Fri Nov  6 14:44:19 1998  Doug Evans  <devans@seba.cygnus.com>

	* hobbit.scm (*case-sensitive-flag*): New configuration variable.
	(display-var): Use it.

Index: hobbit.scm
===================================================================
RCS file: /cvs/cvsfiles/devo/cgen/hobbit.scm,v
retrieving revision 1.1
diff -c -r1.1 hobbit.scm
*** hobbit.scm	1998/10/10 00:47:38	1.1
--- hobbit.scm	1998/11/06 22:42:39
***************
*** 134,139 ****
--- 134,143 ----
  ;
  ;====================================================================
  
+ ;;; Define as #f if your Scheme has case insensitive symbols.
+ 
+ (define *case-sensitive-flag* #t)
+ 
  (define (report-error . lst)
    (display #\newline)
    (display "COMPILATION ERROR: ")
***************
*** 1999,2005 ****
  		   (or (= 0 n) (= n (- len 1))) )
  	      char) ; do nothing
  	     ((char-alphabetic? char)
! 	      (display (char-downcase char) port) )
  	     ((char-numeric? char)
  	      (display char port) )
  	     ((begin
--- 2003,2011 ----
  		   (or (= 0 n) (= n (- len 1))) )
  	      char) ; do nothing
  	     ((char-alphabetic? char)
! 	      (if *case-sensitive-flag*
! 		  (display char port)
! 		  (display (char-downcase char) port) ))
  	     ((char-numeric? char)
  	      (display char port) )
  	     ((begin