Ticket #1788: 0001-Omit-builtin-features-from-link-files.patch

File 0001-Omit-builtin-features-from-link-files.patch, 1.6 KB (added by evhan, 3 years ago)
  • eval.scm

    From 11409d5efa6c4547088f5e2f3c39399faa6fc764 Mon Sep 17 00:00:00 2001
    From: Evan Hanson <evhan@foldling.org>
    Date: Tue, 28 Sep 2021 09:27:07 +1300
    Subject: [PATCH] Omit builtin-features from link files
    
    ---
     eval.scm | 15 +++++++--------
     1 file changed, 7 insertions(+), 8 deletions(-)
    
    diff --git a/eval.scm b/eval.scm
    index 9421e83d..31e6e31a 100644
    a b  
    917917    irregex library lolevel pathname port posix profiler read-syntax
    918918    repl scheduler srfi-4 tcp))
    919919
     920(define-constant builtin-features
     921  '(srfi-30 srfi-46 srfi-61 srfi-62                     ; runtime
     922    srfi-0 srfi-2 srfi-8 srfi-9 srfi-11 srfi-15 srfi-16 ; syntax
     923    srfi-17 srfi-26 srfi-31 srfi-55 srfi-87 srfi-88))   ; syntax cont
     924
    920925(define-constant cygwin-default-dynamic-load-libraries '("cygchicken-0"))
    921926(define-constant macosx-load-library-extension ".dylib")
    922927(define-constant windows-load-library-extension ".dll")
     
    934939(define ##sys#load-dynamic-extension default-load-library-extension)
    935940
    936941(define (chicken.load#core-unit? id) ; used by batch-driver.scm
    937   (or (memq id core-units)
     942  (or (memq id builtin-features)
     943      (memq id core-units)
    938944      (assq id core-unit-requirements)))
    939945
    940 ; these are actually in unit extras, but that is used by default
    941 
    942 (define-constant builtin-features
    943   '(srfi-30 srfi-46 srfi-61 srfi-62                     ; runtime
    944     srfi-0 srfi-2 srfi-8 srfi-9 srfi-11 srfi-15 srfi-16 ; syntax
    945     srfi-17 srfi-26 srfi-31 srfi-55 srfi-87 srfi-88))   ; syntax cont
    946 
    947946(define default-dynamic-load-libraries
    948947  (case (software-version)
    949948    ((cygwin) cygwin-default-dynamic-load-libraries)