Changeset 15927 in project


Ignore:
Timestamp:
09/16/09 15:04:47 (10 years ago)
Author:
Ivan Raikov
Message:

hopefully what are the finishing touches of release 4.2.0

Location:
chicken/branches/prerelease
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/prerelease/batch-driver.scm

    r15844 r15927  
    214214    (when (and dynamic (memq 'unsafe-libraries options))
    215215      (set! emit-unsafe-marker #t) )
     216    (when (memq 'setup-mode options)
     217      (set! ##sys#setup-mode #t))
    216218    (when (memq 'disable-interrupts options) (set! insert-timer-checks #f))
    217219    (when (memq 'fixnum-arithmetic options) (set! number-type 'fixnum))
  • chicken/branches/prerelease/c-platform.scm

    r15844 r15927  
    9191    analyze-only dynamic scrutinize no-argc-checks no-procedure-checks
    9292    no-bound-checks no-procedure-checks-for-usual-bindings no-compiler-syntax
    93     no-parentheses-synonyms no-symbol-escape r5rs-syntax) )
     93    no-parentheses-synonyms no-symbol-escape r5rs-syntax emit-all-import-libraries
     94    setup-mode) )
    9495
    9596(define valid-compiler-options-with-argument
  • chicken/branches/prerelease/compiler-namespace.scm

    r15844 r15927  
    275275 toplevel-lambda-id
    276276 toplevel-scope
    277  topological-sort
    278277 transform-direct-lambdas!
    279278 tree-copy
  • chicken/branches/prerelease/setup-download.scm

    r15229 r15927  
    241241        (let ([name (read in)])
    242242          (cond [(and (pair? name) (eq? 'error (car name)))
    243                  (apply error (string-append "[Server] " (cadr name)) (cddr name)) ]
     243                 (throw-server-error (cadr name) (cddr name))]
    244244                [(or (eof-object? name) (not name))
    245245                 (close-input-port in)
     
    261261                 (get-files (cons name files)) ] ) ) ) ) )
    262262
     263  (define (throw-server-error msg args)
     264    (abort
     265     (make-composite-condition
     266      (make-property-condition
     267       'exn
     268       'message (string-append "[Server] " msg)
     269       'arguments args)
     270      (make-property-condition 'setup-download-error))))
     271
    263272  (define (read-chunks in)
    264273    (let get-chunks ([data '()])
Note: See TracChangeset for help on using the changeset viewer.