nyacc: new release 0.76.4
This commit is contained in:
parent
14d6407bc9
commit
72b0dbe2bd
|
@ -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
|
Copyright (C) 2015-2017 Matthew R. Wette
|
||||||
|
|
||||||
|
|
|
@ -50,7 +50,7 @@
|
||||||
#:use-module (nyacc util)
|
#:use-module (nyacc util)
|
||||||
)
|
)
|
||||||
|
|
||||||
(define *nyacc-version* "0.76.3")
|
(define *nyacc-version* "0.76.4")
|
||||||
|
|
||||||
|
|
||||||
;; @deffn proxy-? sym rhs
|
;; @deffn proxy-? sym rhs
|
||||||
|
|
|
@ -315,7 +315,7 @@
|
||||||
;; return "defined(FOO)" or "defined FOO".
|
;; return "defined(FOO)" or "defined FOO".
|
||||||
(define (scan-defined-arg)
|
(define (scan-defined-arg)
|
||||||
(let* ((ch (skip-il-ws (read-char))) (no-ec (not (char=? ch #\())))
|
(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
|
(cond
|
||||||
((eof-object? ch)
|
((eof-object? ch)
|
||||||
(if no-ec
|
(if no-ec
|
||||||
|
|
Loading…
Reference in a new issue