~ chicken-core (chicken-5) b0b860046e45411b90b7d02a59bf030b67435224

commit b0b860046e45411b90b7d02a59bf030b67435224
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Apr 30 11:21:44 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Apr 30 11:21:44 2017 +1200

    Mark "static" parameter to ##sys#process-require with a question mark

diff --git a/eval.scm b/eval.scm
index 2e1ed1fe..87670a1c 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1226,7 +1226,7 @@
 ;;   - a library id if the library was found, #f otherwise
 ;;   - a requirement type (e.g. 'dynamic) or #f if provided in core
 ;;
-(define (##sys#process-require lib #!optional compiling? (alternates '()) (provided '()) static mark-static)
+(define (##sys#process-require lib #!optional compiling? (alternates '()) (provided '()) static? mark-static)
   (let ((id (library-id lib)))
     (cond
       ((assq id core-unit-requirements) =>
@@ -1243,7 +1243,7 @@
 	    `(##core#declare (uses ,id))
 	    `(##sys#load-library (##core#quote ,id)))
 	id #f))
-      ((and compiling? static (static-extension-available? id)) =>
+      ((and compiling? static? (static-extension-available? id)) =>
        (lambda (path) 
          (mark-static id path)
          (values `(##core#declare (uses ,id)) id 'static)))