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

diff --git a/src/cairo/compile.sh b/src/cairo/compile.sh
index 0da3967e05d2ffd8acb3db84ccf4f5236fdeb1a0..8beae9d1c26c2a9041effb4b2ead7b8282718583 100755 (executable)
--- 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 fd2180dfe44498feb44daf322c388b6061801fee..b1e5a1a4a881a3a09710752ef713634d80a8bcc3 100755 (executable)
--- 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 2c3b3dd1e2ec2fc0a5e2b76066a9641decb28314..4b362c9d33a1e18c4080c82257e33abcbb3df570 100644 (file)
--- 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 695f31379171307e8567d4d7ad738f7dc0d24492..9fe508ec822578818bdcd400c11cd39d6304cb5a 100755 (executable)
--- 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 e83b22b8f1d951837892a733a63ed8d11add2f88..c579a71d4e08c1d11617ab765e896abe2247f357 100755 (executable)
--- 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 c0d26967528545a8ad70b74b6b3200f67af256b5..6d78847c281c7af22bc677961c19c7c3d6979820 100755 (executable)
--- 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 04eca18fa39045dca1265286a28317a63abac0f9..96f3619da3d889716cf55e544f4f724406289202 100755 (executable)
--- 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 b8fc4fd908fabd27669c83a7c55015652ca3b4f6..26bcb38ebcb329aca3d5c263b56d9c36e0103650 100755 (executable)
--- 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))