nyacc: new release 0.75.5
[mes.git] / module / nyacc / lang / c99 / body.scm
index 35298d0177ecd9d608dae182478d8088e761454d..ee00d4ca3295a2de6019cfae45645f7475220346 100644 (file)
               (throw 'c99-error "CPP error"))))
 
          ;; Composition of @code{read-cpp-line} and @code{eval-cpp-line}.
-         ;; We should not be doing this!
          (define (read-cpp-stmt ch)
            (and=> (read-cpp-line ch) cpp-line->stmt))
 
          (let iter ((pair (read-token)))
            (case (car ppxs)
              ((keep)
+              ;;(simple-format #t "lx=>~S\n" pair)
               pair)
              ((skip-done skip-look)
               (iter (read-token)))