Changeset 16055 in project for chicken


Ignore:
Timestamp:
09/23/09 18:34:56 (10 years ago)
Author:
kon
Message:

'##sys#check-syntax' for 'lambda-list allowed keywords as variables.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/expand.scm

    r15830 r16055  
    678678                    [else #f] ) ) ) ) )
    679679
     680(define-constant +default-argument-count-limit+ 99999)
     681
    680682(define ##sys#check-syntax
    681683  (let ([string-append string-append]
     
    704706                    ((pair? x)
    705707                     (let ((s (car x)))
    706                        (and (symbol? s)
     708                       (and (symbol? s) (not (keyword? s))
    707709                            (loop (cdr x)) ) ) )
    708710                    (else #f) ) ) ) )
     
    724726                      (max (cond ((eq? vlen 1) 1)
    725727                                 ((fx> vlen 2) (vector-ref p 2))
    726                                  (else 99999) ) ) )
     728                                 (else +default-argument-count-limit+) ) ) )
    727729                 (do ((x x (cdr x))
    728730                      (n 0 (fx+ n 1)) )
Note: See TracChangeset for help on using the changeset viewer.