]> birchwood-abbey.net Git - mit-scheme.git/commitdiff
Fix spurious unbound-variable warning.
authorChris Hanson <org/chris-hanson/cph>
Thu, 18 Feb 2021 04:21:00 +0000 (20:21 -0800)
committerChris Hanson <org/chris-hanson/cph>
Sat, 20 Feb 2021 00:14:03 +0000 (16:14 -0800)
(cherry picked from commit 9dceb24dfb790304c751cc943d8c4ada53bddb76)

src/runtime/make.scm

index 8eb56215422c952464a9107cbe1574726cf67b58..68e1b1ee51ac50fb9add7ee70a00eff6d6b0edfc 100644 (file)
@@ -504,7 +504,8 @@ USA.
                  (cons (cons (if (compiled-code-address? (lambda (x) x))
                                  "make.com"
                                  "make.bin")
-                             define-multiple)
+                             (lexical-reference (->environment '())
+                                                'define-multiple))
                        fasload-purification-queue))))))))
   (lexical-assignment (->environment '(runtime garbage-collector))
                      'gc-boot-loading?