Changeset 14859 in project for chicken/trunk


Ignore:
Timestamp:
06/02/09 12:41:45 (11 years ago)
Author:
felix winkelmann
Message:

fixes in types.db (thanks to Peter Bex); more portable removal of scrutiny files

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/rules.make

    r14858 r14859  
    13431343
    13441344scrutiny-clean:
    1345         -rm *.scrutiny[12]
     1345        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) *.scrutiny1 *.scrutiny2
  • chicken/trunk/scrutinizer.scm

    r14829 r14859  
    7474    (printf "[debug] ~?~%" fstr args)) )
    7575
    76 (define-syntax d (syntax-rules () ((_ . _) (void))))
     76;(define-syntax d (syntax-rules () ((_ . _) (void))))
    7777
    7878
     
    361361          ((eq? '* results1))
    362362          ((eq? '* results2))
    363           ((eq? '* results2))
    364           ((eq? '* results2))
    365363          ((null? results2) #f)
    366364          ((match (car results1) (car results2))
     
    578576                  (if (null? vars)
    579577                      (walk (car body) (append e2 e) loc dest)
    580                       (let ((t (single "in `let' binding" (walk (car body) e loc (car vars)) loc)))
     578                      (let ((t (single
     579                                (sprintf "in `let' binding of `~a'" (car vars))
     580                                (walk (car body) e loc (car vars)) loc)))
    581581                        (loop (cdr vars) (cdr body) (alist-cons (car vars) t e2))))))
    582582               ((##core#lambda lambda)
  • chicken/trunk/types.db

    r14829 r14859  
    166166(string-set! (procedure string-set! (string fixnum char) undefined))
    167167(string-append (procedure string-append (#!rest string) string))
    168 (string-copy (procedure string-copy (string) string))
     168;(string-copy (procedure string-copy (string) string)) - we use the more general version from srfi-13
    169169(string->list (procedure string->list (string) list))
    170170(list->string (procedure list->string (list) string))
     
    206206(write-char (procedure write-char (char #!optional port) undefined))
    207207(newline (procedure newline (#!optional port) undefined))
    208 (with-input-from-file (procedure with-input-from-file (string procedure) . *))
    209 (with-output-to-file (procedure with-output-to-file (string procedure) . *))
     208(with-input-from-file (procedure with-input-from-file (string procedure #!optional symbol) . *))
     209(with-output-to-file (procedure with-output-to-file (string procedure #!optional symbol) . *))
    210210(dynamic-wind (procedure dynamic-wind (procedure procedure procedure) . *))
    211211(values (procedure values (#!rest values) . *))
    212212(call-with-values (procedure call-with-values (procedure procedure) . *))
    213 (eval (procedure eval (*) *))
     213(eval (procedure eval (* #!optional *) *))
    214214(char-ready? (procedure char-ready? (#!optional port) boolean))
    215215(imag-part (procedure imag-part (number) number))
     
    963963(seventh (procedure seventh (pair) *))
    964964(sixth (procedure sixth (pair) *))
    965 (span (procedure span ((pocedure (*) *) list) list list))
     965(span (procedure span ((procedure (*) *) list) list list))
    966966(span! (procedure span! ((procedure (*) *) list) list list))
    967967(split-at (procedure split-at (list fixnum) list list))
     
    10061006(string-contains (procedure string-contains (string string #!optional fixnum fixnum fixnum fixnum) *))
    10071007(string-contains-ci (procedure string-contains-ci (string string #!optional fixnum fixnum fixnum fixnum) *))
    1008 (string-copy (procedure string-copy (string) string))
     1008(string-copy (procedure string-copy (string #!optional fixnum fixnum) string))
    10091009(string-copy! (procedure string-copy! (string fixnum string #!optional fixnum fixnum) undefined))
    10101010(string-count (procedure string-count (string * #!optional fixnum fixnum) fixnum))
     
    10351035(string-prefix-length (procedure string-prefix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    10361036(string-prefix-length-ci (procedure string-prefix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    1037 (string-prefix? (procedure string-prefix? (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     1037(string-prefix? (procedure string-prefix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
    10381038(string-replace (procedure string-replace (string string fixnum fixnum #!optional fixnum fixnum) string))
    10391039(string-reverse (procedure string-reverse (string #!optional fixnum fixnum) string))
     
    11711171(thread-specific (procedure thread-specific ((struct thread)) *))
    11721172(thread-specific-set! (procedure thread-specific-set! ((struct thread) *) undefined))
    1173 (thread-start! (procedure thread-start! ((struct thread)) (struct thread)))
     1173(thread-start! (procedure thread-start! ((or (struct thread) (procedure () . *))) (struct thread)))
    11741174(thread-state (procedure thread-state ((struct thread)) symbol))
    11751175(thread-suspend! (procedure thread-suspend! ((struct thread)) undefined))
Note: See TracChangeset for help on using the changeset viewer.