Changeset 13888 in project


Ignore:
Timestamp:
03/24/09 13:57:12 (11 years ago)
Author:
felix winkelmann
Message:

fixed bug in compiler-specific syntax-error reporting

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/rules.make

    r13872 r13888  
    12121212
    12131213dist: distfiles
    1214         $(CSI) -s $(SRCDIR)scripts/makedist.scm
     1214        $(CSI) -s $(SRCDIR)scripts/makedist.scm --platform=$(PLATFORM) CHICKEN=$(CHICKEN)
    12151215
    12161216html:
  • chicken/trunk/support.scm

    r13800 r13888  
    116116    (let ((out (current-error-port))
    117117          (loc (and (symbol? msg)
    118                     (begin
     118                    (let ((loc msg))
    119119                      (set! msg (car args))
    120120                      (set! args (cdr args))
    121                       msg))))
     121                      loc))))
    122122      (if loc
    123123          (fprintf out "Syntax error (~a): ~a~%~%" loc msg)
Note: See TracChangeset for help on using the changeset viewer.