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 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