nyacc: Support enhanced Guile-1.8.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 21:16:14 +0000 (22:16 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 21:16:14 +0000 (22:16 +0100)
* module/nyacc/lalr.scm: Export process-spec, reserved?.  Use optargs, syncase.
* module/nyacc/lex.scm: Use optargs, syncase.
* module/nyacc/parse.scm: Use optargs.
* module/nyacc/util.scm: Use optargs.
* module/nyacc/lang/util.scm: Use optargs.
* module/nyacc/lang/c99/cpp.scm: Use syncase.
* module/nyacc/lang/c99/parser.scm: Use optargs, syncase.

module/nyacc/lalr.scm
module/nyacc/lang/c99/cpp.scm
module/nyacc/lang/c99/parser.scm
module/nyacc/lang/util.scm
module/nyacc/lex.scm
module/nyacc/parse.scm
module/nyacc/util.scm

index 2bbb39a27cb9da190fc370cab597dec4a9761535..4cd57ed295fcd332c77bd213c1be09eb33209f5d 100644 (file)
            looking-at first-item
            terminal? non-terminal?
            range-next
+            process-spec
+            reserved?
            )
+  #:use-module (ice-9 optargs)
+  #:use-module (ice-9 syncase)
   #:use-module ((srfi srfi-1) #:select (fold fold-right remove lset-union
                                             lset-intersection lset-difference))
   #:use-module ((srfi srfi-9) #:select (define-record-type))
index a00eec3e706cc16a7ef0a0c069e994b55c2a26f3..f232e9028759ad8bd27140d0605683260a6af96d 100644 (file)
@@ -25,6 +25,7 @@
            cpp-expand-text
            expand-cpp-mref
            )
+  #:use-module (ice-9 syncase)
   #:use-module (nyacc parse)
   #:use-module (nyacc lex)
   #:use-module (nyacc lang util)
index 71c5486558b77b28375080790ca0eaff6274ecad..10643094d6da381f1666484a04331224f54b4059 100644 (file)
@@ -19,6 +19,8 @@
 
 (define-module (nyacc lang c99 parser)
   #:export (parse-c parse-c99 def-xdef? std-dict)
+  #:use-module (ice-9 optargs)
+  #:use-module (ice-9 syncase)
   #:use-module (nyacc lex)
   #:use-module (nyacc parse)
   #:use-module (nyacc lang util)
index e0405fb1cb89883ea7690255b7e72a25ddc2a789..d30e175820a606feecffc3139d608bbea6ac361a 100644 (file)
@@ -21,6 +21,7 @@
            ;; for ???
            move-if-changed
             fmterr)
+  #:use-module (ice-9 optargs)
   #:use-module ((srfi srfi-1) #:select(find))
   )
 
index 7820f668bed318ff43fa03dc6a3266bb0653739f..4728b48745875e413115643bfe983b62682aaa77 100644 (file)
@@ -49,6 +49,8 @@
            like-c-ident?
            filter-mt remove-mt map-mt make-ident-like-p 
            c:ws c:if c:ir)
+  #:use-module (ice-9 optargs)
+  #:use-module (ice-9 syncase)
   #:use-module ((srfi srfi-1) #:select (remove append-reverse))
   #:use-module (ice-9 pretty-print)
   )
index 54f9283741c2363a2046ad4f82c4f5be8cb3b577..5609be9156e944331dcb8e10de4c61395d6c7393 100644 (file)
@@ -23,6 +23,7 @@
   #:export (make-lalr-parser
            make-lalr-ia-parser
            )
+  #:use-module (ice-9 optargs)
   #:use-module (nyacc util)
   #:use-module ((srfi srfi-43) #:select (vector-map vector-for-each))
   )
index d8f88a0fc903524c4f7b5a5ce76cb684c98974e0..49316e27e9bc84828e2ec91f7d2089965b99f37c 100644 (file)
@@ -28,6 +28,7 @@
            ugly-print
            tzort
            )
+  #:use-module (ice-9 optargs)
   #:use-module ((srfi srfi-43) #:select (vector-fold))
   )