nyacc: Move (ice-9 syncase) into cond-expand.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 26 Mar 2017 20:27:20 +0000 (22:27 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 26 Mar 2017 20:27:20 +0000 (22:27 +0200)
* module/nyacc/lalr.scm: Move (ice-9 syncase) into cond-expand.  Fixes
  guile-2 deprecation messages.
* module/nyacc/lang/c99/cpp.scm: Likewise.
* module/nyacc/lang/c99/parser.scm: Likewise.
* module/nyacc/lex.scm: Likewise.

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

index 4cd57ed295fcd332c77bd213c1be09eb33209f5d..e29a4bc105e77907fa396cfc1e42565ee7f80cf0 100644 (file)
 ;;; License along with this library; if not, write to the Free Software
 ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
+(cond-expand
+ (guile-2)
+ (guile
+  (use-modules (ice-9 syncase))
+  (use-modules (ice-9 optargs)))
+ (mes))
+
 ;; I need to find way to preserve srconf, rrconf after hashify.
 ;; compact needs to deal with it ...
 
@@ -38,8 +45,6 @@
             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 f232e9028759ad8bd27140d0605683260a6af96d..fda8ecf2e32ce8bb65a5de901cfdb2debddcbe50 100644 (file)
            cpp-expand-text
            expand-cpp-mref
            )
-  #:use-module (ice-9 syncase)
   #:use-module (nyacc parse)
   #:use-module (nyacc lex)
   #:use-module (nyacc lang util)
   #:use-module (rnrs arithmetic bitwise)
   )
 
+(cond-expand
+ (guile-2)
+ (guile
+  (use-modules (ice-9 syncase)))
+ (mes))
+
 #|
   #define  #undef  #include  #if  #ifdef  #ifndef  #else  #endif  #elif
   #line  defined  #-operator  ##-operator  #pragma  #error
index 10643094d6da381f1666484a04331224f54b4059..ad2fbcacf83bd42ef060aa3ef55827618b059c3a 100644 (file)
@@ -19,8 +19,6 @@
 
 (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)
   #:use-module ((sxml xpath) #:select (sxpath))
   )
 
+(cond-expand
+ (guile-2)
+ (guile
+  (use-modules (ice-9 syncase))
+  (use-modules (ice-9 optargs)))
+ (mes))
+
 (include-from-path "nyacc/lang/c99/mach.d/c99tab.scm")
 (include-from-path "nyacc/lang/c99/body.scm")
 (include-from-path "nyacc/lang/c99/mach.d/c99act.scm")
index d30e175820a606feecffc3139d608bbea6ac361a..5d3f719edcaed0b0ef2fd3c8d7a97a8a6eb0ec41 100644 (file)
            ;; for ???
            move-if-changed
             fmterr)
-  #:use-module (ice-9 optargs)
   #:use-module ((srfi srfi-1) #:select(find))
   )
 
+(cond-expand
+ (guile-2)
+ (guile
+  (use-modules (ice-9 optargs))
+  (use-modules (ice-9 syncase)))
+ (mes))
+
 ;; This is a generic copyright/licence that will be printed in the output
 ;; of the examples/nyacc/lang/*/ actions.scm and tables.scm files.
 (define lang-crn-lic "Copyright (C) 2015,2016 Matthew R. Wette
index 4728b48745875e413115643bfe983b62682aaa77..cd9430adb2e65d8aae6723531a7c4470ecb6d45e 100644 (file)
            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)
   )
 
+(cond-expand
+ (guile-2)
+ (guile
+  (use-modules (ice-9 syncase))
+  (use-modules (ice-9 optargs)))
+ (mes))
+
 ;; @section Constructing Lexical Analyzers
 ;; The @code{lex} module provides a set of procedures to build lexical
 ;; analyzers.  The approach is to first build a set of @defn{readers} for