From 72b0dbe2bd1ada244acac8e1e82816206ce32b38 Mon Sep 17 00:00:00 2001 From: Matt Wette Date: Thu, 23 Feb 2017 17:31:24 -0800 Subject: [PATCH] nyacc: new release 0.76.4 --- module/nyacc/README.nyacc | 2 +- module/nyacc/lalr.scm | 2 +- module/nyacc/lang/c99/cpp.scm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/module/nyacc/README.nyacc b/module/nyacc/README.nyacc index 0003ffa6..eb078ff8 100644 --- a/module/nyacc/README.nyacc +++ b/module/nyacc/README.nyacc @@ -1,4 +1,4 @@ -This is a version 0.76.3 of NYACC (Not Yet Another Compiler Compiler!). +This is a version 0.76.4 of NYACC (Not Yet Another Compiler Compiler!). Copyright (C) 2015-2017 Matthew R. Wette diff --git a/module/nyacc/lalr.scm b/module/nyacc/lalr.scm index 537c43c6..2e888f43 100644 --- a/module/nyacc/lalr.scm +++ b/module/nyacc/lalr.scm @@ -50,7 +50,7 @@ #:use-module (nyacc util) ) -(define *nyacc-version* "0.76.3") +(define *nyacc-version* "0.76.4") ;; @deffn proxy-? sym rhs diff --git a/module/nyacc/lang/c99/cpp.scm b/module/nyacc/lang/c99/cpp.scm index 8dc1864d..898bf619 100644 --- a/module/nyacc/lang/c99/cpp.scm +++ b/module/nyacc/lang/c99/cpp.scm @@ -315,7 +315,7 @@ ;; return "defined(FOO)" or "defined FOO". (define (scan-defined-arg) (let* ((ch (skip-il-ws (read-char))) (no-ec (not (char=? ch #\()))) - (let iter ((chl (list ch)) (ch (read-char))) + (let iter ((chl (list ch)) (ch (skip-il-ws (read-char)))) (cond ((eof-object? ch) (if no-ec