nyacc: fixed c99/CPP bug: need to skip space before lparen
[mes.git] / module / nyacc / lang / c99 / cppbody.scm
index bd8a2bdf7242245e722ba76924a64c31732a8ea4..090b9ed115e8d6c86e0fcc08a03fa01325e473ef 100644 (file)
   
 (define (collect-args argd dict used)
   ;;(simple-format #t "collect-args\n")
-  (if (not (eqv? (read-char) #\()) (throw 'parse-error "collect-args"))
+  (if (not (eqv? (skip-ws (read-char)) #\())
+      (let ((fn (or (port-filename (current-input-port)) "(unknown)"))
+           (ln (1+ (port-line (current-input-port)))))
+       (throw 'parse-error "~A:~A: CPP expecting `('" fn ln)))
   (let iter ((argl (list (scan-cpp-input argd dict used #t))))
-    (simple-format #t "args: ~S\n" argl)
+    ;;(simple-format #t "args: ~S\n" argl)
     (let ((ch (read-char)))
       (if (eqv? ch #\)) (reverse argl)
          (iter (cons (scan-cpp-input argd dict used #t) argl))))))