Changeset 13888 in project for chicken

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:

• rules.make (modified) (1 diff)
• support.scm (modified) (1 diff)

chicken/trunk/rules.make

@@ -1212 +1212 @@
 
 dist: distfiles
-        $(CSI) -s $(SRCDIR)scripts/makedist.scm
+        $(CSI) -s $(SRCDIR)scripts/makedist.scm --platform=$(PLATFORM) CHICKEN=$(CHICKEN)
 
 html:

chicken/trunk/support.scm

@@ -116 +116 @@
     (let ((out (current-error-port))
           (loc (and (symbol? msg) 
-                    (begin 
+                    (let ((loc msg))
                       (set! msg (car args))
                       (set! args (cdr args))
-                      msg))))
+                      loc))))
       (if loc
           (fprintf out "Syntax error (~a): ~a~%~%" loc msg)