Nyacc example scripts: support Guile-1.8.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 19 Dec 2016 21:14:04 +0000 (22:14 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 19 Dec 2016 21:14:04 +0000 (22:14 +0100)
guile/nyacc-calc.scm
guile/nyacc.scm

index 2f41536cd1a8af02d9c4239b52f8bcdc6e0302a1..a46329219a6fc2eb94461db474ee7daa88bc7cf8 100755 (executable)
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*-scheme-*-
-exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
+exec ${GUILE-guile} -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
 !#
 
 ;;; Mes --- The Maxwell Equations of Software
@@ -24,6 +24,11 @@ exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
 ;; The Maxwell Equations of Software -- John McCarthy page 13
 ;; http://www.softwarepreservation.org/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf
 
+#!
+Run with Guile-1.8:
+GUILE='~/src/guile-1.8/build/pre-inst-guile --debug -q' guile/nyacc.scm
+!#
+
 ;; Tcalc.scm - calculator
 ;;
 ;; Copyright (C) 2015 Matthew R. Wette
@@ -34,6 +39,8 @@ exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
 ;; without any warranty.
 
 (define-module (nyacc)
+  #:use-module (ice-9 syncase) ;; guile-1.8
+  #:use-module (ice-9 optargs) ;; guile-1.8
   #:use-module (nyacc lalr)
   #:use-module (nyacc lex)
   #:use-module (nyacc parse)
index 1a20d8c80ebf207647df435e2c1890b36f477129..9a16d4d467a8bfb4d505e0f5714ccb95b143b7e8 100755 (executable)
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*-scheme-*-
-exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
+exec ${GUILE-guile} -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
 !#
 
 ;;; Mes --- The Maxwell Equations of Software
@@ -24,6 +24,11 @@ exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
 ;; The Maxwell Equations of Software -- John McCarthy page 13
 ;; http://www.softwarepreservation.org/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf
 
+#!
+Run with Guile-1.8:
+GUILE='~/src/guile-1.8/build/pre-inst-guile --debug -q' guile/nyacc.scm
+!#
+
 (define-module (nyacc)
   #:use-module (nyacc lang c99 parser)
   #:use-module (ice-9 rdelim)