Changeset 15445 in project for chicken


Ignore:
Timestamp:
08/13/09 20:15:14 (10 years ago)
Author:
felix winkelmann
Message:

various fixes related to soname; bnumped version to 4.1.2

Location:
chicken/trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/README

    r15414 r15445  
    44  (c) 2008-2009, The Chicken Team
    55
    6   version 4.1.1
     6  version 4.1.2
    77
    88
  • chicken/trunk/buildversion

    r15262 r15445  
    1 4.1.1
     14.1.2
  • chicken/trunk/compiler.scm

    r15276 r15445  
    804804                                                         (with-output-to-file (cdr il)
    805805                                                           (lambda ()
     806                                                             (print ";;;; " (cdr il) " - GENERATED BY CHICKEN "
     807                                                                    (chicken-version) " -*- Scheme -*-")
    806808                                                             (for-each
    807809                                                              pretty-print
    808810                                                              (##sys#compiled-module-registration
    809                                                                (##sys#current-module)))))
     811                                                               (##sys#current-module)))
     812                                                             (print "\n;; END OF FILE")))
    810813                                                         (values
    811814                                                          (reverse xs)
  • chicken/trunk/eval.scm

    r15438 r15445  
    5151
    5252#ifndef C_BINARY_VERSION
    53 # define C_BINARY_VERSION      4
     53# define C_BINARY_VERSION      0
    5454#endif
    5555<#
     
    6363    (bound-to-procedure
    6464     ##sys#check-char ##sys#check-exact ##sys#check-port ##sys#check-string ##sys#load-library
     65     ##sys#load-library-0
    6566     ##sys#for-each ##sys#map ##sys#setslot ##sys#allocate-vector ##sys#check-pair ##sys#error-not-a-proper-list
    6667     ##sys#check-symbol ##sys#check-vector ##sys#floor ##sys#ceiling ##sys#truncate ##sys#round
     
    10031004
    10041005(define dynamic-load-libraries
    1005   (let ((complete
    1006          (let ((ext
    1007                 (case (software-version)
    1008                   ((linux)
    1009                    (string-append
    1010                     ##sys#load-library-extension
    1011                     "."
    1012                     (number->string binary-version)))
    1013                   (else ##sys#load-library-extension))))
    1014            (cut ##sys#string-append <> ext))))
     1006  (let ((ext
     1007         (if (and (eq? 'linux (software-version))
     1008                  (not (zero? binary-version))) ; allow "configless" build
     1009             (string-append
     1010              ##sys#load-library-extension
     1011              "."
     1012              (number->string binary-version))
     1013             ##sys#load-library-extension)))
     1014    (define complete
     1015      (cut ##sys#string-append <> ext))
    10151016    (make-parameter
    10161017     (map complete ##sys#default-dynamic-load-libraries)
     
    10191020       x) ) ) )
    10201021
    1021 (define ##sys#load-library
     1022(define ##sys#load-library-0
    10221023  (let ([load-verbose load-verbose]
    10231024        [string-append string-append]
     
    10491050                      [else (loop (##sys#slot libs 1))] ) ) ) ) ) ) ) )
    10501051
    1051 (define load-library
     1052(define ##sys#load-library
    10521053  (lambda (uname . lib)
    10531054    (##sys#check-symbol uname 'load-library)
    1054     (or (##sys#load-library uname (and (pair? lib) (car lib)))
     1055    (or (##sys#load-library-0 uname (and (pair? lib) (car lib)))
    10551056        (##sys#error 'load-library "unable to load library" uname _dlerror) ) ) )
     1057
     1058(define load-library ##sys#load-library)
    10561059
    10571060(define ##sys#split-at-separator
     
    11421145        (cond ((member p ##sys#loaded-extensions))
    11431146              ((memq id ##sys#core-library-modules)
    1144                (or (##sys#load-library id #f)
     1147               (or (##sys#load-library-0 id #f)
    11451148                   (and err?
    11461149                        (##sys#error loc "cannot load core library" id))))
     
    12351238                 (if comp?
    12361239                     `(##core#declare (uses ,id))
    1237                      `(load-library ',id #f) )
     1240                     `(##sys#load-library ',id #f) )
    12381241                 id #t)
    12391242                #t) )
     
    12471250                       (if comp?
    12481251                           `(##core#declare (uses ,id))
    1249                            `(load-library ',id #f) )
     1252                           `(##sys#load-library ',id #f) )
    12501253                       id #f))
    12511254                  #t) ) )
  • chicken/trunk/manual/The User's Manual

    r15262 r15445  
    77</nowiki>
    88
    9 This is the manual for Chicken Scheme, version 4.1.1
     9This is the manual for Chicken Scheme, version 4.1.2
    1010
    1111; [[Getting started]] : What is CHICKEN and how do I use it?
  • chicken/trunk/rules.make

    r15438 r15445  
    819819          $(DESTDIR)$(ILIBDIR)/$(LIBCHICKEN_SO_FILE)$(SONAME_VERSION)
    820820        $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS) $(LIBUCHICKEN_SO_FILE) \
    821           $(DESTDIR)$(ILIBDIR)/$(LIBCHICKEN_SO_FILE)$(SONAME_VERSION)
     821          $(DESTDIR)$(ILIBDIR)/$(LIBUCHICKEN_SO_FILE)$(SONAME_VERSION)
    822822endif
    823823ifdef WINDOWS
  • chicken/trunk/version.scm

    r15262 r15445  
    1 (define-constant +build-version+ "4.1.1")
     1(define-constant +build-version+ "4.1.2")
Note: See TracChangeset for help on using the changeset viewer.