From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 26 Nov 2018 19:29:39 +0000 (-0700)
Subject: pucked plugins: Update calls to cref/generate-trivial-constructor.
X-Git-Tag: mit-scheme-pucked-10.1.2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6a77974219178420ed5613b1004bfa37c4b65098;p=mit-scheme.git

pucked plugins: Update calls to cref/generate-trivial-constructor.
---

diff --git a/src/cairo/compile.sh b/src/cairo/compile.sh
index 0da3967e0..8beae9d1c 100755
--- a/src/cairo/compile.sh
+++ b/src/cairo/compile.sh
@@ -37,7 +37,7 @@ ${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
       (error "The CAIRO package already exists."))
   (let ((package-set (package-set-pathname "cairo")))
     (if (not (file-modification-time<? "cairo.pkg" package-set))
-	(cref/generate-trivial-constructor "cairo" #f))
+	(cref/generate-trivial-constructor "cairo"))
     (construct-packages-from-file (fasload package-set)))
 
   (compile-file "cairo" '("cairo-const.bin")
diff --git a/src/gl/compile.sh b/src/gl/compile.sh
index fd2180dfe..b1e5a1a4a 100755
--- a/src/gl/compile.sh
+++ b/src/gl/compile.sh
@@ -37,7 +37,7 @@ ${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
       (error "The GL package already exists."))
   (let ((package-set (package-set-pathname "gl")))
     (if (not (file-modification-time<? "gl.pkg" package-set))
-	(cref/generate-trivial-constructor "gl" #f))
+	(cref/generate-trivial-constructor "gl"))
     (construct-packages-from-file (fasload package-set)))
 
   (let ((deps '("gl-const.bin"))
diff --git a/src/gl/glxgears-compile.scm b/src/gl/glxgears-compile.scm
index 2c3b3dd1e..4b362c9d3 100644
--- a/src/gl/glxgears-compile.scm
+++ b/src/gl/glxgears-compile.scm
@@ -33,7 +33,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	(error "The GLX-GEARS package already exists.")
 	(let ((package-set (package-set-pathname "glxgears")))
 	  (if (not (file-exists? package-set))
-	      (cref/generate-trivial-constructor "glxgears" #f))
+	      (cref/generate-trivial-constructor "glxgears"))
 	  (construct-packages-from-file (fasload package-set))))
 
     (fluid-let ((compile-file:sf-only? #t))
diff --git a/src/glib/compile.sh b/src/glib/compile.sh
index 695f31379..9fe508ec8 100755
--- a/src/glib/compile.sh
+++ b/src/glib/compile.sh
@@ -37,7 +37,7 @@ ${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
       (error "The GLIB package already exists."))
   (let ((package-set (package-set-pathname "glib")))
     (if (not (file-modification-time<? "glib.pkg" package-set))
-	(cref/generate-trivial-constructor "glib" #f))
+	(cref/generate-trivial-constructor "glib"))
     (construct-packages-from-file (fasload package-set)))
 
   ;; glib.scm includes the Glib c-includes, but does not otherwise
diff --git a/src/gtk-screen/compile.sh b/src/gtk-screen/compile.sh
index e83b22b8f..c579a71d4 100755
--- a/src/gtk-screen/compile.sh
+++ b/src/gtk-screen/compile.sh
@@ -37,7 +37,7 @@ ${MIT_SCHEME_EXE} --batch-mode <<\EOF
       (error "The (EDWIN SCREEN GTK-SCREEN) package already exists."))
   (let ((package-set (package-set-pathname "gtk-screen")))
     (if (not (file-modification-time<? "gtk-screen.pkg" package-set))
-	(cref/generate-trivial-constructor "gtk-screen" #f))
+	(cref/generate-trivial-constructor "gtk-screen"))
     (construct-packages-from-file (fasload package-set)))
 
   (let ((env (->environment '(edwin screen gtk-screen))))
diff --git a/src/gtk/compile.sh b/src/gtk/compile.sh
index c0d269675..6d78847c2 100755
--- a/src/gtk/compile.sh
+++ b/src/gtk/compile.sh
@@ -37,7 +37,7 @@ ${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
       (error "The GTK package already exists."))
   (let ((package-set (package-set-pathname "gtk")))
     (if (not (file-modification-time<? "gtk.pkg" package-set))
-	(cref/generate-trivial-constructor "gtk" #f))
+	(cref/generate-trivial-constructor "gtk"))
     (construct-packages-from-file (fasload package-set)))
 
   ;; gtk.scm includes the Gtk c-includes, but does not otherwise
diff --git a/src/pango/compile.sh b/src/pango/compile.sh
index 04eca18fa..96f3619da 100755
--- a/src/pango/compile.sh
+++ b/src/pango/compile.sh
@@ -37,7 +37,7 @@ ${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
       (error "The PANGO package already exists."))
   (let ((package-set (package-set-pathname "pango")))
     (if (not (file-modification-time<? "pango.pkg" package-set))
-	(cref/generate-trivial-constructor "pango" #f))
+	(cref/generate-trivial-constructor "pango"))
     (construct-packages-from-file (fasload package-set)))
 
   (compile-file "pango" '("pango-const.bin") (->environment '(pango)))
diff --git a/src/planetarium/mit-compile.sh b/src/planetarium/mit-compile.sh
index b8fc4fd90..26bcb38eb 100755
--- a/src/planetarium/mit-compile.sh
+++ b/src/planetarium/mit-compile.sh
@@ -45,7 +45,7 @@ ${MIT_SCHEME_EXE} --batch-mode <<\EOF
       (error "The PLANETARIUM package already exists."))
   (let ((package-set (package-set-pathname "mit")))
     (if (not (file-modification-time<? "mit.pkg" package-set))
-	(cref/generate-trivial-constructor "mit" #f))
+	(cref/generate-trivial-constructor "mit"))
     (construct-packages-from-file (fasload package-set)))
 
   (cf "mit-r3rs"     '() '(r3rs extras))
@@ -72,7 +72,7 @@ ${MIT_SCHEME_EXE} --batch-mode <<\EOF
       (begin
 	(let ((package-set (package-set-pathname "mit-3d")))
 	  (if (not (file-modification-time<? "mit-3d.pkg" package-set))
-	      (cref/generate-trivial-constructor "mit-3d" #f))
+	      (cref/generate-trivial-constructor "mit-3d"))
 	  (construct-packages-from-file (fasload package-set)))
 
 	(cf "terrain"      '("geometry") '(planetarium terrain))