Changeset 7011 in project for r6rs-libraries


Ignore:
Timestamp:
12/03/07 09:29:44 (12 years ago)
Author:
felix winkelmann
Message:

bug fix

Location:
r6rs-libraries
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • r6rs-libraries/doc.scm

    r3542 r7011  
    3232
    3333     (history
     34      (version "2.205" "Replaces use of obsolete test-feature? procedure")
    3435      (version "2.204" "Automatically compiles code using this extension with literal-compression")
    3536      (version "2.203" "Added support for " (a (@ (href "http://srfi.schemers.org/srfi-61")) "SRFI-61"))
  • r6rs-libraries/r6rs-libraries-base.scm

    r618 r7011  
    22832283                    port-position set-port-name! delete-file file-exists?
    22842284                    pathname-directory-separator rename-file get-output-string
    2285                     open-output-string open-input-string features test-feature?
     2285                    open-output-string open-input-string features feature?
    22862286                    register-feature! unregister-feature! get-keyword keyword->string
    22872287                    string->keyword make-property-condition ##sys#get-keyword
     
    23322332  (let ((expand-toplevel (make-expander)))
    23332333    (lambda (exp)
    2334       #+debug (pp `(EXPAND: ,(test-feature? 'compiling)
     2334      #+debug (pp `(EXPAND: ,(feature? 'compiling)
    23352335                            ,(syntax-debug exp)))
    23362336      (let ((result (car (expand-toplevel (list exp)))))
     
    23802380                           port-position set-port-name! delete-file file-exists?
    23812381                           pathname-directory-separator rename-file get-output-string
    2382                            open-output-string open-input-string features test-feature?
     2382                           open-output-string open-input-string features feature?
    23832383                           register-feature! unregister-feature! get-keyword keyword->string
    23842384                           string->keyword make-property-condition make-parameter
     
    26852685                         #`(begin ,@(cdr clause)) )
    26862686                        ((not (pair? head))
    2687                          (if (test-feature? (syntax-object->datum head))
     2687                         (if (feature? (syntax-object->datum head))
    26882688                             #`(begin ,@body)
    26892689                             #`(cond-expand ,@more) ) )
     
    27432743(register-feature! 'srfi-72)
    27442744
    2745 (when (test-feature? 'compiling)
     2745(when (feature? 'compiling)
    27462746  (set! ##compiler#literal-compression-threshold 50) )
  • r6rs-libraries/r6rs-libraries.setup

    r365 r7011  
    4848 '("r6rs-libraries.so" "r6rs-libraries-base.so" "scheme-syntax-case.so" "chicken-libraries.so"
    4949   "r6rs-libraries.html")
    50  '((version 2.204)
     50 '((version 2.205)
    5151   (documentation "r6rs-libraries.html")
    5252   (syntax)
Note: See TracChangeset for help on using the changeset viewer.