Changeset 8515 in project


Ignore:
Timestamp:
02/17/08 08:35:36 (11 years ago)
Author:
kon
Message:

Changes to stop annoying messages.

Location:
release/3/meroon
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • release/3/meroon/meroon.html

    r2496 r8515  
    2020
    2121<p><ul>
     22<li>1.92
     23Changes to remove annoying messages. [Kon Lovett]
    2224<li>1.9
    2325Generates an .exports file and install documentation. Fixed bug in meroon.scm [Thanks to Stu Glaser]
  • release/3/meroon/meroon.scm

    r2496 r8515  
    1 (declare
    2   (uses srfi-1 extras)
    3   (fixnum)
    4   (disable-interrupts)
    5   (run-time-macros) )
     1(eval-when (compile)
     2  (declare
     3    (no-bound-checks)
     4    (no-procedure-checks-for-usual-bindings)
     5    (unused *last-meroon-anomaly*) ; Stops annoying message
     6    (fixnum)
     7    (disable-interrupts)
     8    (run-time-macros) ) )
     9
     10(use srfi-1 extras)
    611
    712(include "meroon.chicken")
     
    3843(include "clone.scm")
    3944
    40 (when (memq syntax-case: ##sys#features)
    41   (visit (string-append (repository-path) (string ##sys#pathname-directory-separator) "meroon-syntax.scm")) )
     45#+syntax-case
     46(visit (visit (string-append (repository-path) (string ##sys#pathname-directory-separator) "meroon-syntax.scm")))
  • release/3/meroon/meroon.setup

    r8507 r8515  
    11;-*- Scheme -*-
    22
    3 (run (csc meroon.scm -vs -O2 -no-trace -lambda-lift -include-path meroon -X meroon.scm -emit-exports meroon.exports))
     3(compile meroon.scm -vs -O2 -no-trace -lambda-lift
     4  -include-path meroon -X meroon.scm
     5  -check-imports -emit-exports meroon.exports)
    46
    57(install-extension
     
    79 '("meroon.so" "meroon-syntax.scm")
    810 '((require-at-runtime meroon)
    9    (version 1.91)
     11   (version 1.92)
    1012   (documentation "meroon.html")
    1113   (exports "meroon.exports") ))
  • release/3/meroon/meroon/definers.scm

    r8507 r8515  
    543543    ;; The generation depends on the use of DSSSL keywords.
    544544    (if-meroon-feature (or DSSSL)
    545       (set! dsssl? (or (any? dsssl-optional? (cdr call))
    546                        (any? dsssl-rest? (cdr call))
    547                        (any? dsssl-key? (cdr call)) ))
     545      (set! dsssl? (or (list-any? dsssl-optional? (cdr call))
     546                       (list-any? dsssl-rest? (cdr call))
     547                       (list-any? dsssl-key? (cdr call)) ))
    548548      'nothing )
    549549    `(begin
     
    645645    ;; The generation depends on the use of DSSSL keywords.
    646646    (if-meroon-feature (or DSSSL)
    647       (set! dsssl? (or (any? dsssl-optional? (cdr call))
    648                        (any? dsssl-rest? (cdr call))
    649                        (any? dsssl-key? (cdr call)) ))
     647      (set! dsssl? (or (list-any? dsssl-optional? (cdr call))
     648                       (list-any? dsssl-rest? (cdr call))
     649                       (list-any? dsssl-key? (cdr call)) ))
    650650      'nothing )
    651651    `(register-method
     
    701701    ;; The generation depends on the use of DSSSL keywords.
    702702    (if-meroon-feature (or DSSSL)
    703       (set! dsssl? (or (any? dsssl-optional? (cdr call))
    704                        (any? dsssl-rest? (cdr call))
    705                        (any? dsssl-key? (cdr call)) ))
     703      (set! dsssl? (or (list-any? dsssl-optional? (cdr call))
     704                       (list-any? dsssl-rest? (cdr call))
     705                       (list-any? dsssl-key? (cdr call)) ))
    706706      'nothing )
    707707    `(register-method
  • release/3/meroon/meroon/egal.scm

    r4 r8515  
    6262                         (cons entry *already-compared-objects*) )
    6363                   ;; then check whether it is true
    64                    (let ((result (every? (lambda (field)
     64                   (let ((result (list-every? (lambda (field)
    6565                                           (Field-compare field o1 o2) )
    6666                                         (Class-fields c) )))
  • release/3/meroon/meroon/fill.scm

    r4 r8515  
    7676         (contents (process-initialization
    7777                    fields parms find-initialization )) ) 
    78     (if (and (every? (lambda (content) (integer? (car content)))
     78    (if (and (list-every? (lambda (content) (integer? (car content)))
    7979                     contents )
    8080             (<= (meroon-reduce (lambda (sum content) (+ sum (car content)))
  • release/3/meroon/meroon/runtime.scm

    r4 r8515  
    398398     'Syntax 'define-class
    399399     "Incompatible number of fields" (Class-fields class) ) )
    400   (unless (every?
     400  (unless (list-every?
    401401           (lambda (f desc)
    402402             (and (eq? (Field-name f) (car desc))
     
    496496      (unless (field-defined? class 'immutable?)
    497497        (careless-initialize-Class-immutable?
    498          class (every? Field-immutable? (careless-Class-fields class)) ) )
     498         class (list-every? Field-immutable? (careless-Class-fields class)) ) )
    499499      ;; set various numbers. Reuse the old class-number.
    500500      (let* ((cn (if already-there? (careless-Class-number old-class)
  • release/3/meroon/meroon/utils.scm

    r4 r8515  
    3333;;; lists in args. Only used with a single list in Meroon
    3434
    35 (define (every? p . args)
     35(define (list-every? p . args)
    3636  (let andmap ((args args) (value #t))
    3737    (if (let any-at-end? ((ls args))
     
    4646;;; Only used once in the if-meroon-feature macro.
    4747
    48 (define (any? p . args)
     48(define (list-any? p . args)
    4949  (let ormap ((args args) (value #f))
    5050    (if (let any-at-end? ((ls args))
     
    167167        end ) )
    168168  (define (reduceN f end lists)
    169     (if (every? pair? lists)
     169    (if (list-every? pair? lists)
    170170        (oo-apply f (reduceN f end (oo-map cdr lists)) (oo-map car lists))
    171171        end ) )
Note: See TracChangeset for help on using the changeset viewer.